Excelでカレンダーを作ってみよう　Step 5 曜日をセットします

シートのVBAコード

下記のコードを変更してください

VBA実行内容

・一週間をForで7回ループしセットします。
・セル位置は、開始位置からOffsetでプラス1ずつした位置になります。
・HorizontalAlignmentとxlHAlignCenterで中央寄せにしています。

'カレンダーを作成
Private Sub ExCalenSetSub(mm As Integer)
    Dim i As Integer
    Dim scell As String
    Dim s As String

    scell = Range("C5")

    Sheets(mm & "月").Select
    Sheets(mm & "月").Activate

    '月のセット
    ActiveSheet.Range(scell).Offset(0, 3) = mm & "月"
    '中央に表示
    ActiveSheet.Range(scell).Offset(0, 3).HorizontalAlignment = xlHAlignCenter

    scell = Range("C5")

    Sheets(mm & "月").Select
    Sheets(mm & "月").Activate

    For i = 1 To 7
        Select Case i
            Case 1: s = "日"
            Case 2: s = "月"
            Case 3: s = "火"
            Case 4: s = "水"
            Case 5: s = "木"
            Case 6: s = "金"
            Case 7: s = "土"
        End Select
        '曜日をセット
        ActiveSheet.Range(scell).Offset(1, i - 1) = s
        '中央に表示
        ActiveSheet.Range(scell).Offset(1, i - 1).HorizontalAlignment = xlHAlignCenter
    Next
End Sub

実行結果

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

Excelでカレンダーを作ってみよう

Step 5 曜日をセットします。

シートのVBAコード

VBA実行内容

実行結果