条件により、シート見出しの色を変更したい

質問

エクセル2007を使用してします。

ある報告書の全シートを対象として　A1セルにｋさんの名前が入力されたらそのシートのシート見出しが緑になり、A2セルにｍさんの名前が入力されたらそのシートのシート見出しが青になり、なおかつ、ｋさんとｍさん２人の名前が入力されたらそのシート見出しの色が黄色に自動でなるマクロの記述を教えてください。よろしくお願いします。

回答No.1

Ogre7077 · ベストアンサー

イベント駆動のマクロを、該当シートに記載しましょう。
「excel セル入力 イベント」で検索すれば詳細が見つかります。

Private Sub Worksheet_Change(ByVal Target As Range)

a1 = Range("a1").Value
a2 = Range("a2").Value

f = 0
If a1 = "k" Then f = f or 1
If a2 = "m" Then f = f or 2

c = Switch(f = 1, 4, f = 2, 5, f = 3, 6, True, xlNone)
ActiveSheet.Tab.ColorIndex = c

End Sub

変数 c の処理は、少々かっこつけて書きました。
「ビット演算」で検索すれば詳細が見つかります。
個人的には「ビット演算 ワンパク君」が読みやすくてオススメです。

お礼

無事解決できました。

昨日、お礼をしようとした所、何故かエラーになってしまい
できませんでした。

悩みが解決できてスッキリしました。

どうもありがとうございました。