使用VBA根据位置更改选项卡颜色

Question

早上好，

我正在尝试找出一个可以根据车辆位置更改标签颜色的代码。

即。如果是Vehicle1 在位置A将标签颜色更改为白色 如果在locationB中将标签颜色更改为红色 如果在locationC中将标签颜色更改为蓝色 等等

我需要为多个工作表执行此操作。目前，车辆的位置在封面页上。每个单独的工作表使用封面页作为参考，以在其自己的工作表的单元格F2中显示其位置。

Answer 1

您可能希望按照以下方式执行某些操作：

Public Sub Example()
    Select Case Worksheets(1).Range("B2").Value 'Location of Vehicle (LocationA, LocationB)
        Case "LocationA"
            Application.Worksheets(2).Tab.ColorIndex = 2 'White
        Case "LocationB"
            Application.Worksheets(2).Tab.ColorIndex = 3 'Red
    End Select
End Sub

Worksheets(i).Tab.ColorIndex设置引用的工作表标签的颜色。您可以在＆＃34;封面表＆＃34;例如，_change事件会触发。

如果你很难实现这一点，那就给我一个提醒，我会很乐意提供帮助。