### 创建自定义查找窗口 UserForm 为了实现一个用于当前工作表的自定义查找窗口 `UserForm`，需要编写一系列 VBA 代码来构建和管理这个窗体的行为。下面将详细介绍如何创建并配置此功能。 #### 定义 UserForm 结构 首先，在 VBA 编辑器中插入一个新的用户窗体 (`UserForm`) 并设计其布局。通常会包含文本框供输入要查找的内容、按钮触发查找操作以及列表框展示匹配项等组件[^2]。 ```vba ' 插入新用户窗体 (Insert -> User Form)，命名为 FindWindow ' 添加 TextBox 名为 txtFindText ' 添加 CommandButton 命名为 cmdFindNext 和 cmdCancel ' 添加 ListBox 命名为 lstResults ``` #### 实现查找逻辑 接着是在 `UserForm` 中加入必要的事件处理程序以支持基本的功能需求： - **初始化**：加载时准备环境； - **执行查找**：根据用户的输入遍历单元格寻找符合条件的数据条目； - **更新结果显示**：每当找到新的记录就刷新列表视图； 以下是具体的编码示范： ```vba Private Sub UserForm_Initialize() ' 初始化设置 End Sub Private Sub cmdFindNext_Click() Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet With Application.FindFormat.Clear .Value = Me.txtFindText.Value For Each cell In ws.UsedRange.Cells If Not Intersect(cell, ws.Range("A:A")) Is Nothing And _ LCase(cell.Text) Like "*" & LCase(Me.txtFindText.Value) & "*" Then Me.lstResults.AddItem "Row:" & cell.Row & ", Col A Value: " & cell.Value End If Next cell End With End Sub Private Sub cmdCancel_Click() Unload Me End Sub ``` 这段脚本实现了简单的字符串匹配查找，并把结果添加到列表框里显示出来。注意这里只针对列A进行了搜索，可以根据实际应用场景调整范围或条件[^1]。 #### 绑定至工作簿事件 为了让查找工具更方便地被访问，还可以考虑利用工作簿级别的事件处理器自动呈现该对话框给用户。例如可以在 `ThisWorkbook` 对象下监听特定的工作表激活动作，从而适时弹出查找面板。 ```vba Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "目标工作表名称" Then FindWindow.Show vbModeless Else Unload FindWindow End If End Sub ``` 上述方法确保了仅当指定的目标工作表处于活动状态时才会显现查找界面，提高了用户体验的一致性和直观度。