如何判断文本框中输入的内容是否为数字

发布网友发布时间：2022-04-21 10:50

共1个回答

热心网友时间：2023-08-23 13:53

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 And Target.Row < 5 Then
If Target <> "" And Not IsNumeric(Target) Then
MsgBox "你必须输入数字！"
Target = ""
Target.Select
End If
End If
End Sub

上述代码应该放入相应的sheet中（比如sheet1），不能放到模块中。
上述代码适用于A2:A4，如果要扩大适用范围，比如A2:C5，代码第二行应修改为：
If Target.Column < 4 And Target.Row > 1 And Target.Row < 6 Then
其他类推

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com