シート見出しの色を変えるマクロ

はじめに

シート見出しの色を変える方法を調査して、テスト実装したので、記事に致します

やりたいこと

シート見出しの色を変える。

マクロ実行前のシート見出し画像

画像は下記のとおりです。

実装したソースコード

ソースコードは下記のとおりです

Sub test1()
        'ワークシートのオブジェクト変数
        Dim ws1 As Worksheet
        'ワークシート名の変数定義
        Dim sh_name As Variant
        'シート名をセット
        sh_name = "Sheet2"
        'ワークブックをセット
        Set ws1 = ThisWorkbook.Worksheets(sh_name)
        'ワークシートの見出しの色を赤に変える
        ws1.Tab.Color = RGB(255, 0, 0)
        
End Sub

マクロ実行後のシート見出し画像

画像は下記のとおりです。

最後に

調査して実装したものを記事にしました