怎么Excel插入一个搜索框后，实现跨sheet表格查找？

Question

如下图：我已经插入一个搜索框，我想在这个搜索框中输入内容，按回车 就能直接定位到相应的Sheet表里面对应的位置，怎么实现呢？就像网页一样的搜索，怎么才能实现？

Answer 1

在Excel中，要实现跨工作表（sheet）查找并插入一个搜索框，你可以使用VBA（Visual Basic for Applications）来创建一个自定义的搜索功能。以下是一个基本的步骤指南：

步骤 1: 创建搜索框

打开Excel，并转到你想放置搜索框的工作表。

在开发工具（Developer）选项卡中，点击“插入”（Insert），然后选择“文本框”（Text Box）。如果你没有看到“开发工具”选项卡，你需要先通过“文件” > “选项” > “自定义功能区”来启用它。

在工作表上拖动鼠标创建一个文本框作为搜索框。

步骤 2: 编写VBA代码

按 Alt + F11 打开VBA编辑器。

在左侧的项目浏览器中，右键点击你的工作簿名称，然后选择“插入” > “模块”。

在新模块的代码窗口中，复制并粘贴以下代码。这段代码将在你点击搜索按钮时执行跨工作表的搜索。

vba复制代码

Sub SearchAllSheets()    

Dim searchTerm As String    

Dim ws As Worksheet    

Dim foundCell As Range    

Dim firstAddress As String    

' 获取搜索框中的文本    

searchTerm = ThisWorkbook.Sheets("Sheet1").TextBox1.Value ' 假设搜索框在工作表"Sheet1"上，并且其名称为"TextBox1"    

If searchTerm = "" Then Exit Sub ' 如果搜索框为空，则退出    

' 在所有工作表中搜索    

For Each ws In ThisWorkbook.Sheets    

' 避免在搜索框所在的工作表上搜索    

If ws.Name <> "Sheet1" Then    

Set foundCell = ws.UsedRange.Find(searchTerm)    

If Not foundCell Is Nothing Then    

' 如果找到匹配项，则选中它    

foundCell.Select    

' 你可以在这里添加更多代码，比如高亮显示找到的单元格等    

Exit For ' 找到后退出循环    

End If    

End If    

Next ws    

End Sub    

注意：你需要根据你的实际情况修改代码中的工作表名称和文本框名称。

步骤 3: 创建搜索按钮

回到Excel，在工作表上创建一个按钮。可以通过“开发工具”选项卡中的“插入” > “按钮”来完成。

右键点击新创建的按钮，选择“分配宏”（Assign Macro），然后从列表中选择你刚才创建的SearchAllSheets宏。

可以调整按钮的大小和位置，以适应你的工作表布局。

现在，当你点击搜索按钮时，VBA代码将执行跨工作表的搜索，并选中第一个找到的匹配项。你可以根据需要进一步扩展或修改代码，以满足你的具体需求。

Answer 2

在 Excel 中，如果你想实现跨工作表（sheet）查找数据并在一个搜索框中显示结果，你可以使用 Excel 的内置函数和特性来完成这个任务。以下是一个基本的步骤指南，帮助你设置跨工作表查找功能：

步骤 1: 创建搜索框
打开 Excel 并转到你想放置搜索框的工作表。
插入一个文本框：点击“插入”选项卡，在“文本”组中选择“文本框”。
调整文本框大小 并将其放置在适当的位置。
步骤 2: 编写查找公式
假设你的数据 分布在不同的工作表中，例如 "Sheet1", "Sheet2", "Sheet3" 等。

在一个空白列（例如，列 A）中，你可以使用 IFERROR 和 VLOOKUP 或 INDEX 和 MATCH 组合的函数来跨工作表查找数据。