admin 发表于 2021-11-1 17:15:10

wps execl

Private Sub CommandButton1_Click()
On Error GoTo xxx
Range("a:a").Find(TextBox1.Text, , , 1).Select
GoTo yyy
xxx:
MsgBox "未找到！"
yyy:
End Sub
页: [1]
查看完整版本: wps execl