エクセル VBA 入門 曜日を取得するweekday

      2016/05/03

曜日を取得する。
weekday関数
戻り値は数値
0は日曜日
1は月曜日
2は火曜日
3は水曜日
4は木曜日
5は金曜日
6は土曜日
という意味ですがわかにくい。
そこで数値を引数として取得して日本語の名前に変える関数
WeekdayName関数
戻り値は日曜日という書式で取得できる。

今日の曜日を取得して日本語でセルに出力したサンプル
わかり難いなら数値の所をvbSunday等の組込み関数に置き換えでもいい。
曜日ごとの処理を分けなくていいなら1行でこの場合書けるけどね。

Range("A1") = WeekdayName(Weekday(Date))

サンプルソース
--------------------------------------------
Option Explicit
Sub start()

Select Case Weekday(Date)
Case 0
Range("A1") = WeekdayName(0)
Case 1
Range("A1") = WeekdayName(1)
Case 2
Range("A1") = WeekdayName(2)
Case 3
Range("A1") = WeekdayName(3)
Case 4
Range("A1") = WeekdayName(4)
Case 5
Range("A1") = WeekdayName(5)
Case 6
Range("A1") = WeekdayName(6)
End Select

End Sub
--------------------------------------------

実行結果
月曜日(今日の曜日)



PR



 - Excel入門

Translate »