VBAで曜日を判定する

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2509（ビルド19231.20156クイック実行）

「マクロ曜日判定」
といった検索キーワードでアクセスがありました。

Excelマクロの中で曜日を判定するには、どうすればいいのかを調べていらしたのでしょうか。

［スポンサードリンク］

曜日を判定するサンプルマクロ

以下のExcelマクロを実行すると、「今日は火曜日です。」といったメッセージボックスが表示されます。

Sub 曜日を判定する()

　Dim day_name As String
　
　Select Case Weekday(Now)
　　Case vbSunday
　　　day_name = "日"
　　Case vbMonday
　　　day_name = "月"
　　Case vbTuesday
　　　day_name = "火"
　　Case vbWednesday
　　　day_name = "水"
　　Case vbThursday
　　　day_name = "木"
　　Case vbFriday
　　　day_name = "金"
　　Case vbSaturday
　　　day_name = "土"
　End Select
　
　MsgBox "今日は " & day_name & "曜日です。"

End Sub

サンプルマクロで行っている処理

VBAのNow関数で現在の日時を取得して、

　Select Case Weekday(Now)

Weekday関数で曜日を表す数値を取得しています。

　Select Case Weekday(Now)

その数値を、VbDayOfWeek列挙型に定義されている定数を使って判定して、変数day_nameに日・月・火・水・木・金・土いずれかの文字列を代入しています。

　　Case vbSunday
　　　day_name = "日"
　　Case vbMonday
　　　day_name = "月"
　　Case vbTuesday
　　　day_name = "火"
　　Case vbWednesday
　　　day_name = "水"
　　Case vbThursday
　　　day_name = "木"
　　Case vbFriday
　　　day_name = "金"
　　Case vbSaturday
　　　day_name = "土"

［スポンサードリンク］