質問: 過去日があった際、メッセージボックスを表示したいです。 B列に ”当日を含む過去の日” があった場合に 「エラー」とメッセージボックスをポップアップさせるマクロを 「チェック」のボタンに割り当てたいです。 D1に=TODAY()を入れてあり、参照用として使うつもりでしたが、自分では上手くいきませんでした。 良い方法があれば教えてください。よろしくお願いします。
回答: Sub 登録() Dim i As Long If Not IsDate(Range("D1")) Then Range("D1") = "=TODAY()" End If For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 2) <= Range("D1") Then MsgBox "エラー" Exit Sub End If Next MsgBox "今日以前の日付は見つかりませんでした" End Sub 以上のコードを標準モジュールに置いてボタンにマクロ登録します。 ※ボタンはフォームコントロールのボタン、もしくは図形