Application.InputBox 的枚举

VBA

使用 Application.InputBox 函数时，我们可以通过自然语言与用户进行交互，以便获取输入的信息。该函数的枚举类型提供了多种选项，以满足不同的需求。下面将介绍一些常用的枚举类型，并提供相应的案例代码。

输入类型

首先，我们可以指定输入框的类型。枚举类型为 vbOKCancel、vbYesNoCancel、vbYesNo 和 vbRetryCancel。vbOKCancel 为默认类型，显示“确定”和“取消”按钮；vbYesNoCancel 显示“是”、“否”和“取消”按钮；vbYesNo 显示“是”和“否”按钮；vbRetryCancel 显示“重试”和“取消”按钮。下面是一个示例代码：

VBA
Sub InputBoxExample()
    Dim userInput As Variant
    userInput = Application.InputBox("请选择一个选项：", "选择框", Type:=1)
    
    If userInput = vbOK Then
        MsgBox "您选择了确定按钮"
    ElseIf userInput = vbCancel Then
        MsgBox "您选择了取消按钮"
    End If
End Sub

输入范围

其次，我们可以指定输入框的范围。枚举类型为 vbDefaultButton1、vbDefaultButton2 和 vbDefaultButton3。vbDefaultButton1 为默认值，将第一个按钮设置为默认按钮；vbDefaultButton2 将第二个按钮设置为默认按钮；vbDefaultButton3 将第三个按钮设置为默认按钮。以下是一个示例代码：

VBA
Sub InputBoxExample()
    Dim userInput As Variant
    userInput = Application.InputBox("请选择一个选项：", "选择框", Type:=1, Default:=vbDefaultButton2)
    
    If userInput = vbOK Then
        MsgBox "您选择了确定按钮"
    ElseIf userInput = vbCancel Then
        MsgBox "您选择了取消按钮"
    End If
End Sub

输入值

最后，我们可以指定输入框的默认值。以下是一个示例代码：

VBA
Sub InputBoxExample()
    Dim userInput As Variant
    userInput = Application.InputBox("请输入一个值：", "输入框", Type:=1, Default:="默认值")
    
    MsgBox "您输入的值为：" & userInput
End Sub

在上述示例代码中，我们使用 Application.InputBox 函数创建了一个输入框，要求用户输入一个值。输入框的标题为“输入框”，默认值为“默认值”。用户可以输入自己想要的值，并点击确定按钮。程序将弹出一个消息框，显示用户输入的值。

通过使用 Application.InputBox 函数的枚举类型，我们可以根据不同的需求定制交互式的输入框，为用户提供更好的体验。以上是一些常用的枚举类型和相应的案例代码，希望对您有所帮助。