VBA DateValueで文字列日付を確実変換！Excelデータ入力の落とし穴とロケール回避策

Excelへのデータ入力、特にOCRで読み込んだ請求書や帳票の日付処理で困っていませんか？ただの「文字列」として入力された日付は、日付計算やソートに使えず、多くの手作業を発生させがちです。本記事では、VBAのDateValue関数を使って、そんな文字列日付を確実に「日付型」に変換し、データ入力業務を効率化する方法を徹底解説します。さらに、VBA初心者が見落としがちな日付変換の「落とし穴」とその回避策まで、実務に役立つ情報をお届けします。

コピペで動く！DateValueによる文字列日付変換の基本

まずは、VBAのDateValue関数を使った基本的な文字列日付の変換方法を見ていきましょう。ここでは、OCRでよく見られる「YYYY.MM.DD」形式の文字列日付を例にしています。

Sub ConvertStringDateWithDateValue()
    Dim strDate As String
    Dim dteResult As Date

    ' OCRで読み取ったと想定される文字列日付の例
    strDate = "2026.02.06"

    ' DateValue関数で日付型に変換
    ' この形式("YYYY.MM.DD")であれば、比較的ロケールの影響を受けにくいですが、後述の注意点もご確認ください。
    dteResult = DateValue(strDate)

    ' 変換結果を確認 (イミディエイトウィンドウに出力)
    Debug.Print "元の文字列: " & strDate
    Debug.Print "変換後の日付: " & dteResult
    Debug.Print "日付型確認: " & TypeName(dteResult) ' "Date" と表示されるはずです

    ' 例: Excelシートのセルに出力する場合
    ' Range("A1").Value = dteResult
    ' Range("A1").NumberFormat = "yyyy/mm/dd" ' 表示形式も指定するとより確実です
End Sub
    

上記のコードを実行すると、イミディエイトウィンドウに「2026/02/06」のような形式で日付が出力され、その型が「Date」であることが確認できます。これで、この日付を計算やソートに利用できるようになります。

DateValueの落とし穴：システムのロケール設定と日付誤解釈リスク

DateValue関数は便利ですが、一つ大きな「落とし穴」があります。それは、VBAが実行されているPCのOS（Windowsなど）の「地域設定（ロケール）」に日付の解釈が依存してしまう点です。

ロケール問題の回避策：DateSerial関数を最大限に活用する

このロケールによる日付誤解釈のリスクを完全に回避し、常に意図した日付に変換するためには、文字列から年・月・日の各要素を抽出し、DateSerial(年, 月, 日)関数を使用するのが最も堅牢で推奨される方法です。これにより、OSの地域設定に依存しない、堅実な日付変換が実現できます。

Sub ConvertStringDateSafelyWithDateSerial()
    Dim strDate As String
    Dim arrDateParts() As String
    Dim dteResult As Date
    Dim intYear As Integer, intMonth As Integer, intDay As Integer

    ' OCRで読み取った文字列 (YYYY.MM.DD形式を想定)
    strDate = "2026.02.06"

    ' 区切り文字 '.' で文字列を分割し、年、月、日の要素を取得
    arrDateParts = Split(strDate, ".")

    ' 年月日の3要素が正しく分割できたか確認
    If UBound(arrDateParts) = 2 Then
        ' 各要素を整数型に変換
        intYear = CInt(arrDateParts(0))
        intMonth = CInt(arrDateParts(1))
        intDay = CInt(arrDateParts(2))

        ' DateSerial関数で日付を構築（ロケールに左右されません！）
        dteResult = DateSerial(intYear, intMonth, intDay)

        Debug.Print "元の文字列: " & strDate
        Debug.Print "変換後の日付 (DateSerial使用): " & dteResult
        Debug.Print "日付型確認: " & TypeName(dteResult)
    Else
        Debug.Print "日付形式が予期せぬものです。変換できませんでした: " & strDate
    End If
End Sub
    

Split関数で区切り文字（この場合はピリオド`.`）を使って文字列を分解し、それぞれのパーツをCIntで数値に変換してからDateSerialに渡すことで、VBAが日付を解釈する際の曖昧さを排除できます。これは、請求書日付のような重要なデータ入力処理において、最も信頼性の高いアプローチと言えるでしょう。

まとめ

VBAのDateValue関数は、文字列日付を日付型に変換する便利なツールですが、システムのロケール設定による誤解釈という落とし穴があることを理解しておくことが重要です。特に複数の国や地域で利用されるExcelファイルや、OCRで読み取った請求書データなど、様々な形式の文字列日付を正確に処理する場面では、本記事で紹介したDateSerial関数を使って年・月・日を個別に指定するアプローチが最も堅牢で安全です。

これらのVBA日付変換テクニックを活用すれば、あなたのExcelデータ入力・集計業務をより効率的かつエラーなく進めることができるでしょう。ぜひ、あなたのVBAコードにこれらの知識を取り入れてみてください。