概要：なぜ今、TODAY関数とVBAの組み合わせが最強なのか
日々の事務作業において、「今日の日付」を扱うことは避けて通れません。請求書の発行、日報の作成、タスクの期限管理など、Excelで日付を入力しない日は存在しないと言っても過言ではないでしょう。多くのユーザーは手入力で日付を打ち込んでいますが、これは重大なヒューマンエラーの温床となります。
本記事では、Excelの標準関数であるTODAY関数と、それをVBAで制御・応用する手法について、プロの視点から徹底的に解説します。単に「今日の日付を表示する」という初歩的なレベルを超え、VBAを活用して日付を自動化し、業務の質を一段上のレベルへ引き上げるための技術を凝縮しました。
詳細解説：TODAY関数の本質と揮発性という特性
TODAY関数は、引数を必要としない非常にシンプルな関数ですが、その動作には注意すべき点があります。それは「揮発性関数（Volatile Function）」であるということです。
揮発性関数とは、ワークシート上で何らかの計算が発生するたびに再計算される関数を指します。TODAY関数は、ファイルを開くたびに、あるいはセルを編集してEnterを押すたびに、システム時計を参照して現在の日付に書き換わります。
これは「常に今日の日付を最新に保ちたい」場合には非常に有用ですが、一方で「入力した時点の日付を固定したい（スタンプのように使いたい）」という場合には致命的な欠点となります。この「動的か、静的か」という特性を理解することが、Excel運用の第一歩です。
サンプルコード：VBAで日付を「固定」するテクニック
実務では、TODAY関数のように日付が勝手に変わってしまうと困るケースが圧倒的に多いです。「今日の日付を入力する」というマクロを作成し、ボタン一つで「値」として入力する方法を学びましょう。これにより、明日になっても日付が変わることのない、正確な記録を残すことができます。
Sub InsertTodayDate()
' 現在アクティブなセルに今日の日付を値として入力する
' TODAY関数とは異なり、日付が固定されるため履歴管理に最適
Dim targetCell As Range
Set targetCell = ActiveCell
' 日付を入力し、ついでに表示形式も整える
With targetCell
.Value = Date
.NumberFormatLocal = "yyyy/mm/dd"
End With
MsgBox "今日の日付を入力しました。", vbInformation
End Sub
上記のコードは、VBAにおける「Date関数」を使用しています。これはTODAY関数のVBA版といえるもので、コードが実行された瞬間の日付を取得します。値としてセルに書き込むため、再計算されることはありません。
さらに、応用編として「入力した日付を自動的にセルに反映し、且つ誤入力を防ぐ」コードも紹介します。
Sub LogCurrentTime()
' 指定した列（例えばB列）に日付を自動スタンプする例
Dim lastRow As Long
' B列の最終行を取得
lastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
' B列に今日の日付、C列に現在時刻を入力
Cells(lastRow, 2).Value = Date
Cells(lastRow, 3).Value = Now
' 入力後に自動で書式を整える
Range(Cells(lastRow, 2), Cells(lastRow, 3)).HorizontalAlignment = xlCenter
End Sub
実務アドバイス：なぜ関数ではなくVBAを使うべきなのか
現場のプロとして断言できるのは、「ルーチンワークにおいて関数だけに頼るのは限界がある」ということです。
1. 計算負荷の軽減：数千行に及ぶデータでTODAY関数を多用すると、ファイルを開くたびに再計算が走り、動作が重くなります。VBAで「値」として貼り付ければ、計算コストはゼロです。
2. 履歴の保護：監査対応やプロジェクト管理において、「いつ入力したか」という事実は改ざんされてはなりません。揮発性関数であるTODAY関数は、ファイルを開くたびに日付が更新されてしまうため、過去の記録としての信頼性が低いです。VBAによる値の固定は、データガバナンスの観点からも必須の技術です。
3. ユーザー体験の向上：ショートカットキー（Ctrl + ;）で日付を入力する方法もありますが、マクロを使えば、「日付入力と同時に特定のフォーマットを適用する」「別のセルに担当者名を自動入力する」といった複合的な処理を自動化できます。
プロフェッショナルへの道：エラーハンドリングと柔軟な設計
VBAで日付を扱う際、必ず直面するのが「セルの書式設定」の問題です。VBAでDateを代入した際、セルの書式が「文字列」や「数値」になっていると、意図しない表示になることがあります。
前述のサンプルコードで`NumberFormatLocal`プロパティを使用した理由はそこにあります。VBAを書く際は、「値を入れる」だけでなく、「セルの状態（書式、列幅、保護状況）まで制御する」ことを心がけてください。これが、初心者とプロの決定的な差となります。
また、日付の入力漏れを防ぐために、入力後に「入力完了」のポップアップを表示させる、あるいは特定のセルが空欄のまま日付を入力しようとした場合に警告を出す、といった「防御的プログラミング」を実装することで、チームメンバーが使用する際のミスを劇的に減らすことができます。
まとめ：TODAYの先にある自動化の世界
TODAY関数はExcelの基本ですが、その特性を深く理解し、VBAという武器を組み合わせることで、単なる「日付を表示するだけのセル」を「正確な業務ログ」へと昇華させることができます。
1. TODAY関数は「今日という日を常に表示したい」ときに使う。
2. VBAのDate関数は「入力した時点の日付を固定したい」ときに使う。
3. 実務では、再計算負荷とデータの信頼性を考慮して、VBAによる値のスタンプを優先する。
この考え方を徹底するだけで、あなたのExcelスキルは飛躍的に向上します。日付という、どんな業務にも付随する重要な要素を完全に制御下に置くこと。それこそが、Excel業務効率化の第一歩であり、最も確実な成果を生む方法なのです。
まずは、今日ご紹介したコードをあなたの現場のファイルにコピー＆ペーストし、その快適さを体験してください。自動化の恩恵は、小さな「日付入力」の効率化から始まります。
