【エクセルVBAの基本】日付データから年・月・日を取り出す

はじめに
VBA日付データから年・月・日を取り出す方法
サンプルコードをいくつか紹介
まとめ

はじめに

VBA（Visual Basic for Applications）は、エクセルのデータ操作や自動化に不可欠なツールです。特に、日付データの操作は日常的な業務で頻繁に必要とされます。この記事では、VBAを使って日付データから年、月、日を取り出す方法を詳しく解説します。これを学ぶことで、エクセル作業の効率化が図れるだけでなく、VBAの基本的な理解も深まります。

VBA日付データから年・月・日を取り出す方法

日付データから年、月、日を取り出すためには、VBAの Date 関数と Year、Month、Day 関数を使用します。これらは日付データを扱う際の基本であり、簡単に取り扱うことができます。

サンプルコードをいくつか紹介

以下に、具体的なサンプルコードを示します。

例1：現在の日付から年・月・日を取り出す

Sub ExtractYearMonthDay()
    Dim currentDate As Date
    currentDate = Date

    Dim year As Integer
    Dim month As Integer
    Dim day As Integer

    year = Year(currentDate)
    month = Month(currentDate)
    day = Day(currentDate)

    MsgBox "年: " & year & "、月: " & month & "、日: " & day
End Sub

このコードでは、まず現在の日付を取得し、その後、Year、Month、Day 関数を用いて年、月、日を取り出しています。

例2：特定の日付から年・月・日を取り出す

Sub ExtractFromDate()
    Dim specificDate As Date
    specificDate = "2024/01/28"  ' 特定の日付を設定

    Dim year As Integer
    Dim month As Integer
    Dim day As Integer

    year = Year(specificDate)
    month = Month(specificDate)
    day = Day(specificDate)

    MsgBox "年: " & year & "、月: " & month & "、日: " & day
End Sub

このサンプルでは、特定の日付（ここでは2024年1月28日）を指定し、年、月、日を取り出しています。