曜日を表示する


日付を記入するループ内で、日付から曜日を取得し、表示します。
曜日を取得するには、Weekday関数を使います。
月曜日とか(月)のように表示するには、 GetWeekDayプロシージャ内の文字列を変更してください。

表に日付と曜日を自動的に表示するのメニューに戻る

スポンサーリンク






実行画面

2010年9月の日付に対応する曜日が入力できました。
記入された日付と曜日

スポンサーリンク



プログラムソース

'日付から曜日を取得する
Private Function GetWeekDay(tdate As Date) As String
    Select Case Weekday(tdate)
        Case 1
            GetWeekDay = "日"
        Case 2
            GetWeekDay = "月"
        Case 3
            GetWeekDay = "火"
        Case 4
            GetWeekDay = "水"
        Case 5
            GetWeekDay = "木"
        Case 6
            GetWeekDay = "金"
        Case 7
            GetWeekDay = "土"
    End Select
End Function

'日付を表示する
Private Sub DateDisp()
    Dim lastday As Long
    Dim i As Long
    Dim s1 As String
    Dim tdate As Date
    
    '末日を取得
    lastday = MonLastDay(Range("C2"), Range("C3"))
    '1日の日付
    tdate = Format(Range("C2") & "/" & Range("C3") & "/1", "yyyy/mm/dd")
    '日付を表示
    For i = 1 To lastday
        Cells(6 + i, 3) = i
        '曜日の取得
        s1 = GetWeekDay(tdate + i - 1)
        '曜日を表示
        Cells(6 + i, 4) = s1
    Next
End Sub

'作成開始ボタン
Private Sub CommandButton1_Click()
    If Range("C2") = "" Then
        MsgBox "作成する年を入力してください。"
        Exit Sub
    End If
    
    If Range("C3") = "" Then
        MsgBox "作成する月を入力してください。"
        Exit Sub
    End If
    
    '日付表示エリアをクリア
    Range("C7:D37").ClearContents
    '日付の表示
    Call DateDisp
End Sub

表に日付と曜日を自動的に表示するのメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved