Question

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

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运行窗体，分别在三个文本框中输入字符，可以发现“手机号”文本框中除了数字以外所有汉字和字母及“！”、“？”、“*”等符号已被严格限制。