Excel VBA 搜索框：高亮显示匹配单元格

以下是一个基于 Excel VBA 的搜索框示例代码，它可以在搜索后使用红色填充匹配到的单元格：

Option Explicit

Private Sub SearchBox_Change()
    Dim searchText As String
    Dim searchRange As Range
    Dim cell As Range
    
    ' 获取搜索框中的文本
    searchText = Me.SearchBox.Value
    
    ' 定义搜索范围（这里假设搜索的是 A 列）
    Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A100")
    
    ' 清除之前的填充
    searchRange.Interior.Pattern = xlNone
    
    ' 遍历搜索范围，找到匹配的单元格并填充为红色
    For Each cell In searchRange
        If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then
            cell.Interior.Color = RGB(255, 0, 0) ' 红色填充
        End If
    Next cell
End Sub

设置搜索框：

1. 打开 Excel 文件并按下 Alt+F11 打开 VBA 编辑器。
2. 在 VBA 编辑器中，选择插入 -> 用户窗体。
3. 在用户窗体中，添加一个文本框（称为 SearchBox）。
4. 在用户窗体代码模块中粘贴上述代码。

现在，当你在搜索框中输入文本并进行更改时，代码将搜索工作表中的 A 列，找到匹配的单元格并将其填充为红色。请根据需要修改代码中的搜索范围和填充颜色。