如何实现CellA背景色变更时自动同步CellB？Worksheet_Change无效

当修改A列单元格的背景填充色时，希望同行B列单元格自动同步相同背景色。尝试用Worksheet_Change事件实现，但该事件无法检测到背景色变更，请问还有哪些方法可以检测单元格背景色的变更？

尝试的代码如下：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim ColA As Range, ColB As Range

            Set ColA = Application.Intersect(Target, Me.Columns("A"))
            If ColA Is Nothing = False Then                                 
                 MsgBox ("bg changed")

                 For Each ColB In ColA.Cells
                      ColB.EntireRow.Columns("B").Interior.ColorIndex = ColB.Interior.ColorIndex
                 Next ColB 
            End If

End Sub

方法1：Worksheet_SelectionChange结合颜色缓存 #

通过记录选中单元格的初始背景色，在切换选中状态时对比颜色是否变化，实现检测：

Dim prevColor As Long
Dim prevCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 检查之前选中的A列单元格是否发生颜色变更
    If Not prevCell Is Nothing And Not Intersect(prevCell, Me.Columns("A")) Is Nothing Then
        If prevCell.Interior.Color <> prevColor Then
            prevCell.EntireRow.Columns("B").Interior.Color = prevCell.Interior.Color
        End If
    End If
    
    ' 更新缓存的单元格和对应颜色
    If Target.Cells.Count = 1 Then
        Set prevCell = Target
        prevColor = Target.Interior.Color
    Else
        Set prevCell = Nothing
    End If
End Sub

注意：仅能检测用户手动修改的背景色，需通过切换单元格选中状态触发检测。

方法2：Application.OnTime定时检查 #

设置定时任务，周期性对比A列单元格的颜色记录，捕获变更：

Dim colorCache As Collection

Private Sub Worksheet_Activate()
    ' 初始化A列单元格颜色缓存
    Set colorCache = New Collection
    Dim cell As Range
    For Each cell In Me.Columns("A").Cells
        If cell.Row <= Me.UsedRange.Rows.Count Then
            colorCache.Add cell.Interior.Color, Key:=CStr(cell.Address)
        End If
    Next
    ' 启动1秒间隔的定时检查
    Application.OnTime Now + TimeValue("00:00:01"), "CheckColorChanges"
End Sub

Private Sub Worksheet_Deactivate()
    ' 停止定时任务
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "CheckColorChanges", Schedule:=False
    On Error GoTo 0
End Sub

Sub CheckColorChanges()
    Dim cell As Range
    For Each cell In Me.Columns("A").Cells
        If cell.Row <= Me.UsedRange.Rows.Count Then
            ' 对比缓存颜色与当前颜色
            If colorCache(CStr(cell.Address)) <> cell.Interior.Color Then
                ' 同步B列颜色
                cell.EntireRow.Columns("B").Interior.Color = cell.Interior.Color
                ' 更新缓存记录
                colorCache.Remove CStr(cell.Address)
                colorCache.Add cell.Interior.Color, Key:=CStr(cell.Address)
            End If
        End If
    Next
    ' 继续触发下一次检查
    Application.OnTime Now + TimeValue("00:00:01"), "CheckColorChanges"
End Sub

此方法可检测格式刷、手动修改条件格式等操作导致的颜色变更，可根据需求调整检查间隔，间隔越短资源占用越高。

方法3：条件格式结合VBA辅助（非实时触发） #

若无需实时同步，可通过条件格式+少量VBA实现：

1. 选中B列目标区域，创建条件格式规则，选择「使用公式确定要设置格式的单元格」
2. 输入公式=A1<>""，设置填充格式为「匹配A1单元格颜色」（部分Excel版本需用VBA绑定格式）
3. 补充VBA代码在工作簿打开时刷新条件格式，确保颜色同步

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