【EXCEL VBA】年月日の数字から日付を作るDateSerial関数

DateSerial関数

年月日の数字から日付を作ることが出来ます。

”年”と”月”と”日”が別々のセルに入力されているような表から、日付形式のデータ（シリアル値）を取得したいときなどに使います(^o^)

構文

DataSerial(年, 月, 日)

年・月・日には、年なら2021とか、月なら１～１２、日なら１～３０などの数値を指定します。

月や日に、ありえない数値（２月に３０日など）入れた場合でも、EXCELが適切に処理してくれます。

EXCELの日付のシリアル値は、1900年1月1日から、9999年12月31日までです。その範囲を超えた日付は扱えないので注意してください。

実行サンプル

では早速実行サンプルです。

次のような一覧を用意しました。

A列に年、B列に月、C列に日の数値を入力しています。その３列を利用してD列にDataSerialを使って日付データを作成したいと思います。

先にコードです。

Sub sample()

    'シートの指定
    Dim sheet As Worksheet
    Set sheet = ActiveSheet
    
    'ループ用の変数
    Dim i As Long
  
   'D列に日付を入力する
    For i = 2 To 6
    
        With sheet
            .Cells(i, 4) = DateSerial(.Cells(i, 1), .Cells(i, 2), .Cells(i, 3))
        End With
        
    Next
    
End Sub

実行すると次のような結果になります。