### 创建用于查找当前活动工作表内容的自定义 UserForm 为了实现这一功能，在 Excel VBA 中可以设计并编程一个名为 `FindContent` 的用户窗体 (UserForm)，该窗体会提供输入框让用户指定要查找的文字以及显示找到的结果。 #### 设计 FindContent 用户窗体 1. 打开 Visual Basic for Applications 编辑器； 2. 插入一个新的用户窗体 (`Insert > UserForm`) 并命名为 `FindContent`； 在 `FindContent` 上添加如下控件： - TextBox 控件：供用户输入待查字符串，设其名称为 txtSearchText。 - CommandButton 控件：触发搜索过程，标签设置为 “查找”，命令按钮名设为 cmdFind。 - ListBox 控件：用来展示匹配项的位置信息，列表框名字定作 lstResults。 ```vba Private Sub cmdFind_Click() Dim ws As Worksheet Set ws = ActiveSheet ' 获取当前激活的工作表 With Me.lstResults .Clear ' 清除旧数据 Dim cell As Range, firstAddress As String Dim searchRange As Range Set searchRange = ws.Cells ' 定义整个工作表作为搜索范围 With searchRange.Find(Me.txtSearchText.Value, LookIn:=xlValues, lookat:=xlPart) If Not .IsNothing Then firstAddress = .Address Do .AddItem "Found at: " & .Address Set foundCell = searchRange.FindNext(after:=foundCell) Loop While Not foundCell Is Nothing And foundCell.Address <> firstAddress Else MsgBox "No matches found." End If End With End With End Sub ``` 此代码片段实现了点击“查找”按钮后的逻辑处理流程。通过遍历选定区域内所有单元格寻找与文本框内键入值相匹配的内容，并将发现位置记录到列表框里[^1]。 对于上述提到的操作，还可以进一步优化界面布局和交互体验，比如增加进度条指示正在执行的任务、支持区分大小写的选项或是允许多关键字组合查询等功能。