No.4ベストアンサー
- 回答日時:
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
'-------------------------------------------
ブックを開いたときマクロを自動で実行させるためにはふつう次の2つのどちらかを使用します。
(1)標準モジュールに、Auto_Openという名前のマクロを作る
(2)WorkBookのOpenイベントにマクロを作る
正確に言うと上記2つはある条件のもとでは違った動作をするのですが今回の場合は同じ動作をします。
No.3
- 回答日時:
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
- 回答日時:
ファイルを開いた時、自動でだすのですよね?
なら、標準モジュールに、
Sub Auto_Open()
If Application.CountIf(ActiveSheet.Range("A1:B15"), Date) Then
MsgBox "本日の日付とマッチします。"
End If
End Sub
ですね。
但し、本日の日付があるセルがアクティブになってなければいけませんが。
アクティブじゃないならActiveSheetの代わりにシート名を指定して下さい。
No.1
- 回答日時:
countif を使えば、VBAがなくてもよいかな?
とも思いますが・・・。
Sub main()
Dim rng As Range
Set rng = ActiveSheet.Range("a1:b15")
If Application.CountIf(rng, Date) Then
MsgBox "本日の日付があったよ"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルの数式について教えてください。 1 2023/03/21 09:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルファイルで指定期間に自動ポップアップメセージを出す
Excel(エクセル)
-
期限を超えた日付に警告のメッセージボックスを出すVBAを教えてください
その他(プログラミング・Web制作)
-
エクセル マクロ 指定日の指定時刻にプロシージャを実行
Visual Basic(VBA)
-
-
4
エクセルである日付を過ぎたら自動でメール送信。
Excel(エクセル)
-
5
指定曜日にMsgBox表示は可能でしょうか?。
Excel(エクセル)
-
6
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
7
エクセルでエラーが出て困っています。
Excel(エクセル)
-
8
エクセルで記念日にメッセージを表示させたい
Excel(エクセル)
-
9
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
Excelで表を作り、自動で今月の列に色をつける
財務・会計・経理
-
12
エクセルVBA ブックを閉じる前に確認メッセージを表示したい
Excel(エクセル)
-
13
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
14
TODAY()で設定したセルの日付が変わったらマクロを実施させたい
Visual Basic(VBA)
-
15
Excelで指定した日付から過去の最も近い日付(指定した日付も含む)を下から検索する方法
Visual Basic(VBA)
-
16
エクセル 日付超過でポップアップを表示する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「24日の0時」って・・・
-
日付の大小の表現
-
パソコンで購入したデーターが...
-
「時間」、「期日」、「日付」...
-
エクセル マクロ 名前を付けて...
-
差し込み印刷に当日の日付が入...
-
日付以外のデータを抽出したい...
-
EXCELで日付を****年上期、****...
-
ACCESSで1月1日~12月31日まで...
-
エクセルで6ヵ月後を自動入力で...
-
WEEKDAYが反映されない
-
エクセルで日付け表示で、明治...
-
ACCESS フォームで入力した日付...
-
ACCESS 今日の日付のデータ抽出...
-
Word2010 日付選択コンテンツ ...
-
エクセル マクロで指定日にメ...
-
Accessで24:00を入力したいが?
-
回覧板の日付について質問です...
-
ワードの日付け自動入力のキャ...
-
Excel関数 基準日に一番近い指...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンで購入したデーターが...
-
「24日の0時」って・・・
-
回覧板の日付について質問です...
-
差し込み印刷に当日の日付が入...
-
日付の大小の表現
-
「時間」、「期日」、「日付」...
-
エクセル マクロ 名前を付けて...
-
エクセルで日付別にシートを分...
-
履歴書の日付間違いで落ちますか。
-
EXCELで日付を****年上期、****...
-
エクセルで6ヵ月後を自動入力で...
-
ACCESSで日付ごとに自動連番(...
-
WEEKDAYが反映されない
-
2つの日付の中間の日付 エク...
-
Excelでヘッダに前日の日付を表...
-
エクセルで日付け表示で、明治...
-
ACCESSで1月1日~12月31日まで...
-
アンドロイドスマホ。カメラに...
-
差込印刷 縦書きで和暦(漢数...
-
Excel関数 基準日に一番近い指...
おすすめ情報