指定曜日にMsgBox表示は可能でしょうか？。

質問

お尋ねいたします。
指定した曜日（例えば水曜日）に、エクセルファイルを開くと 【MsgBox "本日は水曜日です。〇〇〇・・・"】が、表示されるようなことは可能でしょうか？。

回答No.1

kigoshi · ベストアンサー

１）[Alt]+[F11]
２）左側のプロジェクトエクスプローラーでThisWorkBookをクリック
３）右側のエディタエリアに下記コードを貼り付け、保存終了。

Private Sub Workbook_Open()
If Weekday(Date) = vbWednesday Then
MsgBox "きょうは水曜日です。"
End If
End Sub

全ての曜日を表示したいのなら、

Private Sub Workbook_Open()
Select Case Weekday(Date)
Case 1
MsgBox "きょうは日曜日です。"
Case 2
MsgBox "きょうは月曜日です。"
Case 3
MsgBox "きょうは火曜日です。"
Case 4
MsgBox "きょうは水曜日です。"
Case 5
MsgBox "きょうは木曜日です。"
Case 6
MsgBox "きょうは金曜日です。"
Case 7
MsgBox "きょうは土曜日です。"
End Select
End Sub

お礼

早速のご教示、ありがとうございました。
また、毎日の表示方法も併せてご教示いただき助かりました。
今後とも、よろしくお願いいたします。