VBA查找下一个代码

textbox1为要查找的内容查找范围为第4列有文本的范围点击查找button,如果textbox1包含在第四列某行,(如textbox1=你好,第2行第四列=你好啊,一... textbox1为要查找的内容
查找范围为第4列有文本的范围
点击查找button,如果textbox1包含在第四列某行,(如textbox1=你好,第2行第四列=你好啊,一二三四)
所在行select, 跳出msgbox vbokcancel,点击ok查找下一个,cancel退出msgbox
初次接触vba在学编程 焦头烂额了
展开
 我来答 举报
庆年工坊
2016-06-04 · 知道合伙人互联网行家
庆年工坊
知道合伙人互联网行家
采纳数:4233 获赞数:8930

向TA提问 私信TA
展开全部
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构成循环
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式