【エクセルマクロ】12ヶ月分のシート作成:作業効率アップ

ExcelVBA-12か月分シート作成-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、12ヶ月分のシート作成するVBAコードをご紹介します。

12枚のシートを自動生成します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

12ヶ月分のシート作成

以下のExcelVBAを実行すると、1か月ごとに連続したシートを作成します。


Sub シート追加()

Dim First_Sht As Worksheet
Dim Months As Long
Dim i As Long

    '最初のシートを変数格納
    Set First_Sht = ActiveSheet
    
    '12か月のループ
    For i = 1 To 12
    
        If i = 1 Then
            '最初のシートは、シート名を変更するのみ
            First_Sht.Name = i & "月"
        Else
        
            'シート作成し、シート名を日付にする
            Sheets.Add After:=ActiveSheet
            ActiveSheet.Name = i & "月"
            ActiveSheet.Range("A1") = i & "月"
        
        End If
    Next i
    
    MsgBox "完了"

End Sub

 

マクロ実行前

ファイル内にシートが1つある状態です。

 

マクロ実行後

ファイル内に1月から12月までのシートを自動挿入します。


 
 
この記事がお役に立てれば幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利29選
...