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

Step 4 月度をセットします

例えば「2017年5月」の文字をカレンダーの中央のセルにVBAで入力します。



Homeに戻る > Excelでアプリケーションソフト > カレンダーソフト

シートのVBAコード

下記のコードを追加してください

VBA実行内容

・1月から12月までをForループを使い順にセットします。
・セットする位置は、開始セルからプラス3した列になるので、Offset(0,3)でセットできます。
・HorizontalAlignmentでセットしたセルを中央揃えに設定しています。

'カレンダーを作成
Private Sub ExCalenSetSub(mm As Integer)
    Dim scell 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
End Sub


'月別に作成
Private Sub ExCalenSet()
    Dim i As Integer
    
    For i = 1 To 12
        ExCalenSetSub i
    Next
End Sub


下記のコードを変更してください
Private Sub CommandButton1_Click()
    ExMakeSheet
    ExCalenSet
End Sub



実行結果

月のセット


Homeに戻る > Excelでアプリケーションソフト > カレンダーソフト

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


Copyright (c) Excel-Excel ! All rights reserved