ExcelのVBAコードについて教えてください。

作業シートに下記のコードを設定しております。
ExcelのVersionはoffice365になります。
指定セルD6に「3月」と表示するとマクロ「増築3月31日以前図表示」
が実行されます。
このコードを
セルD6に書式設定を「yyyy"年"m"月"d"日";@」として
2025年3月31日以前の場合にマクロ「増築3月31日以前図表示」を実行できる方法を教えてください。
例えば
2025年1月21日と表示されるとマクロが実行
2025年4月1日と表示されるとマクロは非実行です。
現状のコード
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("$D$6")) Is Nothing Then
If Range("$D$6").Value = "3月" Then
Call 増築3月31日以前図表示
End If
End If
End Sub
以上となります。
よろしくお願いします。

No.1 ベストアンサー 回答者： いんちょ 回答日時： 2025/01/21 10:16

If Range("$D$6").Value = "3月" Then

を
If Range("D6").Value =< CDate("2025年3月31日") Then
とします。（＄はあってもいいけど、通常は付けません）

この回答へのお礼

回答ありがとうございます。
上手くできました。
何時も助けて頂きまして、感謝いたします。

お礼日時：2025/01/21 10:19