【Excelマクロ】基準日より前の日付のセルを色付

質問

基準日が入力されているセル(D2)があります。
回収期限(D列)がその基準日を含む前の日付のデータ(A:D)に黄色で色付けするマクロをご教示ください。

条件付き書式はあえて対象外のデータを色塗りしたくない場合に、わざわざ条件付き書式を消すのが面倒なのでやめました。

回答No.1

kkkkkm · ベストアンサー

以下で試してみてください。

Sub Test()
Dim i As Long

'↓一旦塗りつぶしを無しにする必要が無ければ不要です
Range(Cells(5, "A"), Cells(Rows.Count, "D").End(xlUp)).Interior.ColorIndex = xlNone

For i = 5 To Cells(Rows.Count, "D").End(xlUp).Row
If Cells(i, "D").Value <= Range("D2").Value Then
Range(Cells(i, "A"), Cells(i, "D")).Interior.Color = vbYellow
'もしくは
'Cells(i, "A").Resize(1, 4).Interior.Color = vbYellow
End If
Next

End Sub

お礼

ご回答ありがとうございました。

できました!!

毎回データ数(行数)が変わるので、行範囲を固定しないのがいいですね。
「一旦塗りつぶしを無しにする」も必要です。お気遣いありがとうございます。

大変助かりました。