VBA技术咨询：根据指定工作表标签颜色修改单元格字体颜色的代码失效问题排查

嘿，你的代码问题出在事件选错了！Worksheet_Change这个事件只有当工作表里的单元格内容被修改时才会触发，工作表标签颜色的变化完全不会触发它——相当于你在错误的地方守着，自然等不到触发修改V6字体颜色的时机。

正确的解决思路 #

要响应工作表标签颜色的变化，你需要用工作簿级别的Workbook_SheetTabColorChange事件，这个事件就是专门用来监听任意工作表标签颜色变更的。

修复后的代码 #

把下面这段代码放到ThisWorkbook模块里（右键点击工作簿窗口的「ThisWorkbook」→「查看代码」，然后粘贴进去）：

Private Sub Workbook_SheetTabColorChange(ByVal Sh As Object, ByVal OldColorIndex As Long)
    ' 只针对名为"Test"的工作表做处理
    If Sh.Name = "Test" Then
        ' 判断当前标签颜色是否为红色(vbRed对应的ColorIndex是3)
        If Sh.Tab.ColorIndex = vbRed Then
            ' 明确操作Test工作表的V6单元格，避免歧义
            Sh.Range("V6").Font.Color = vbRed
        Else
            ' 可选：如果标签颜色不是红色，把V6字体改回默认黑色，不需要可以删掉这部分
            Sh.Range("V6").Font.Color = vbBlack
        End If
    End If
End Sub

额外注意点 #

• 不要把这段代码放到单个工作表的模块里，必须放在ThisWorkbook中，因为这是工作簿级别的事件。
• 用Sh.Range而不是直接写Range，是为了确保操作的就是标签颜色变化的那个工作表（也就是Test）的单元格，避免当前激活的是其他工作表时出错。
• 如果你不需要在标签颜色变回非红色时恢复字体颜色，可以把Else块整个删掉。

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