wps execl

admin

Private Sub CommandButton1_Click()
On Error GoTo xxx
Range("a:a").Find(TextBox1.Text, , , 1).Select
GoTo yyy
xxx:
MsgBox "未找到！"
yyy:
End Sub