VBA 日付によって処理を分ける

VBA初心者です。
納期日付によって商品名の背景色を分けるマクロを作成したいと思っています。
商品名、納期日付などが書かれたデータで、商品によって納期が20日、25日、月末日と異なっています。

変数と条件分岐を使って作成したいのですが、参考書を読んでいても作り方が分かりません。
イメージ画像を添付しました。(実際はもっと項目が多く、商品数も多いです）
よろしくお願いいたします。

No.2 回答者： fujillin 回答日時： 2021/01/07 22:23

こんばんは

回答しても無駄に終わるような気もしますけれど・・・

Sub Sample()
For Each c In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
If IsDate(c.Value) Then
d = Day(c.Value + 1)
With c.Offset(, -1).Resize(, 2).Interior
.Pattern = xlNone
If d = 1 Then .Color = RGB(120, 200, 90)
If d = 21 Then .Color = RGB(250, 250, 0)
If d = 26 Then .Color = RGB(250, 200, 0)
End With
End If
Next c
End Sub

この回答へのお礼

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

ご丁寧にのせてくださりとても助かります。
こちら参考にし実際のデータでもマクロ作成してみます。
ありがとうございました。

お礼日時：2021/01/07 23:48

No.1 回答者： GOMΛFU 回答日時： 2021/01/07 21:31

条件付き書式で良いのでは

この回答へのお礼

ご回答ありがとうございます。
諸事情があってマクロを作成したいのです…
ありがとうございました。

お礼日時：2021/01/07 21:42