Excel本身并没有提供直接响应单元格填充颜色变化的内置事件（不像Worksheet_Change只响应内容修改），不过我们可以通过跟踪选中单元格的颜色变化来模拟这个需求。下面是两种实用的实现方式，根据你的场景选择：

方法一：基于单元格选中切换的监听（简单易实现） #

这种方法通过记录上一个选中单元格的颜色，在用户切换选中单元格时对比颜色是否变化，从而触发你的逻辑。适合大多数日常场景，操作简单。

步骤1：在目标工作表的代码模块中添加变量和事件 #

打开Excel的VBA编辑器（按Alt + F11），找到你需要设置的工作表（比如Sheet1），双击打开它的代码模块，粘贴以下代码：

' 模块级变量，用于记录上一个选中的单元格及其颜色
Private prevCell As Range
Private prevCellColor As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 只处理单个单元格的情况，避免多选混乱
    If Target.Cells.Count > 1 Then
        Set prevCell = Nothing
        prevCellColor = 0
        Exit Sub
    End If
    
    ' 检查是否有之前记录的单元格，且该单元格颜色已变化
    If Not prevCell Is Nothing Then
        If prevCell.Interior.Color <> prevCellColor Then
            ' 触发你的颜色判断逻辑，这里调用自定义处理过程
            Call HandleColorChange(prevCell)
        End If
    End If
    
    ' 更新记录：保存当前选中单元格及其颜色
    Set prevCell = Target
    prevCellColor = Target.Interior.Color
End Sub

' 自定义的颜色变化处理逻辑，这里写你的业务代码
Private Sub HandleColorChange(ByVal changedCell As Range)
    ' 示例：假设颜色列是B列，对应的文字列是C列（右侧相邻列）
    Dim textCell As Range
    Set textCell = changedCell.Offset(0, 1)
    
    ' 根据填充颜色设置对应文字，你可以根据实际需求修改颜色和文字映射
    Select Case changedCell.Interior.Color
        Case RGB(255, 0, 0) ' 红色
            textCell.Value = "优先级：高"
        Case RGB(0, 255, 0) ' 绿色
            textCell.Value = "状态：已完成"
        Case RGB(255, 255, 0) ' 黄色
            textCell.Value = "状态：待处理"
        Case RGB(192, 192, 192) ' 灰色
            textCell.Value = "状态：已归档"
    End Select
    
    ' 如果需要调用你原有的Search_Batch_Docs过程，直接在这里加：
    ' Call Search_Batch_Docs
End Sub

说明 #

• 当你修改某个单元格的填充颜色，然后点击其他单元格时，代码会自动检查之前的单元格颜色是否变化，触发处理逻辑。
• 如果需要针对特定列（比如只监听B列），可以在HandleColorChange里加判断：If changedCell.Column = 2 Then ...（2代表B列）。

方法二：即时监听颜色变化（无需切换单元格，复杂但精准） #

如果需要在修改颜色后立即触发逻辑，不需要切换单元格，就得用到Windows API钩子来监听Excel的界面操作。这种方法实现复杂，适合有一定VBA基础的用户，这里提供简化版示例：

步骤1：在标准模块中添加API声明和变量 #

插入一个新的标准模块（右键VBA项目→插入→模块），粘贴以下代码：

Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _
    ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Declare Function CallNextHookEx Lib "user32" ( _
    ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Declare Function GetCurrentThreadId Lib "kernel32" () As Long

Private hHook As Long
Private prevColor As Long
Private targetCell As Range

Public Sub StartColorMonitor()
    Set targetCell = ActiveCell
    prevColor = targetCell.Interior.Color
    hHook = SetWindowsHookEx(WH_CALLWNDPROC, AddressOf HookProc, 0, GetCurrentThreadId)
End Sub

Public Sub StopColorMonitor()
    If hHook <> 0 Then
        UnhookWindowsHookEx hHook
        hHook = 0
    End If
End Sub

Private Function HookProc(ByVal nCode As Long, ByVal wParam As Long, lParam As CWPSTRUCT) As Long
    If nCode >= 0 Then
        If Not targetCell Is Nothing Then
            If targetCell.Interior.Color <> prevColor Then
                Call HandleColorChange(targetCell)
                prevColor = targetCell.Interior.Color
            End If
        End If
    End If
    HookProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function

Private Type CWPSTRUCT
    lParam As Long
    wParam As Long
    message As Long
    hwnd As Long
End Type

Const WH_CALLWNDPROC = 4

步骤2：在工作表模块中添加触发逻辑 #

回到目标工作表的代码模块，添加：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        Call StopColorMonitor
        Set targetCell = Target
        prevColor = Target.Interior.Color
        Call StartColorMonitor
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call StopColorMonitor
End Sub

说明 #

• 这种方法会实时监控当前选中单元格的颜色变化，修改后立即触发逻辑，但需要注意在关闭工作簿时停止钩子，避免Excel崩溃。
• 由于涉及底层API，不同Excel版本可能存在兼容性问题，建议测试后使用。

注意事项 #

• 如果你只需要针对特定单元格（比如$B$1），可以在事件中添加判断：If changedCell.Address = "$B$1" Then Call Search_Batch_Docs。
• 颜色值可以用RGB(r,g,b)或者直接用Excel的颜色常量（比如vbRed），根据你的实际颜色编码调整。

内容的提问来源于stack exchange，提问作者Jordan