【エクセルマクロ】1年分の日付を入力する:作業が3倍速くなる!

エクセルマクロ_1年分日付入力-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、1年分の日付を自動入力するVBAコードをご紹介します。

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

1年の日付を入力する

以下のExcelVBAを実行すると、1年の日付を一気に表示します。


Sub 日付を年末まで自動入力()

Dim Mydate As Date
Dim i As Long
   
    '最初の日付
    Mydate = Format("2021/1/1", "yyyy/mm/dd")
    
    '一年分の日数ループ
    For i = 1 To 366
        
        Cells(i, 1) = Format(Mydate, "yyyy/mm/dd")

        '日付を1日プラス
        Mydate = Mydate + 1
        
        If Right(Format(Mydate, "yyyy/mm/dd"), 5) = "01/01" Then
            Exit For
        End If
        
    Next i
    
    MsgBox "完了"

End Sub

 

マクロ実行前

A列を空欄にしておきます。


 

マクロ実行後

シート内に1年分の日付を自動挿入します。

年末は自動判定します。

一年の日数が365日・366日(うるう年)でもピッタリ表示します。

[Mydate = Format(“2021/1/1“, “yyyy/mm/dd”)] に、開始する日付を入力します。


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

【エクセルマクロ】1か月の日付を入力する:作業効率アップ
...