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

エクセルマクロ_1一か月分日付入力-アイキャッチ ExcelVBA

エクセルマクロで、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選
...

 

「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載