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”表示紅色