如何让Excel宏自动响应公式计算的单元格值变更以修改标签颜色

Worksheet_Change事件仅对手动编辑单元格的操作做出响应，当J4的值由公式自动计算更新时，该事件不会被触发。要实现两种场景下都能自动修改工作表标签颜色，需要结合Worksheet_Calculate事件（工作表计算完成后触发），并将颜色更新逻辑抽成独立的复用过程。

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 手动修改J4时触发
    If Target.Address = "$J$4" Then
        UpdateTabColor
    End If
End Sub

Private Sub Worksheet_Calculate()
    ' 公式更新导致J4值变化时触发
    UpdateTabColor
End Sub

Private Sub UpdateTabColor()
    Dim statusText As String
    statusText = Me.Range("J4").Value
    
    Select Case statusText
        Case "Done"
            Me.Tab.Color = RGB(0, 176, 240)
        Case "In progress"
            Me.Tab.Color = RGB(255, 255, 0)
        Case "Not started"
            Me.Tab.Color = RGB(225, 225, 225)
        Case "Waiting for documentation"
            Me.Tab.Color = RGB(112, 173, 71)
        Case "Need further work on"
            Me.Tab.Color = RGB(255, 192, 0)
        Case "Not Applicable"
            Me.Tab.Color = RGB(166, 166, 166)
    End Select
End Sub

代码说明 #

1. Worksheet_Change：保留原有逻辑，仅在手动修改J4时调用颜色更新过程，避免不必要的触发
2. Worksheet_Calculate：每当工作表完成计算（包括公式更新J4的情况）时，自动调用颜色更新过程
3. UpdateTabColor：将颜色判断逻辑独立出来，让两个事件可以复用同一套规则，后续修改状态对应颜色时只需改这一处

内容的提问来源于stack exchange，提问作者Edward Ter Weeme