VBA～ワークシートの見出しの色を変更しよう～Excel

ワークシートの見出しの色を変更するときはWorksheetオブジェクトのTab.ColorIndexプロパティを使います。Worksheetオブジェクトの取得方法は複数あるのでシート名、インデックス番号、オブジェクト名から取得し、そのシートの見出しの色を変更する方法をそれぞれ解説します。

シート名から取得して変更

シート名からWorksheetオブジェクトを取得するときはWorksheets("シート名")またはSheets("シート名")で指定できます。シートの見出しの色を変更したい時はWorksheets("シート名").Tab.ColorIndex = カラーパレットのインデックス値　で色が変更されます。下のコードを実行するとSheet1の見出しが赤に、Sheet2の見出しが黄緑に変更されます。

Sub test1()
Worksheets("Sheet1").Tab.ColorIndex = 3
Worksheets("Sheet2").Tab.ColorIndex = 4
End Sub

インデックス番号から取得して変更

インデックス番号からWorksheetオブジェクトを取得するときはWorksheets(インデックス番号)またはSheets(インデックス番号)で取得できます。インデックス番号は左のシートから1,2,3・・・となっています。シートの見出しの色を変更したい時はWorksheets(インデックス番号).Tab.ColorIndex = カラーパレットのインデックス値　で色が変更されます。下のコードを実行するとSheet1の見出しが赤に、Sheet2の見出しが黄緑に変更されます。

Sub test2()
Worksheets(1).Tab.ColorIndex = 3
Worksheets(2).Tab.ColorIndex = 4
End Sub

オブジェクト名から取得して変更

オブジェクト名からWorksheetオブジェクトを取得するときはプロジェクトエクストプローラーのMicrosoftExcelObjectsフォルダ内にSheet1(Sheet1)のように表示されているものの()の中がエクセルの本画面で表示されているシート名で、()の外がオブジェクト名になります。オブジェクト名を変更したい場合はプロパティウィンドウの(オブジェクト名)から変更できます。オブジェクト名だけで指定できるのでシンプルなコードになりますね。Sheet1のオブジェクト名をデフォルトのSheet1としSheet2とSheet3のオブジェクト名をそれぞれシート2、aに変更します。

シートの見出しの色を変更したい時はオブジェクト名.Tab.ColorIndex =　カラーパレットのインデックス値　で色が変更されます。下のコードを実行するとSheet1の見出しが赤に、Sheet2の見出しが黄緑に、Sheet3の見出しが青に変更されます。

Sub test3()
Sheet1.Tab.ColorIndex = 3
シート2.Tab.ColorIndex = 4
a.Tab.ColorIndex = 6
End Sub