Excel使用vba 如何检查输入是否是数字

这里假设你的那个按钮的名字叫Button，然后把下面的代码放进去就可以了（已测试！）

Private Sub Button_Click()
Dim i As Variant
i = InputBox("请输入一个数字", "数字录入中", 1)
If IsNumeric(i) = False Then
MsgBox "你输入的不是数值，请重新输入", , "输入错误！"
i = InputBox("请输入一个数字", "数字录入中", 1)
End If
End Sub

Private Sub Button_Click()
Dim i As Variant
hui:
i = InputBox("请输入一个数字", "数字录入中", 1)
If IsNumeric(i) = False Then
MsgBox "你输入的不是数值，请重新输入", , "输入错误！"
goto hui
End If
End Sub

稍改一下二楼的代码，保证可以一直提示，否则提示一次，就不会再提示了。

if isnumeric(range("A1")) then
msgbox "这是数字啦"
else
msgbox "不懂就不要乱输入!"
end if

二楼的好
这么认真负责
鼓励下