VB或者VBS搜索excel表格的问题

我这里有个筛选功能的代码。自己加入去，再加个按钮或图片之类的，右键>指写宏，就可以直接筛选了。希望能帮到你。
Sub 筛选()
Dim str1 As String
str1 = Application.InputBox(prompt:="请输入要筛选的关键词。" & Chr(10) & Chr(10) & _
"空字符将显示全部数据。", Title:="筛选", Type:=2)

If str1 = "False" Then Exit Sub '取消则结束程序
If str1 = "" Then
Worksheets("产品明细").Range("A1").AutoFilter field:=9
'指定筛选列，=9就是第九列（i列），“产品明细”是表名称。下同。
Else
Worksheets("产品明细").Range("A1").AutoFilter field:=9, Criteria1:="*" & str1 & "*"
End If
End Sub

工程-》引用-》excel
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As New Excel.Worksheet

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "1.xls")
xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(1)

For i = 1 To 100
For j = 1 To 100

If xlSheet.Cells(i, j) Like Text3 Then
Text1 = i
Text2 = j
GoTo a

End If

Next j
Next i
a:

End Sub

把1.xls文件和程序放到同一文件夹下
添加 3个text 和一个 按钮

先建一个按钮控件,然后在里面写下以下代码:
Cells.Find(What:=[XX], After:=ActiveCell).Activate

其中:[XX]里面的XX是单元格,比如:A1

或者:
建一个按钮控件,再建一个文本框控件(textbox1),
A1=textbox1.text
Cells.Find(What:=[A1], After:=ActiveCell).Activate

查找功能不就能实现吗