使用VBA根據位置更改標籤顏色

Question

早上好，

我想弄清楚一個代碼，我可以使用該代碼更改基於車輛位置的標籤顏色。

I.e.如果Vehicle1 是locationA的變化選項卡顏色爲白色 如果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設置引用表標籤的顏色。例如，您可以在「封面」_change事件觸發時運行此操作。

如果你爲實現這個目標而奮鬥，那就給我一個提醒，我會很樂意提供幫助。