Vba で dateserial 関数を使用する方法 (例付き)

VBA でDateSerial関数を使用すると、特定の日、月、年の日付を返すことができます。

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

この特定のマクロは、列 C の年の値、列 B の月の値、列 A の日の値を使用して、範囲D2:D13 の日付値を返します。

次の例は、 DateSerial関数を実際に使用する方法を示しています。

例: VBA で DateSerial 関数を使用する方法

Excel に、さまざまな日付の日、月、年を表示する次の列があるとします。

各行の日、月、年の値を使用して、列 D の日付値を表示するとします。

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

列 D には、列 A、B、C の日、月、年の値をそれぞれ使用した結果の日付値が表示されます。

注: VBA DateSerial関数の完全なドキュメントはここにあります。

追加リソース

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

VBA で日付を比較する方法
VBAで日付を週番号に変換する方法
VBA で 2 つの日付の間の日数を計算する方法