Vba で今日に日数を追加する方法 (例あり)

VBA でDateAdd関数を使用すると、日付に特定の日数を加算できます。

この関数を実際に使用する一般的な方法は次のとおりです。

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

この特定のマクロは、 A2:A10の範囲内の各日付に 4 日を追加し、 B2:B10の範囲内の新しい日付を表示します。

DateAdd関数の “d” 引数は、別の時間単位ではなく日付に日数を追加することを指定していることに注意してください。

DateAdd関数で使用できる単位の完全なリストについては、VBA ドキュメント ページを参照してください。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA でこの日に日数を追加する

Excel に次の日付のリストがあるとします。

各日付に 4 日を追加し、列 B に新しい日付を表示するとします。

これを行うには、次のマクロを作成できます。

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

このマクロを実行すると、次の出力が表示されます。

列 B には、列 A の各日付に 4 日を加えたものが含まれることに注意してください。

DateAdd関数の数値を自由に変更して、各日付に異なる日数を追加してください。

注: VBA のDateAdd関数の完全なドキュメントは、ここで見つけることができます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA で日付を比較する方法
VBAで文字列を日付に変換する方法
VBA で 2 つの日付の間の日数を計算する方法