Excel VBAでシートの見出しの色を変更する方法

Contents
• 今回の目標
• 説明
  • シートの見出しの色を変更する方法
  • シートオブジェクト.Tab.Color プロパティ
  • シートオブジェクト.Tab.ColorIndex プロパティ
  • 色の指定方法について
  • 色のサンプル
  • Tab.ColorIndex の数値と RGB関数の対応表
• シートの見出しの色を変更する
  • 1.定数を代入してシートの見出しの色を変更する
  • 2.RGB関数を使ってシートの見出しの色を変更する
  • 3.ColorIndex プロパティで色を変更する
  • 4.シートの見出しの色を他シートと入れ替える
  • 5.シートの見出しの色を初期化する
• 色を指定したらエラーが発生した！？
  • ColorIndex に 1 ～ 56 以外を代入した
• 関連リンク

今回の目標

「マクロでシートの色を変えられない？」や「ブックのシートの色を初期化できない？」と思ったあなたへ。 この記事では、シートの見出しの色を変更する方法や、ブックのシート全ての見出しの色を元に戻す方法等を解説します！
実務で使える具体例つきです。

目標リスト

• シートの見出しの色を変更できるようになる
• シートの見出しの色を初期化できるようになる

説明

シートの見出しの色を変更する方法

Excelでは、シートの見出し（シートの下にあるシート名が書かれたタブのこと）の色を変更できます。
マクロで、シートの見出しの色を変更したり、元に戻したりすることができます。

シートオブジェクト.Tab.Color プロパティ

シートオブジェクト.Tab.Color

シートの見出しの色を細かく指定したい場合、シートオブジェクトにある Tab オブジェクト の Color プロパティを使用します。
Color プロパティに、定数やRGB関数で返ってきた値を代入することと、色を指定できます。
※ Tab オブジェクトは、シートの見出しのことです。

シートオブジェクト.Tab.ColorIndex プロパティ

シートの見出しの色を簡単に変更したい場合、シートオブジェクトにある Tab オブジェクト の ColorIndex プロパティを使用します。 Tab オブジェクトは、シートの見出しのことです。 ColorIndex プロパティに対応した 1 ～ 56 を代入することで、色を指定できます。
数値で指定するため、何色を指定したか直感的でなく、可読性が下がります。 特別な理由がない限り、Tab.Color プロパティを使用しましょう。

シートオブジェクト.Tab.ColorIndex

色の指定方法について

ExcelVBAで色を指定する場合、主に３通りあります。

１つ目は Color プロパティに、定数を代入する方法です。「vbBlack」なら黒、「vbGreen」なら緑です。８種類あります。
なお、色を初期化する（無色にする）場合は「False」を代入します。

２つ目は Color プロパティに、RGB関数を使用して数値を代入する方法です。
Red（赤）、Green（緑）、Blue（青）」の3色を 0〜255 の数値で混ぜて、好きな色を作れます。 例えば、RGB(255, 0, 0) は赤、RGB(0, 255, 0) は緑、RGB(0, 0, 255) は青になります。 他には、RGB(255, 255, 255) は白、RGB(0, 0, 0) は黒、RGB(255, 255, 0) は黄色、RGB(0, 255, 255) は水色、RGB(255, 0, 255) はマゼンタになります。

３つ目は ColorIndex プロパティに、1 ～ 56 を代入する方法です。
この「56」はExcelの標準パレットの番号です。 ColorIndex に 1 を代入すると黒、2 を代入すると白になります。56まで対応した色が振られています。
なお、色を初期化する（無色にする）場合は定数「xlNone」を代入します。

色のサンプル

シートの見出しの色は、アクティブなシートと非アクティブなシートで見え方が異なります。 下の表では、定数と対応するRGB値を示しています。画像で色の違いを確認してみましょう。 ※ ColorIndex は 1 ～ 8 のみ となります。

色	定数	ColorIndex	RGB値	非アクティブ	アクティブ
黒	vbBlack	1	RGB(0, 0, 0)
白	vbWhite	2	RGB(255, 255, 255)
赤	vbRed	3	RGB(255, 0, 0)
緑	vbGreen	4	RGB(0, 255, 0)
青	vbBlue	5	RGB(0, 0, 255)
黄	vbYellow	6	RGB(255, 255, 0)
マゼンタ	vbMagenta	7	RGB(255, 0, 255)
シアン	vbCyan	8	RGB(0, 255, 255)
初期化	(False)	xlNone	(対応無し)

Tab.ColorIndex の数値と RGB関数の対応表

Tab.ColorIndex の数値と RGB関数の対応表です。

シートの見出しの色を変更する

1.定数を代入してシートの見出しの色を変更する

Color プロパティに定数を代入して、シートの見出しの色を変更する方法です。
サンプルコードでは、定数を使い、"Sheet1" を「赤」、"Sheet2" を「緑」、"Sheet3" を「青」に変更します。

Sub SampleSheetTabColor1()
    ' "Sheet1" の見出しを「赤」にする
    Worksheets("Sheet1").Tab.Color = vbRed
    ' "Sheet2" の見出しを「緑」にする
    Worksheets("Sheet2").Tab.Color = vbGreen
    ' "Sheet3" の見出しを「青」にする
    Worksheets("Sheet3").Tab.Color = vbBlue
End Sub

2.RGB関数を使ってシートの見出しの色を変更する

Color プロパティにRGB関数の戻り値を代入して、シートの見出しの色を変更する方法です。
サンプルコードでは、RGB関数を使い、"Sheet1" を「赤」、"Sheet2" を「緑」、"Sheet3" を「青」に変更します。

Sub SampleSheetTabColor2()
    ' Sheet1 の見出しを「黄色」にする
    Worksheets("Sheet1").Tab.Color = RGB(255, 255, 0)
    ' Sheet2 の見出しを「マゼンタ」にする
    Worksheets("Sheet2").Tab.Color = RGB(255, 0, 255)
    ' Sheet3 の見出しを「シアン」にする
    Worksheets("Sheet3").Tab.Color = RGB(0, 255, 255)
End Sub

3.ColorIndex プロパティで色を変更する

ColorIndex プロパティに 1 ～ 56 を代入して、シートの見出しの色を変更する方法です。
RGB関数や、「vbRed」等の定数は使えません。

Sub SampleSheetTabColor3()
    ' Sheet1 の見出しを「濃い緑色」にする
    Worksheets("Sheet1").Tab.ColorIndex = 10
    ' Sheet2 の見出しを「紺色」にする
    Worksheets("Sheet2").Tab.ColorIndex = 25
    ' Sheet3 の見出しを「橙色」にする
    Worksheets("Sheet3").Tab.ColorIndex = 40
End Sub

4.シートの見出しの色を他シートと入れ替える

シートの見出しの色を他シートと入れ替える方法です。
１つ目のシートの見出しの色（以下、シートの色）を変数に代入し、１つ目のシートの色を２つ目のシートの色を代入します。 最後に、２つ目のシートの色を１つ目のシートの色に代入して完了です。 サンプルコードでは、"Sheet1" と "Sheet2" のシートの色を入れ替えています。

Sub SampleSheetTabColor4()
    Dim col As Long
    
    ' "Sheet1" の見出しの色を取得する
    col = Worksheets("Sheet1").Tab.Color
    ' "Sheet1" の見出しの色を "Sheet2" の色にする
    Worksheets("Sheet1").Tab.Color = _
        Worksheets("Sheet2").Tab.Color
    ' "Sheet2" の見出しの色を "Sheet1" の色にする
    Worksheets("Sheet2").Tab.Color = col
End Sub

5.シートの見出しの色を初期化する

シートの見出しの色を初期化する（無色にする）方法です。
「Tab.Color」に "False" か、「Tab.ColorIndex」に "xlNone" を代入することで元に戻せます。
サンプルコードでは、「Tab.Color」に "False" を代入して、全てのシートの見出しの色を元に戻します。

Sub SampleSheetTabColor5()
    Dim ws As Worksheet
    
    ' 全シートの見出しの色を初期化する
    For Each ws In Worksheets
        ws.Tab.Color = False
    Next ws
End Sub

色を指定したらエラーが発生した！？

1.ColorIndex に 1 ～ 56 以外を代入した

ColorIndex プロパティに Color プロパティ等で使用する「vbRed」や「vbGreen」等を使用すると、エラーが発生します。
ColorIndex プロパティは、1 ～ 56 の数字か、xlNone を代入します。
Color プロパティは、「vbRed」等の定数か、RGB関数の戻り値を代入します。
厄介な点が、本現象のエラーは、存在しないシートを指定した場合に発生するエラーと同じ「実行時エラー'9': インデックスが有効範囲にありません。」が発生することです。
２つのプロパティを正しく使い分けましょう。

Sub SampleSheetTabColor_Error1()
    '「Worksheets("Sheet1").Tab.Color = vbRed」が正しい
    Worksheets("Sheet1").Tab.ColorIndex = vbRed
End Sub

関連リンク

• 【例外処理】エラートラップの方法

• Setとは？ オブジェクト変数の使い方とNothingの意味を解説

• シートの操作まとめ（サンプルプログラムがメインです）

• シートの表示と非表示を切り替える方法

• シートの保護と解除の方法まとめ

• シート名をつけるときのルールと注意点

• シートを追加する方法

• シートを削除する方法

• シート名を変更する方法

• シートをコピーする方法

• シートを移動する方法

• シートの見出しの色を変更する方法（このページです）