Question

关于制作EXCEL查询按钮的问题

想要制作一个按钮，点击后会按照指定单元格的内容查找含有该内容的工作表各个工作表如图所示，查找范围为名称带模板的那些工作表
查找的时候只需要跳转到含有查找信息的工作表即可

Answer 1

根据你的图片，要实现按钮查询功能，其实很简单。

首先，右键点击查询汇总按钮，选择【指定宏】；
然后，在弹出的VBA界面中，输入以下代码：

1
2
3
4
5
6
7
8
9
10

Sub 查询汇总()
'定义接口变量
Dim obj As Object
'获取通用Excel 的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
'通过接口调用表间取数公式
obj. execFormula "查询汇总"'这里输入你设置的表间取数公式的名称
'释放编程接口
Set obj = Nothing
End Sub

最后，保存退出VBA编辑器，右键按钮，选择VBA名称即可。

Answer 2

For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 2) = "模板" Then
Sheets(i).[1:1048576].Find (a1)
End If
Next