VBA-如何根据公式/单元格值更改标签颜色（跨多个标签）

Question

我有一个工作簿，其中有多个选项卡-50个原始数据表和50个“分析”表位于每个数据表旁边（因此，数据表1，分析表1，数据表2，分析表2等等）。

如果每个分析选项卡中触发了一个主“破产”公式，我希望每个分析表的标签颜色都变为红色。 因此，如果每个分析表中的单元格D25都是该公式的位置（类似于= if（and（X = True，Y = True，Z = True），“ True”，“ False”），我该怎么写该模块仅适用于工作表名称中带有“分析”的工作表名称，并且如果我添加新的标签，则不必重写（例如，我得到了60个标签而不是50个标签集）。

提前谢谢了！！

Answer 1

将下面的事件宏放在每个分析工作表的代码区域中：

Private Sub Worksheet_Calculate()
    If Range("D25").Text = "False" Then
        ActiveWorkbook.ActiveSheet.Tab.Color = 255
    Else
        ActiveWorkbook.ActiveSheet.Tab.Color = 15773696
    End If
End Sub

假设“ False”表示红色