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

エクセルマクロ_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日、またはうるう年でもピッタリ表示します。


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

【エクセルマクロ】1か月分の日付のシート作成:作業効率アップ
...