Question

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

意思就是 我要点击按钮弹出inputbox 让用户输入一个数字 当他输入文本时 警告输入非数字 然后重新弹出inputbox
求高手帮忙！

Answer 1

1、首先在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些内容作为例子。

3、在VBA编辑器中插入模块。

4、在模块当中输入如下代码，然后运行Private Sub TextBox2_Change()Dim iStr As String, iLast As IntegeriStr=Me.TextBox2If Len(iStr) > 0 TheniLast=Asc(Right(iStr, 1)) If iLast < 48 Or iLast > 57 Then Me.TextBox2=VBA.Left(iStr, Len(iStr)-1) End IfEnd Sub。

5、用快捷键F5运行窗体，分别在三个文本框中输入字符，可以发现“手机号”文本框中除了数字以外所有汉字和字母及“！”、“？”、“*”等符号已被严格限制。

Answer 2

这里假设你的那个按钮的名字叫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

Answer 3

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

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

Answer 4

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

Answer 5

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