あるセルに文字が入力されるとシート見出しの色を自動で変更したい

質問

いつもお世話になります。
WINDOWS XP 　EXCEL2003 です。
いろんなサイトで調べましたが中々見つからずご指導仰ぎたいです。

B36のセルに文字が入力されるとシート見出しの色(カラーコード　１５)を自動で変更したい。
図を参照下さい。

もし可能ならばどなたかご教示いただけませんか。
よろしく御願いします。

回答No.1

mshr1962 · ベストアンサー

一例（※納請書1の見出しを右クリックして、コードの表示で開いたページに書き込んでください。）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$36" Then
ActiveSheet.Tab.ColorIndex = 15
End If
End Sub

お礼

色々試行錯誤の結果下記のようにして解決したみたいです。
ご報告します。
これもひとえにあなたのアドバイスのお陰です。
有難うございました。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Target.Offset(-6, 2).Value = Date
End If

If Target.Address = "$B$36" Then
ActiveSheet.Tab.ColorIndex = 15
End If
End Sub

補足

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Target.Offset(-6, 2).Value = Date
End If
End Sub
というマクロがすでに入力されていて下記のような警告が出ます。
知識不足と説明不足で誠に申し訳ありません。

それ故下記のような警告が出ます。

「コバイルエラー
名前が適切ではありません　worksheet Change」

反転しています。
Private Sub Worksheet_Change(ByVal Target As Range

「コンパイルエラー
End Sub End Function 1または　End Property 以降には、コメントのみが記述できます。」
誠に恐れ入りますがどのようにすればいいか再度ご指導いただきたく御願いします。