Enumeration为Application.InputBox

每当我使用Application.InputBox()我调出VBA帮助来提醒我使用哪种Type ：

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

是否存在，或者我可以创build一个Type的枚举，所以我可以编码如下：

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

记住一个枚举而不是一个任意的整数对我来说会更容易。

Answer 1

不，没有，但你为什么不自己创build一个枚举？

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