vba - Vba错误处理/仅int

我想在Inputbox中仅允许输入数字，并且如果有人键入字母Error Handling已安装条目。我稍后使用的变量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)

最佳答案

参见InputBox MSDN Page。

设置类型:= 1
inpt = Application.InputBox(Prompt:="Date (YYMM)", Type:=1)
这将迫使用户在继续之前输入一个有效的数字。