怎样使用VBA强制用户输入数字？

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

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

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

4、在模块当中输入如下代码，然后运行

Private Sub TextBox2_Change()

    Dim iStr As String, iLast As Integer
    iStr=Me.TextBox2
    If Len(iStr) > 0 Then
      iLast=Asc(Right(iStr, 1))
      If iLast < 48 Or iLast > 57 Then Me.TextBox2=VBA.Left(iStr, Len(iStr)-1)
    End If
End Sub

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