livedoor ナレッジ

Excelのシート上でアクティブセルを色付けする方法で悩んでおります。

以前は教えていただき有難うございました。

これを応用してなのですがシートに１年分のカレンダー（自宅にある壁掛けカレンダーのような形式で）が入力されているとします。
1月1日に開くと１に色がついている状態にしたいのです。
また、それを自由に動かしてアクティブセルに色をつけれたらうれしいです。
こんなのは出来ますでしょうか？

>1月1日に開くと１に色がついている状態にしたい
セルを全て調べて、該当すれば書式を変えるというマクロで！

>自由に動かしてアクティブセルに色
標準モジュールではなく、Sheetのところに直接記述。
以前のより、改良しました。

Option Explicit

Dim r As Integer, c As Integer
Dim wAddress As String, wColor As Variant


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Application.CutCopyMode = xlCopy Then Exit Sub
   
   If wColor <> Empty Then 'Emptyの時は、r=0:c=0でも実行されないのでエラーにならない
       Cells(r, c).Interior.ColorIndex = wColor 'xlNone'←無色にする場合
   End If
   r = ActiveCell.Row
   c = ActiveCell.Column
   wColor = Cells(r, c).Interior.ColorIndex
   Cells(r, c).Interior.ColorIndex = 38

End Sub