VBA查找下一个代码
textbox1为要查找的内容查找范围为第4列有文本的范围点击查找button,如果textbox1包含在第四列某行,(如textbox1=你好,第2行第四列=你好啊,一...
textbox1为要查找的内容
查找范围为第4列有文本的范围
点击查找button,如果textbox1包含在第四列某行,(如textbox1=你好,第2行第四列=你好啊,一二三四)
所在行select, 跳出msgbox vbokcancel,点击ok查找下一个,cancel退出msgbox
初次接触vba在学编程 焦头烂额了 展开
查找范围为第4列有文本的范围
点击查找button,如果textbox1包含在第四列某行,(如textbox1=你好,第2行第四列=你好啊,一二三四)
所在行select, 跳出msgbox vbokcancel,点击ok查找下一个,cancel退出msgbox
初次接触vba在学编程 焦头烂额了 展开
1个回答
展开全部
1 2 3 4 5 6 7 8 9 10 11 12 | Private Sub CommandButton1_Click() Set rg = [d:d].Find(TextBox1.Text, lookat:=xlPart) If Not rg Is Nothing Then Rows(rg.Row). Select n = MsgBox( "" , vbOKCancel) While n = vbOK Set rg = [d:d].FindNext(rg) Rows(rg.Row). Select n = MsgBox( "" , vbOKCancel) Wend End If End Sub |
追问
亲测完美运行!请这位老师翻译下代码,尤其是lookat:=xlpart 这句和wend这句 谢谢!
追答
lookat:=xlpart ‘find参数,表示部分匹配
wend’与while构成循环
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询