Application.InputBox 的枚举

Question

每当我使用时，Application.InputBox()我都会调出 VBA 帮助来提醒我Type使用哪个：

Sub MAIN()
    Dim s As String

    s = Application.InputBox(Prompt:="enter data", Type:=2)
End Sub

是否存在，或者我可以创建一个枚举，Type以便我可以编写如下代码：

Sub MAIN()
    Dim s As String

    s = Application.InputBox(Prompt:="enter data", Type:=vbString)
End Sub

我更容易记住枚举而不是任意整数。

Answer 1

不，没有，但您可以自己创建一个枚举：

Public Enum InputBoxType
    ibtFormula = 0
    ibtNumber = 1
    ibtText = 2
    ibtBoolean = 4
    ibtRange = 8
    ibtError = 16
    ibtArray = 64
End Enum