エクセルVBAにてご教授をお願いいたします。 日付の処理にて下記処理を行いたいです。

Excel | Visual Basic34閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございます。 できました!

お礼日時:3/1 15:12

その他の回答(1件)

0

ID非公開

2021/3/1 13:55

データは2行目からとします。 この質問の通りですと下記になりますが。 >その日付が2/15以前の・・・ 今回一回だけの処理でいいのですか? 来月は3/15以前、というような事ではないならいいですが。 Sub test() Dim r As Long For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(r, 5) <= DateSerial(2021, 2, 15) Then Cells(r, 5).Value = "" Else Cells(r, 5).Interior.ColorIndex = 8 End If If Cells(r, 7) <= DateSerial(2021, 2, 15) Then Cells(r, 7).Value = "" Else Cells(r, 7).Interior.ColorIndex = 8 End If Next r End Sub

ID非公開

2021/3/1 14:27

E列とG列の日付に関してだけ、クリアか色付けでいいなら提示したコードで出来ると思いますが、だめならこちらにも返信で説明して下さい。