【VBA】シートの見出し色を設定【.Tabl.Colorと.Tab.ColorIndexを使う】

参考元：【VBA】シートの見出し色を設定【.Tabl.Colorと.Tab.ColorIndexを使う】
https://daitaideit.com/vba-sheet-tab-color/

　
　
シートの見出しの色を設定する

「.Tab.Color」でシート色を設定

Sub TEST1()
  
  'シート見出しの色を設定
  Sheets("Sheet1").Tab.Color = RGB(255, 255, 0)
  
End Sub

実行結果：

　
RGBの設定はExcelの設定から確認
塗りつぶしをしたセルを選択して、「ホーム」→「塗りつぶし」→「その他の色」を選択します。

「色の設定」画面で、「ユーザー設定」を選択すると、「RGB」の値を確認できます。

　
　
「.Tab.ColorIndex」でシート見出し色を解除
シート見出し色を解除するには、「.Tab.ColorIndex」に「xlNone」を設定します。

Sub TEST2()
  
  'シート見出しを塗りつぶしなし
  Sheets("Sheet1").Tab.ColorIndex = xlNone
  
End Sub

すべてのシート見出しの色を設定

Sub TEST3()
  
  'すべてのシート見出しの色を設定
  For i = 1 To Sheets.Count
    Sheets(i).Tab.Color = RGB(255, 255, 0) '黄色
  Next
  
End Sub

　
条件を指定してシート見出しの色を設定
「【重要】」のシート見出しの色を変更する、というのをやってみます。

Sub TEST5()
  
  For i = 1 To Sheets.Count
    '「【重要】」を含むシートを塗りつぶし
    If InStr(Sheets(i).Name, "【重要】") > 0 Then
      Sheets(i).Tab.Color = RGB(255, 255, 0) '黄色
    'それ以外は、塗りつぶしなし
    Else
      Sheets(i).Tab.ColorIndex = xlNone '塗りつぶしなし
    End If
  Next
  
End Sub