Weekday関数： Excel

ExcelのWeekday関数は指定した日付が何曜日であるか整数で返ります。

Homeに戻る > Excel 日付・時刻関数のTipsへ

構文　：　Weekday(date, [firstdayofweek])
　　date　-　調べる日付を指定します
　　firstdayofweek　-　（省略可能）週の第 1 日目の曜日を指定します。省略すると日曜日（vbSunday）になります

firstdayofweek の定数　：
　　vbUseSystem 　0 　NLS APIの設定値
　　vbSunday 　1　 (既定値) 日曜
　　vbMonday　 2　月曜
　　vbTuesday　 3　火曜
　　vbWednesday　 4　水曜
　　vbThursday　 5　木曜
　　vbFriday 　6 　金曜
　　vbSaturday　 7　土曜

戻り値の定数　：
　　vbSunday 　1　 (既定値) 日曜
　　vbMonday　 2　月曜
　　vbTuesday　 3　火曜
　　vbWednesday　 4　水曜
　　vbThursday　 5　木曜
　　vbFriday 　6 　金曜
　　vbSaturday　 7　土曜

Excel実行画面

曜日を調べる日付に正しい日付を入力しないと、エラーメッセージが表示されます。
曜日の取得エラー

日付を入力し、「曜日を調べる」ボタンをクリックすると、その曜日を調べ表示します。
曜日取得ソフト

Excel VBA実行コード

Option Explicit

'曜日を調べる
Private Function ExGetWeekday(tdate As Date) As String
    Dim n As Integer
    Dim s As String

    n = Weekday(tdate)

    Select Case n
        Case vbSunday:  s = "日曜日"
        Case vbMonday:  s = "月曜日"
        Case vbTuesday:  s = "火曜日"
        Case vbWednesday:  s = "水曜日"
        Case vbThursday:  s = "木曜日"
        Case vbFriday:  s = "金曜日"
        Case vbSaturday:  s = "土曜日"
    End Select
    ExGetWeekday = s
End Function

Private Sub CommandButton1_Click()
    Dim s As String
    Dim sweek As String

    s = Range("D3")
    If IsDate(s) = False Then
        MsgBox "D3に日付を入力してください"
        Exit Sub
    End If

    sweek = ExGetWeekday(CDate(s))
    '結果を表示
    MsgBox Format(s, "yyyy/mm/dd") & "は、" & sweek & "です"
End Sub

Homeに戻る > Excel 日付・時刻関数のTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Weekday関数 ： Excel

Excel実行画面

Excel VBA実行コード

Weekday関数： Excel