如何在excel中，做一个固定的查找框？求教。。。。

Question

excel一个文档里有多个工作表，数据比较多，虽然工作表已经都命名了，但是每次ctrl+F觉得也有些繁琐，能不能在excel的首页里，做一个固定的搜索查找的框，只需要把我需要查找的内容输入进去之后，会自动跳转到我需要的工作表的单元格。
例如：人事档案
我只需要输入这个人的名字，就自动跳转到那一页的工作表。
例如：查找商品
只需要输入商品名称，会跳转到相应的工作表中的相应单元格。

求教各位高手了。。。。在此先感谢各位了！！！
在线等候。。。

Answer 1

Function mySearch(str As String)
Dim shet As Worksheet
Dim cel As Range
For Each shet In ThisWorkbook.Worksheets
If myShetSearch(shet, str, cel) Then
shet.Select
cel.Select
Exit Function
End If
Next
msgbox("没有找到数据")
End Function

Function myShetSearch(shet As Worksheet, str As String, cel As Range) As Boolean
On Error GoTo L_end
Set cel = shet.UsedRange.Find(what:=str, LookIn:=xlValues, lookat:=xlPart)
myShetSearch = True
Exit Function
L_end:
myShetSearch = False
Debug.Print Err.Description
End Function

'使用方法
Sub Macro1()
Call mySearch("q")
End Sub

使用局限：从第一个表格开始查找，找到第一个符合条件的单元格，如果后面还有，则找不到

Answer 2

你工作表要是很有规律的话，可以用vlookup提取相应的数据的呀

可以上传你的工作表来研究一下解决方案追问

现在是需要重新做一份工作表，想要把数据重新整理一下。原有的都需要做一定的删减。
所以目前没有可以提供的工作表可以研究。所以才苦恼。

追答

没有源文件怎么样帮你呢？