エクセルVBAで本日の日付と指定日の差で色分けして付けたいです。

質問

はじめて質問させて頂きます。
セル　　A1　　08/10/18
　　　　A2　　空白
　　　　A3　　08/10/15
　　　 A4　 空白
A5　　08/10/09
　　　 A6　 空白
とあり本日の　日付が　08/10/09　の場合
A1のセルは条件外なのでそのまま
A3のセルと本日の日付と当日で無く7日後以内で有って　
A4　のセルに何も記入が無ければ　セル自体を　黄で塗りつぶし
A5のセルが本日の日付であって
A6　のセルに何も記入が無ければ　セル自体を　赤で塗りつぶし

色々試してみましたがどれも上手くいかず悩んでます。
簡単な物は出来るのですが日付の関数は初めてで本を読んでも良くわかりませんでした、手助け頂けると助かります。

回答No.1

rish1 · ベストアンサー

標準モジュールに貼り付けて実行してください
ただし、ろくにテストしていません（笑；
Sub test()
Dim i As Long, h As Long
Dim MyRow As Long
MyRow = Range("$A$65536").End(xlUp).Row
h = 6
For i = 1 To MyRow Step 2
With Cells(i, 1).Interior
.ColorIndex = xlNone
End With
Next
For i = 1 To MyRow Step 2
With Cells(i, 1)
If (.Value = Cells(5, 1).Value) _
And .Offset(1).Value = "" Then
With .Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ElseIf ((DateAdd("d", 1, .Value) - DateAdd("d", 1, Cells(5, 1).Value))) > 0 _
And ((DateAdd("d", 1, .Value) - DateAdd("d", 1, Cells(5, 1).Value))) < 8 _
And .Offset(1).Value = "" Then
Debug.Print ((DateAdd("d", 1, .Value) - DateAdd("d", 1, Cells(5, 1).Value)))
With .Interior
.ColorIndex = h
.Pattern = xlSolid
End With
End If
End With
Next
End Sub

お礼

返事遅くてすみません。
コードはまったく意味が判りませんが(笑)ちゃんと動きました。
もっと勉強して早くこの様な物を作れるように頑張ります。
ありがとう御座います。