[已解决]如何判断文本框中输入的内容是否为数字

向前650809

各位网友好，现有文本框，要求输入的内容为数字。想这样设计，当输入完内容后，焦点离开或按了回车键，就判断其内容是否为数字，如是继续，如不是数字，内容清空，并提示，内容应为数字。但代码不知如何写出，也不知代码应放在文本框的哪个事件中。
请指导，谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2013-9-12 18:40

Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1.Value) And TextBox1.Value <> "" Then
        Application.EnableEvents = False
        MsgBox "你必须输入数字！"
        TextBox1 = ""
        Application.EnableEvents = True
    End If
End Sub

跳转到最佳答案楼层

zjdh

Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1.Value) And TextBox1.Value <> "" Then
        Application.EnableEvents = False
        MsgBox "你必须输入数字！"
        TextBox1 = ""
        Application.EnableEvents = True
    End If
End Sub

zjdh

还可以放在以下事件中
Exit
AfterUpdate
KeyUp
..........