EXCEL VBA ワークシートの見出しの色を変更・ワークシートの表示・非表示の切り替え（Tab.ColorIndex・Visible）

2020年3月11日

EXCEL VBA ワークシートの見出しの色を変更・ワークシートの表示・非表示の切り替え（Tab.ColorIndex・Visible）

●はじめに

EXCELを使用していると複数のワークシートを利用します。このワークシートが複数ある場合は、シートの見出し色を設定する事で、分かり易くシートを区別する事ができます。EXCEL VBAで見出し色を設定する場合、Tab．ColorIndexを利用します。また、ワークシートには、ワークシートの表示・非表示を切り替える事もできます。他のユーザーからワークシートを隠す場合に利用する時は、VBAではVisibleを利用します。それでは、順番に説明いたします。

●書式の説明　【Tabプロパティ】・【Visibleプロパティ】

●ワークシートオブジェクト.Tab.ColorIndex = 設定値（インデックス番号：色を指定）
※ワークシートのシート見出しに色を指定します。

記述例：　ActiveSheet.Tab.ColorIndex = 3【ColorIndex】

●ワークシートオブジェクト.Visiblbe　＝　既定値
※ワークシートの表示・非表示を切り替える。

設定値	内容
xlSheetVisible 又は　True	シートを表示する
XlSheetHidden 又は False	シートを非表示にする
xlSheetVeryHidden	シートを非表示にする。ユーザーの操作でシートを再表示する事は出来なくなります。xlSheetVisibleを設定するまで非表示を解除できません。

記述例：　Sheets(1).Visible = false (非表示）
Sheets(1).Visible = True(表示）

ワークシート毎に指定した見出しに色を付ける

●プログラム説明　(サンプル①)　Tab.ColorIndex

下記のサンプルプログラムは、ワークシート毎に指定した見出しに色を付けるサンプルプログラムです。３つのワークシートに指定した見出しに色を付けます。

●ワークシート
ワークシート①・・・ワークシート名「Main」　１：黒　（見出し色）
ワークシート②・・・ワークシート名「個人情報」　３：赤（見出し色）
ワークシート③・・・ワークシート名「公開情報」　５：青（見出し色）
ワークシート④・・・ワークシート名「その他」　※設定しない

Sub sheet_color01() 'ワークシート毎に指定した見出しに色を付ける

    Dim ws01, ws02, ws03 As Worksheet
    
    Set ws01 = Worksheets("Main")
    Set ws02 = Worksheets("個人情報")
    Set ws03 = Worksheets("公開情報")
    
    ws01.Tab.ColorIndex = 1  '１：黒
    ws02.Tab.ColorIndex = 3  '３：赤
    ws03.Tab.ColorIndex = 5  '５：青

End Sub

Sub sheet_color01() 'ワークシート毎に指定した見出しに色を付ける

Dim ws01, ws02, ws03 As Worksheet

Set ws01 = Worksheets("Main")

Set ws02 = Worksheets("個人情報")

Set ws03 = Worksheets("公開情報")

ws01.Tab.ColorIndex = 1 '１：黒

ws02.Tab.ColorIndex = 3 '３：赤

ws03.Tab.ColorIndex = 5 '５：青

End Sub

●実行前～実行後　※プログラム実行後、ワークシート毎に指定した見出しに色が付きました。
（画面クリックして拡大）

全てのワークシートに指定した色に見出し色をつける。

●プログラム説明　(サンプル②)　Tab.ColorIndex

下記のサンプルプログラムは、全てのワークシートに指定した色に見出し色を付けるサンプルプログラムです。プログラム実行後、指定するワークシートの見出し色を聞いてきますので、入力した色番号（０～５６）が全てのワークシートに同じ色が付きます。

Sub sheet_color02()  '全てのワークシートに指定した色に同じ見出し色をつける。

    Dim ws As Worksheet
    Dim CC As Long
    
    CC = InputBox("ワークシートの見出し色　０～５６を指定して下さい")
    
    For Each ws In Worksheets  '全てのワークシート繰り返す

            ws.Tab.ColorIndex = CC  'ワークシートの見出しに指定した色を付けます。
        
    Next ws

End Sub

Sub sheet_color02() '全てのワークシートに指定した色に同じ見出し色をつける。

Dim ws As Worksheet

Dim CC As Long

CC = InputBox("ワークシートの見出し色　０～５６を指定して下さい")

For Each ws In Worksheets '全てのワークシート繰り返す

ws.Tab.ColorIndex = CC 'ワークシートの見出しに指定した色を付けます。

Next ws

End Sub

●実行前～実行後　※プログラム実行後、設定するワークシート見出し色の色番号を設定します。その指定した色番号で、全てのワークシートの見出し色に設定されました。（今回は、３番（赤）を設定したので、全て見出し色が赤になりました。）
（画面クリックして拡大）

ワークシート名に応じて見出し色を付けます。（シート名ごとに色を分ける）

●プログラム説明　(サンプル③)　Tab.ColorIndex

下記のサンプルプログラムは、ワークシート名に応じて見出し色を付けます。今回は、ワークシート名に「月分」が含まれている場合は、見出し色が「青」・ワークシート名に「合計」が含まれている場合は、見出し色を「赤」に全てのシートを対象に設定するサンプルプログラムです。

Sub sheet_color03()  'ワークシート名に応じて見出し色を付けます。

    Dim ws As Worksheet

    For Each ws In Worksheets '全てのワークシートを繰り返します。

        Select Case True     
                Case ws.Name Like "*月分"
                    ws.Tab.ColorIndex = 5   'ワークシート名に「月分」が含まれる場合は、【5:青】
                    
                Case ws.Name Like "*合計"
                    ws.Tab.ColorIndex = 3   'ワークシート名に「合計」が含まれる場合は、【3:赤】
            
        End Select       
    Next ws

End Sub

Sub sheet_color03() 'ワークシート名に応じて見出し色を付けます。

Dim ws As Worksheet

For Each ws In Worksheets '全てのワークシートを繰り返します。

Select Case True

Case ws.Name Like "*月分"

ws.Tab.ColorIndex = 5 'ワークシート名に「月分」が含まれる場合は、【5:青】

Case ws.Name Like "*合計"

ws.Tab.ColorIndex = 3 'ワークシート名に「合計」が含まれる場合は、【3:赤】

End Select

Next ws

End Sub

●実行前～実行後　※プログラム実行後、ワークシート名に応じて、シート名に「合計」が含まれる場合は、「赤」・シート名に「月分」が含まれる場合は、「青」に見出し色が設定されました。
（画面クリックして拡大）

指定したワークシート毎に表示・非表示を指定します。

●プログラム説明　（サンプル①）　Visible

下記のサンプルプログラムは、指定するワークシート毎にシート表示の表示・非表示を指定するサンプルプログラムです。

●シートが３つあります。【下記の通りに設定します。】
①シート名「Main」・・表示
②シート名「個人情報」・・非表示
③シート名「公開情報」・・表示

Sub sheet_Visible01() '指定するワークシート毎に表示・非表示を指定します。

    Dim ws01, ws02, ws03 As Worksheet
    
    Set ws01 = Worksheets("Main")
    Set ws02 = Worksheets("個人情報")
    Set ws03 = Worksheets("公開情報")
    
    ws01.Visible = True    'True ：シート表示
    ws02.Visible = False   'False：シート非表示
    ws03.Visible = True    'True：シート表示
    
End Sub

Sub sheet_Visible01() '指定するワークシート毎に表示・非表示を指定します。

Dim ws01, ws02, ws03 As Worksheet

Set ws01 = Worksheets("Main")

Set ws02 = Worksheets("個人情報")

Set ws03 = Worksheets("公開情報")

ws01.Visible = True 'True ：シート表示

ws02.Visible = False 'False：シート非表示

ws03.Visible = True 'True：シート表示

End Sub

●実行前～実行後　※プログラム実行後、３つのシートが表示されている状態から、「個人情報」のシートのみ非表示に変更されました。※「False」に設定したため「非表示」
（画面クリックして拡大）

シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。

●プログラム説明　（サンプル②）　Visible

下記のサンプルプログラムは、シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。

●各シート表示・非表示の方法をが下記の通りに設定します。
①シート名「Main」・・表示
②シート名「個人情報XXX」・・非表示

Sub sheet_Visible02()  'シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。

    Dim ws As Worksheet
    
    For Each ws In Worksheets '全てのワークシートを繰り返します。
        
        If ws.Name Like "*個人情報*" Then
                ws.Visible = xlSheetHidden  '個人情報のシートを非表示にします。（falseでも非表示）
        End If
            
    Next ws

End Sub

Sub sheet_Visible02() 'シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。

Dim ws As Worksheet

For Each ws In Worksheets '全てのワークシートを繰り返します。

If ws.Name Like "*個人情報*" Then

ws.Visible = xlSheetHidden '個人情報のシートを非表示にします。（falseでも非表示）

End If

Next ws

End Sub

●実行前～実行後　※プログラム実行、シートの中に「個人情報」の含まれているシート名のシートが非表示されました。
（画面クリックして拡大）

特定のシート名以外のシートは表示・非表示を繰り返します。

●プログラム説明　（サンプル③）　Visible

下記のサンプルプログラムは、特定のシート名（Main）以外のシートは、表示・非表示を繰り返します。ここでは、シート名に「個人情報XXX」があるシートは、表示・非表示を繰り返します。

●特定のシート名⇒「Main」
●以外のシート名⇒「個人情報（XXX）」※個人情報のシート表示・非表示を繰り返します。

Sub sheet_Visible03()  '特定のシート名以外のシートを表示⇔非表示繰り返します。

    Dim ws As Worksheet
    
    For Each ws In Worksheets '全てのワークシートを繰り返します。

        If ws.Name <> "Main" Then
            ws.Visible = Not ws.Visible 'シート名「Main」以外のシート名以外のシートを表示⇔非表示を繰り返す。
        
        End If
    Next ws

End Sub