Excel条件格式使单元格背景变红时，如何通过VBA触发指定宏？

原有逻辑失效的本质原因 #

你之前使用的Worksheet_Change配合If Not Intersect(...) Is Nothing的判断逻辑，仅响应单元格实际值被编辑的场景——而条件格式触发的背景色变更属于纯格式层面的视觉变化，不会触发工作表原生的Change事件，因此这套逻辑完全无法捕捉到条件格式的触发时机。

推荐实现方案（无性能损耗，适配绝大多数版本） #

条件格式的触发本质依附于工作表的计算过程，我们可以绑定工作表的Calculate事件，在每次重算完成（和条件格式判定完全同步的时机）检查目标单元格的状态，匹配到触发红色背景的场景后自动运行指定宏。
具体代码需要写入对应工作表的代码模块（不要放入标准模块）：

Private Sub Worksheet_Calculate()
    Dim monitorRange As Range
    Dim currentCell As Range
    Dim redTriggeredCells As Range
    
    ' 替换为你需要监控的目标单元格区域
    Set monitorRange = Me.Range("A1:D100")
    
    For Each currentCell In monitorRange
        ' 读取单元格实际显示的颜色（包含条件格式生效后的效果）
        If currentCell.DisplayFormat.Interior.Color = RGB(255, 0, 0) Then
            If redTriggeredCells Is Nothing Then
                Set redTriggeredCells = currentCell
            Else
                Set redTriggeredCells = Union(redTriggeredCells, currentCell)
            End If
        End If
    Next currentCell
    
    ' 匹配到触发红色背景的单元格后，运行指定宏
    If Not redTriggeredCells Is Nothing Then
        ' 替换为你需要执行的宏名称
        Call 指定宏名(redTriggeredCells)
    End If
End Sub

关键注意事项 #

• 代码中使用的DisplayFormat属性，是Excel 2010及以上版本提供的专属属性，专门用于读取单元格应用条件格式、内置样式后的实际显示效果，和手动设置的Interior.Color属性不同——后者仅能读取用户手动设置的填充色，无法识别条件格式带来的格式变更。
• 如果使用的是低于2010版本的Excel，没有DisplayFormat属性，可以直接在代码中复刻你原本设置的条件格式判定规则：比如原规则是“单元格值大于100则标红”，就把代码里判断颜色的部分替换为If currentCell.Value > 100 Then，和条件格式的判定逻辑保持一致，即可实现相同的触发效果，无版本兼容问题。

对比之前的事件逻辑，这套方案的优势是不会遗漏触发场景：只要工作表完成重算（也就是条件格式完成判定的同一时间点），代码就会自动完成一次全量校验，没有后台轮询带来的额外性能占用。

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