Vba で日付から日数を減算する方法 (例あり)

VBA のDateAdd関数を負の数で使用すると、日付から特定の日数を減算できます。

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

 Sub SubtractDays()

    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 に新しい日付を表示するとします。

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

 Sub SubtractDays()

    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 つの日付の間の日数を計算する方法