Question

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

如果在每个分析选项卡中触发主“胸围”公式，我希望能够让每个分析表的标签颜色变为红色。因此，如果每个分析表中的单元格D25是该公式的位置（类似于= if（和（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”表示红色

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

1 个答案: