关于用VBA查找整个工作表的问题！

我这边有一个仓库台账，里面记录仓库中不同的物品信息，不同的物品类型在不同的sheet中，而且这些sheet都是隐藏的，只有一个目录的sheet是非隐藏的。现在我想做一个查询功能，就是设置一个按钮，点击按钮弹出对话框，输入想要查询的信息后，点击查询，这时执行程序对整个工作表进行查找（包括隐藏的工作表），查到想要的内容后光标直接选中那个单元格，如果单元格所在的sheet是隐藏的，那么先取消隐藏然后跳转到那个sheet选中查找的单元格。（其实类似excel本身带的ctrl+F这个功能，只是本身的那个查找功能只能查找当前工作表，而不能对整个工作表进行查询，对于隐藏的工作表更不能进行查询了，简单说，我想要ctrl+F这样类似的查找功能，只是这个功能多了对整个工作表包括隐藏工作表的查询）。求高人，在线等！

Sub a()
    Dim sht As Worksheet, r As Range

    For Each sht In Sheets
        Set r = sht.Cells.Find(What:="a") '在工作表中查找
        If Not r Is Nothing Then   '如果找到
            sht.Visible = xlSheetVisible    '取消工作表隐藏
            sht.Activate   '激活工作表
            r.Activate   '使查到的单元格成为活动单元格
            Exit For     '不再继续查找
        End If
    Next
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息