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

早上好

我试图找出一个代码，我可以使用它根据车辆位置更改选项卡颜色

即如果车辆1 位于位置A将选项卡颜色更改为白色 如果在位置B，则将选项卡颜色更改为红色 如果在位置C，则将选项卡颜色更改为蓝色 等等

---

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

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

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

工作表（i）.Tab.ColorIndex

设置参考图纸选项卡的颜色。例如，您可以在触发“cover sheet”

\u change

事件时运行此操作

---

如果您很难实现这一点，请提醒我，我很乐意提供帮助。

好的。那你被困在哪一部分？请澄清您的问题-请注意，本网站上没有人希望为您实施解决方案。欢迎访问SO。这不是一个“我的代码”网站。请阅读并根据实际尝试修改您的问题。