Excel VBAで日本語の曜日(月曜日、火曜日、、、)を取得する方法の記録です。
日本語の曜日を取得するには「WeekdayName」関数を使います。
< スポンサーリンク >
「WeekdayName」関数構文
WeekdayName(weekday[,abbreviate][,firstdayofweek])
weekday = 曜日を示す数値(Weekday関数で取得した数値など)を指定
abbreviate = 曜日名を省略するときはTrueを指定 省略可能
firstdayofweek = 曜日の最初の日を示す数値を指定 省略可能(私は使用しません)
引数のfirstdayofweekは、下記の値で指定できます。
定 数 | 値 | 内容 |
---|---|---|
vbUseSystem | 0 | 各国語対応APIの設定値を使用 |
vbSunday | 1 | 日曜(規定値) |
vbMonday | 2 | 月曜 |
vbTuesday | 3 | 火曜 |
vbWednesday | 4 | 水曜 |
vbThursday | 5 | 木曜 |
vbFriday | 6 | 金曜 |
vbSaturday | 7 | 土曜 |
VBAで曜日を日本語で取得する
2018/12/1の曜日名を取得してみます。
2018/12/1は土曜日なので、abbreviateを指定しなければ「土曜日」がメッセージで表示され、abbreviateをFalse(または省略)を指定すると「土」がメッセージで表示されます。
Sub test()
Dim hi As Date
hi = #12/1/2018#
MsgBox WeekdayName(Weekday(hi))
End Sub
Sub test()
Dim hi As Date
hi = #12/1/2018#
MsgBox WeekdayName(Weekday(hi), True)
End Sub
こんな記事も書いています