文件搜索弹窗的使用与关闭

shi7361

我使用按钮激发宏进行文件搜索与定位；

比如搜索食品安全，那么会在每一个含有关键字的单元格之间跳转；

但是，但是；这个搜索中间无法关闭，一直到完整才退出；

如何在找到目标文件后，点击关闭按钮直接终止宏运行？

谢谢

shi7361

哪位老师在线帮个忙呗！谢谢

shi7361

代码如下：
Sub 查找()
   Dim cel As Range
xx = InputBox("请输入关键字：", "查找提示", "食品安全")
If xx <> "" Then
   For Each cel In Sheets("sheet1").Range("b2", Sheets("sheet1").[b65536].End(3))
      If cel.Value Like "*" & xx & "*" Then
         Sheets("sheet1").Activate
         cel.Select
         MsgBox "Sheet1" & cel.Address(0, 0)
      End If
   Next
Else
   '...
End If
End Sub

shi7361

为啥没人看帖呢？

ksmydn

楼主，最近使用了您的“出入库系统6-4.9”，非常棒，有些小问题想向您请教，方便联系下我吗？QQ号码：1484932，邮箱 ：1484932@qq.com

ksmydn

Sub 查找2()
   Dim cel As Range
xx = InputBox("请输入关键字：", "查找提示", "关键字")
If xx <> "" Then
   For Each cel In Sheets("sheet1").Range("b2", Sheets("sheet1").[b65536].End(3))
      If cel.Value Like "*" & xx & "*" Then
         Sheets("sheet1").Activate
         cel.Select
         If MsgBox("Continue?", vbYesNo, "Sheet1" & cel.Address(0, 0)) = vbNo Then Exit Sub
      End If
   Next
Else
   '...
End If
End Sub

ksmydn

Msgbox增加了是否需要继续的选择，YES继续，NO退出

shi7361

ksmydn 发表于 2018-7-25 09:59
Msgbox增加了是否需要继续的选择，YES继续，NO退出

才看到，非常好，感谢！