VBAを使用して、場所に基づいてタブの色を変更する

Question

おはよう、

私は車の場所に基づいてタブの色を変更するために使用できるコードを見つけようとしています。

I.e. Vehicle1 は青 などなど

に赤 もしlocationCの変更]タブの色に白 もしlocationBの変更]タブの色にlocationA変更タブの色にあり、場合、私は複数のワークシートにこれを実行する必要があります。現在、車両の位置は表紙に記載されています。個々のワークシートでは、カバーシートを参照として使用して、自分のワークシートのセル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イベントが発生すると、これを実行できます。

これを実装するのに苦労したら、私に頭を下げてください。私は助けてくれるでしょう。