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_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_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_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_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_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
●実行前～実行後 ※プログラム実行後、実行するたびに、「個人情報XXX」のシート表示・非表示を繰り返します。ws.Visible = Not ws.Visible を利用する事で「表示⇔非表示」を繰り返す条件になります。 （クリックして拡大）
