条件によってシート見出しの色が変わるようにしたい

質問

条件によってシート見出しの色が変わるようにしたい
Excel2003を使用しています。
ある範囲に数値が羅列されており、それらの数値が通常であれば0、
条件によって3か5に変わる数式が入っています。

それに伴い、範囲内に1つでも3か5があれば「シート見出しの色を赤く」
全て0になれば「シート見出しの色を通常に戻す」という事をできればと思うのですが
そういう事は可能でしょうか？
もし可能であれば、どなたかやり方をご教授いただけますと大変助かります。
よろしくお願いいたします。

回答No.1

kybo · ベストアンサー

シートの見出しの色の変更はVBAでしか出来ません。

A1：A10の範囲に計算式が入力されていて、その計算結果が3又は5の時、赤色にする場合、

シートの見出しで右クリック→コード表示で以下を貼り付け

Private Sub Worksheet_Calculate()
If WorksheetFunction.CountIf(Range("A1:A10"), 3) > 0 _
Or WorksheetFunction.CountIf(Range("A1:A10"), 5) > 0 Then
ActiveSheet.Tab.Color = 255
Else
ActiveSheet.Tab.ColorIndex = -4142
End If
End Sub

お礼

kybo様、ご解答ありがとうございます！返事が遅くなり、申し訳ありません。見事に出来て大変助かりました。ありがとうございます！！