エクセル マクロで指定日にメッセージ

ファイルを開いた時、本日の日付があるセル範囲（例　A1:B15)の中の日付とマッチした場合にのみメッセージを表示する方法をご存知でしたら教えてください。

宜しくお願いいたします。

No.4 ベストアンサー 回答者： onlyrom 回答日時： 2008/01/24 23:39

Findメソッドを使う方法もあります。

下記コードを標準モジュールにコピペ
　
'-----------------------------------------
Sub Auto_Open()
　Dim FoundCell As Range
　Set FoundCell = Range("A1:B15").Find(Date, , xlValues, xlWhole)
　If Not FoundCell Is Nothing Then
　　MsgBox FoundCell.Address & " に今日の日付あり"
　End If
End Sub
'-------------------------------------------

ブックを開いたときマクロを自動で実行させるためにはふつう次の２つのどちらかを使用します。
（１）標準モジュールに、Auto_Openという名前のマクロを作る
（２）WorkBookのOpenイベントにマクロを作る
正確に言うと上記２つはある条件のもとでは違った動作をするのですが今回の場合は同じ動作をします。

　
　

この回答へのお礼

ご回答いただきました皆様ありがとうございました！
また、早急にご回答いただきまして本当に助かりました。

お礼日時：2008/01/25 09:57

No.3 回答者： mshr1962 回答日時： 2008/01/24 22:11

ThisWorkbookに記載するなら

Private Sub Workbook_Open()
Dim RG As Range
For Each RG In Range("A1:B15")
If RG = Date Then
MsgBox "本日の日付と一致しました。"
Exit Sub
End If
Next RG
End Sub

No.2 回答者： merlionXX 回答日時： 2008/01/24 22:02

ファイルを開いた時、自動でだすのですよね？

なら、標準モジュールに、

Sub Auto_Open()
If Application.CountIf(ActiveSheet.Range("A1:B15"), Date) Then
MsgBox "本日の日付とマッチします。"
End If
End Sub

ですね。
但し、本日の日付があるセルがアクティブになってなければいけませんが。
アクティブじゃないならActiveSheetの代わりにシート名を指定して下さい。

No.1 回答者： lark_0925 回答日時： 2008/01/24 21:04

countif を使えば、ＶＢＡがなくてもよいかな？

とも思いますが・・・。

Sub main()
　　Dim rng As Range
　　Set rng = ActiveSheet.Range("a1:b15")
　　If Application.CountIf(rng, Date) Then
　　　　MsgBox "本日の日付があったよ"
　　　　End If
End Sub