写一个EXCEL VB搜索框搜索后用红色填充单元格

以下是一个基于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列，找到匹配的单元格并将其填充为红色。请根据需要修改代码中的搜索范围和填充颜色