Vba 错误处理/仅 int

Question

我想在Inputbox 中只允许数字并且如果有人键入一个字母错误处理安装条目。变量zahl 后面会用到。

Dim inpt As Integer
Dim zahl As String
inpt = Application.InputBox("Date (YYMM)")
If inpt = False Then Exit Sub
MsgBox inpt
zahl = CInt(inpt)

Answer 1

见InputBoxMSDN Page。

设置类型：=1

inpt = Application.InputBox(Prompt:="Date (YYMM)", Type:=1)

这将强制用户在继续之前输入有效数字。