方法 2:插入文本框(ActiveX 控件)
通过 ActiveX 控件创建一个自定义的搜索框,并结合 VBA 实现自动跳转:
1、启用开发工具:
如果未显示“开发工具”选项卡,点击“文件” “选项” “自定义功能区”,勾选“开发工具”。
2、插入文本框控件:
在“开发工具”选项卡中,点击“插入”,选择“文本框 (ActiveX 控件)”。
拖动鼠标,在工作表上绘制一个文本框。
3、配置事件代码:
右键单击文本框,选择“查看代码”。
在打开的 VBA 编辑器中,输入以下代码示例:
vba
Private Sub TextBox1_Change()
Dim ws As Worksheet
Dim cell As Range
Dim searchText As String
searchText = Me.TextBox1.Text
For Each ws In ThisWorkbook.Worksheets
If ws.Name < Me.Name Then
For Each cell In ws.UsedRange
If InStr(cell.Value, searchText) 0 Then
ws.Activate
cell.Select
Exit Sub
End If
Next cell
End If
Next ws
End Sub