フォームボタンクリックでセル色表示

作業中中断により日付を変更したのかどのボタンまでクリックしたのかがわからなくなります。
A2セルの日付を変更したらB5セルが赤表示、ボタン１をクリックしたらC5セルが青表示、ボタン２をクリックしたらD5セルが緑表示、ボタン３をクリックしたらE5セルが黄表示等どこの作業まで実施したのかわかるようにしたいのですがVBAのコードがお解りになる方よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2014/03/26 09:01

こんにちは！

一例です。
コマンドボタンのオブジェクト名は実際のオブジェクト名にしてください。
シートモジュールで

Private Sub CommandButton1_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("C5").Interior.Color = vbBlue
End Sub

Private Sub CommandButton2_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("D5").Interior.Color = vbGreen
End Sub

Private Sub CommandButton3_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("E5").Interior.Color = vbYellow
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If IsDate(Target) Then
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("B5").Interior.Color = vbRed
End If
End If
End Sub

ではどうでしょうか？

＞どこの作業まで実施したのかわかるようにしたいのですが・・・
とありますので、
もしかしてすでに色がついているセルの色はそのまま残しておきたい場合は
各コマンドボタンのコード内の
＞Range("B5").Resize(, 4).Interior.Color = xlNone
の1行を削除してください。m（_ _）m

この回答へのお礼

ありがとうございます。大変助かりました。

お礼日時：2014/03/26 22:47