错误"1004",该怎么解决?

linghuwc

错误"1004",该怎么解决?

你在窗体"身份证号码"中输入5个数字看看.

该怎样解决?

能不能给个提示.如"输入错误,请重新输入"等等.

谢谢!!!!!

方漠

Try below code:

Private Sub TextBox1_Change()

If Len(TextBox1.Text) = 5 Then
For Y = 1 To Sheets("sheet2").[B65536].End(xlUp).Row
   If Right(Sheets("sheet2").Cells(Y, 2), 5) = TextBox1.Text Then
      XX = Y
      GoTo 100
   End If
Next Y

MsgBox "No matched records.", vbInformation
TextBox2 = vbNullString
TextBox1 = vbNullString

Exit Sub

100:
  TextBox2 = Sheets("sheet2").Cells(XX, 1)
  TextBox1 = Sheets("sheet2").Cells(XX, 2)
  
End If

linghuwc

不行啊.

编译错误:缺少"end sub"

linghuwc

谢谢方老师了,

问题解决了