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.

并选择建议的下拉值：

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