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

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

A列に一か月の日付を表示します。

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

1か月の日付を入力

以下のExcelVBAを実行すると、1か月の日付を表示します。

Sub 日付を月の最後まで入力()

Dim Months As Long
Dim Mydate As Long
Dim i As Long
   
    '最初の日付
    Mydate = Range("A1")

    '一か月が何日間あるか計算
    Months = DateAdd("m", 1, Mydate) - Mydate
    
    '一か月の日数ループ
    For i = 2 To Months
    
        '日付を1日プラス
        Mydate = Mydate + 1
 
        '日付を入力       
        Cells(i, 1) = Format(Mydate, "yyyy/mm/dd")

    Next i
    
    MsgBox "完了"

End Sub

マクロ実行前

シート内のセルA1に日付を入力します。（1日：ついたち）

マクロ実行後

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

月末は自動判定しますので、月末が31日・30日、またはうるう年でもピッタリ表示します。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】日付処理を自動化する使用例まとめ
 

【エクセルマクロ】日付処理を自動化する：使用例17選

...

kirinote.com

2022.11.12