【入門編】日付型のシリアル値と文字列操作の罠：Excelの表示形式に惑わされない日付処理 – Excel VBA解析バイブル

こんにちは。今日もVBAの世界を共に探求していきましょう。

Excel VBAを触り始めて、マクロの記録を卒業しようとする皆さんが最初に突き当たる「見えない壁」。それが日付（Date型）の扱いです。

「セルには『2023/10/01』と表示されているのに、VBAで取得して計算しようとするとエラーになる」
「日付をファイル名に使おうとしたら、変な数字の羅列になった」

こうした悩みは、あなたが未熟だから起きるのではなく、Excelが持つ「優しさ（自動変換）」と「厳密なデータ構造」のギャップによって引き起こされます。今日は、伝説のアーキテクトとして、この日付の正体を解き明かし、二度と日付操作で迷わないための「極限の知見」を伝授します。

ここをクリアすれば、Excel VBAの基本はバッチリですよ。

—

1. 日付の正体は「ただの数字」である

まず、大前提として脳に刻んでください。Excelにおいて、日付というデータ型は存在しません。

「えっ？」と思うかもしれませんが、本質的には「1899年12月30日を0とした、小数点付きの数値（シリアル値）」にすぎません。

• `1.0` は 1900年1月1日
• `45198.0` は 2023年9月29日
• `45198.5` は 2023年9月29日の正午（12:00）

私たちが目にしている「2023/09/29」という文字列は、Excelが気を利かせて数字に仮面を被せているだけなのです。

【重要】シリアル値を意識するコード例

この「正体」を理解していないと、計算が狂います。まずはこのコードを実行して、日付の裏側を覗いてみましょう。

Sub RevealDateIdentity()
Dim targetDate As Date
targetDate = Now() ‘ 現在の日時を取得

‘ 1. 普通に表示（Excelが気を利かせた形式）
Debug.Print “見た目の日付: ” & targetDate

‘ 2. 正体（シリアル値）を表示
‘ CDbl関数でDouble型（浮動小数点数）に強制変換します
Debug.Print “正体の数値: ” & CDbl(targetDate)
End Sub

—

2. 「文字列」として扱う際の落とし穴

初心者が最もハマるのが、「日付型の変数をそのまま文字列結合に使う」ことです。

VBAは非常に「お節介」な言語です。文字列が必要な場所にDate型を放り込むと、勝手にそのPCの「地域設定」に合わせて文字列に変換してしまいます。これがバグの温床です。

失敗例：ファイル名に日付を入れたいとき

Sub BadExample()
Dim reportDate As Date
reportDate = #10/1/2023#

‘ NG例：PCの設定によっては “report_2023/10/01.xlsx” になる
‘ Windowsのファイル名に “/” は使えないため、ここでエラー（実行時エラー52）が発生します
On Error Resume Next
Name “temp.xlsx” As “report_” & reportDate & “.xlsx”
If Err.Number <> 0 Then
Debug.Print “エラー発生！原因は『/』が混入したからです。”
End If
End Sub

解決策：Format関数で「意思」を込める

プロは、日付を文字列にする際、決してVBAの自動変換に頼りません。必ず`Format`関数を使い、「私はこの形式で文字列にしたいのだ」と明示します。

—

3. 実践：ISO 8601形式と日本式フォーマット

システム間連携やデータベース処理では、世界基準のISO 8601（YYYY-MM-DD）形式が求められます。一方、日本の現場では「令和」などの和暦が必要なこともありますね。

これらを確実に制御するベストプラクティスを見てみましょう。

Sub MasterDateFormatting()
Dim targetDate As Date
targetDate = DateSerial(2023, 10, 1) ‘ 2023年10月1日を安全に生成

‘ — 1. 世界標準 (ISO 8601) —
‘ 並び替え（ソート）に強く、システム連携で最も安全な形式
Dim isoDate As String
isoDate = Format(targetDate, “yyyy-mm-dd”)
Debug.Print “ISO形式: ” & isoDate ‘ 2023-10-01

‘ — 2. 日本のビジネス形式 —
Dim jpDate As String
jpDate = Format(targetDate, “yyyy年mm月dd日(aaa)”)
Debug.Print “日本形式: ” & jpDate ‘ 2023年10月01日(日)

‘ — 3. 究極の和暦変換 —
‘ “ggge年” と書くことで、新元号（令和）にも対応します
Dim eraDate As String
eraDate = Format(targetDate, “ggge年mm月dd日”)
Debug.Print “和暦形式: ” & eraDate ‘ 令和5年10月01日
End Sub

—

4. 文字列から日付に戻す「逆変換」の罠

外部のCSVファイルやシステムから「20231001」といった文字列で日付が降ってくることがあります。これを `CDate(“20231001”)` とすると、VBAは混乱してエラーを吐きます。

文字列を日付に戻すときは、「年・月・日」をバラバラにしてから再構築するのが最も堅牢な方法です。

安全な逆変換のテンプレート

Function SafeParseDate(strDate As String) As Date
‘ 例: “20231001” という8桁の文字列を想定
Dim y As Integer, m As Integer, d As Integer

If Len(strDate) <> 8 Then
Err.Raise 9999, , “日付形式が不正です（8桁必要）”
End If

y = Mid(strDate, 1, 4)
m = Mid(strDate, 5, 2)
d = Mid(strDate, 7, 2)

‘ DateSerialを使うのがプロの鉄則
‘ 無効な日付（例：2月30日）が渡されても、Excelが適切に計算（3月2日に繰り越し等）してくれます
SafeParseDate = DateSerial(y, m, d)
End Function

—

5. 現場で使える「黄金の3ルール」

日付処理の迷いから脱却するために、今日からこの3つのルールを守ってください。

1. 計算する直前まで「Date型」で保持せよ

• 計算（◯日後、◯ヶ月前など）は、数値であるDate型のまま行います。

2. 表示・出力する「最後の瞬間」だけ「文字列」にせよ

• セルへの書き出し、ファイル名の生成、メッセージボックス表示の時だけ `Format` 関数を使います。

3. 日付の生成には `DateSerial` を使え

• `CDate(“2023/1/1”)` ではなく `DateSerial(2023, 1, 1)` を使います。これにより、PCの言語設定が米国（MM/DD/YYYY）だろうが日本（YYYY/MM/DD）だろうが、100%確実に意図した日付が作れます。

—

最後に

日付の扱いは、一見地味ですが、システムの信頼性を左右する非常に重要な領域です。
シリアル値という「本質」を理解し、表示形式という「仮面」を自在に操れるようになれば、あなたのVBAスキルは初心者レベルを完全に脱却したと言えるでしょう。

「ここをクリアすれば、Excel VBAの基本はバッチリですよ」

自信を持って、コードを書いていきましょう。また次の講義でお会いしましょう！