マクロ初心者です。ご指導願います。

質問

シート上にコマンドボタンを設置し
ボタンをクリックしたらセルの「A1」にある日付と今日の日付の
比較を行い、ポップアップを表示するマクロを組みたいのですが
セル「A１」の日付がどうしても変数に入らずうまくいきません。
ちなみに日付は【2011/12/12】といった感じで記述されています。

今のところ自分で考えたのは下記までです。
(・・・）の箇所にどのような記述をすれば
【2011/12/12】の日付を入れられるのでしょうか？
宜しくご指導願います。

Private Sub CommandButton1_Click()
　myDay = （・・・）
If myDay = Val(Day(Now())) Then '
MsgBox "正しい日付です"

Else
MsgBox "違う日付です"
Exit Sub 'マクロの終了
End If

回答No.1

FEX2053 · ベストアンサー

「2011/12/12」とセルに表示されていても
中身は「1900/1/1からの日数」の整数です。
ですので、単純に整数値として受ければ
オッケーなんですよ。たとえば

myDay = Range("A1")
If myDay = Int(Now()) Then MsgBox "正しい日付です" Else MsgBox "間違ってます"

Now関数は、時刻を小数点以下で取得して
しまいますので、日付を比較するときは
小数点を切り捨てて整数化する必要が
あります。

お礼

こんなに早くご回答いただけるとは
とても助かりました。

>中身は「1900/1/1からの日数」の整数です。

なるほど。そういう事だったのですか～。
コマンドの事ばかり頭にいってて
そこまで気が回りませんでした。

おかげで無事に解決できました。
とても判りやい文章で勉強になりました。
ありがとうございます！