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