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

Answer 2

使用智能感知

由于主要目的似乎是在没有咨询额外帮助的情况下固定输入，我建议从使用IntelliSense 中受益：

只需通过以下方式在代码模块中开始输入

vba.VbVarType.

或在直接窗口中

?vba.VbVarType.

并选择建议的 DropDown 值：

或者，您也可以查看对象浏览器，以获得更好的概览。