首先VBA编辑器里,插入一个窗体,窗体名称改成:FrmMain,在该窗体上画一个控件TextBox1,画一个命令按钮CommandButton1。如下:
双击“CommandButton1” ,写入以下代码,可以限制TextBox1输入的内容“非空”且长度不超过4且为汉字,不能是数字和其他符号,代码如下:
Private Sub CommandButton1_Click()If FrmMain.TextBox1.Text = "" Then '判断非空MsgBox "请填报姓名!", vbOKOnly, "提示"Exit SubEnd IfIf Len(FrmMain.TextBox1.Text) > 4 Then '判断姓名长度FrmMain.TextBox1.Text = ""MsgBox "姓名长度超过4个字,请重新输入!", vbOKOnly, "提示"Exit SubEnd IfWith CreateObject("vbscript.regexp") '判断只能输入中文.Global = True.Pattern = "[^\u3447-\uFA29]"If .Test(FrmMain.TextBox1.Text) ThenFrmMain.TextBox1.Text = ""MsgBox "只能输入中文汉字", vbOKOnly, "提示"End IfEnd WithEnd Sub