作者：乔山办公网日期：
返回目录：excel表格制作
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 2) = "模板" Then
Sheets(i).[1:1048576].Find (a1)
End If
Next
一定要按钮吗？这个就是Excel的查找功能，按Ctrl+F就出来了
出于练习的话636f70797a64361，加个按钮，代码如下：
Option Explicit
Private Sub CommandButton1_Click()
Dim ttlC%, ttlR%, i%, j%, mTar$
ttlC = ActiveSheet.UsedRange.Columns.Count
ttlR = ActiveSheet.UsedRange.Rows.Count
mTar = InputBox("请输入要查找的值 ", "Search: ")
ActiveSheet.UsedRange.Interior.Pattern = xlNone
For i = 1 To ttlC '按列查找
For j = 1 To ttlR
If Cells(j, i).Value = mTar Then GoTo mselect
Next j
Next i
If i >= ttlC Then MsgBox "没有打到要查询的值", vbOKOnly, "Search: "
End
mselect:
Cells(j, i).Select
ActiveCell.Interior.Color = vbYellow
End Sub
根据你的图片，要实百现按钮查询功能，其实很简单。
首先，右键点击查询汇度总问按钮，选择【指定宏】；
然后，在弹出的VBA界面中，输入以下代码：
Sub 查询汇总答()
'定义接口专变量
Dim obj As Object
'获取通用Excel 的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
'通过接口调用表间取数公式
obj. execFormula "查询汇总"'这里输入你设置的表间取数公式的名称
'释放编程接口
Set obj = Nothing
End Sub
最后，保存退出VBA编辑器，右键按钮，选择属VBA名称即可。