シート見出しの色

質問

全シートを対象として　A1セルに整数が入力されたらそのシートのシート見出しが赤になり。A1セルに文字が入力されたらそのシートのシート見出しが黄色になるマクロの記述を教えてください。よろしくお願いします。

回答No.1

KenKen_SP · ベストアンサー

マクロの記録をとればご質問の疑問点についてほぼ解決すると思いますよ。

　　Worksheets("Sheet1").Tab.ColorIndex = カラー番号

で、シートタブの色を変更できます。ただし、Excel 2002 以降の機能
なので、Excel のバージョンによる分岐処理を追加した方が良いかも
しれません。

あとは、値の変更を VBA 実行のタイミングとするので、イベント処理と
しますが、Change イベントが適当かと思います。ただし、全シート共通
処理にするのですから、ThisWorkbook モジュールでの SheetChange
イベントにします。

> 整数が入力されたら...

下記では、「数値が入力されたら」としましたが、整数に限定するなら
例えば

　　If Int(Target.Value) = Target.Value Then

などとして整数か否かを判定できますね。ワークシート上での数値は、
例え整数であっても Double 型または Currency 型になるので、VarType
だけでは判定できません。ご参考までに。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　Dim lColor As Long
　　If Target.Address = "$A$1" Then
　　　　Select Case VarType(Target.Value)
　　　　　　Case vbString
　　　　　　　　lColor = 38 ' // ピンク
　　　　　　Case vbDouble To vbCurrency
　　　　　　　　lColor = 36 ' // 淡い黄色
　　　　　　Case Else
　　　　　　　　lColor = xlColorIndexNone
　　　　End Select
　　　　Sh.Tab.ColorIndex = lColor
　　End If
End Sub

お礼

詳しく説明までしていただき大変助かりました。
本当にありがとうごさいました。