Excel VBA 8桁（例: YYYYMMDD形式）を日付に変換するDateValue関数

2024年2月27日 2025年5月11日

Excel VBAの DateValue関数は、8桁の数字（例: YYYYMMDD形式）を日付に変換する使い方や、注意点やサンプルコードを紹介します。

📌 「これ、自動化できたらラクなのに…」と思ったこと、ありませんか？
実はその作業、Excelマクロで簡単に自動化できるかもしれません。
「でもマクロって難しそう…」という方のために、完全初心者向けの入門記事をご用意しました！

👇実務で“そのまま使える”テンプレ付きで、コピペするだけ！
初心者向けエクセルマクロの作り方を解説｜コピペOK実務テンプレ付き

Excel VBA 8桁を日付に変換するDateValue関数の利用

以下のようなシーンで利用されます。

・ファイルやデータベースで日付を8桁の数字として格納している場合。

・外部からのデータ受信時に、8桁の数字形式で日付が提供される場合。

ポイント

DateValue関数は、一部の国設定によっては日付の解釈が異なる可能性があるため注意が必要です。

Excel VBA 8桁を日付に変換するDateValue関数サンプルコード

Option Explicit

Sub ConvertToDateTimeWithDateValue()
    ' 8桁の数字（YYYYMMDD形式）を日付に変換（DateValue関数）
    Dim eightDigitNumber As String
    eightDigitNumber = "20240125" ' YYYYMMDD形式の8桁の数字

    ' 8桁の数字をDateValue関数で日付に変換
    Dim convertedDate As Date
    convertedDate = DateValue(Left(eightDigitNumber, 4) & "/" & Mid(eightDigitNumber, 5, 2) & "/" & Right(eightDigitNumber, 2))

    ' 結果を表示
    MsgBox "変換された日付: " & convertedDate
End Sub

サンプルコードは、DateValue関数を使用して8桁の数字を日付に変換しています。Left、Mid、Right関数を使用して、数字を年月日に分割し、DateValue関数に渡しています。

「Excel VBAで自動化するコードのベースが習得できる解説書」

👉初心者の人は、Excel VBAエキスパートベーシック解説書

👉マクロの基礎知識がある人は、Excel VBAエキスパートスタンダード解説書