なぜVBAで「日付や記号」を扱う必要があるのか
実務の現場では、帳票の作成やログの記録、あるいは定型資料の作成など、毎日決まった形式で日付や記号を入力する作業が発生します。手動で入力すると、人為的なミス（入力漏れやフォーマットの揺れ）が発生しやすく、チェック作業に余計な時間がかかってしまいます。
VBAを活用してこれらの入力を自動化すれば、一瞬で正確なデータをセルに反映できるだけでなく、業務の標準化にも大きく貢献します。今回は、VBAで日付と特殊記号をスマートに挿入する手法を解説します。
基礎知識：VBAにおける日付と文字列の扱い
Excel VBAにおいて、現在の日付を取得する関数には「Date関数」があります。これを使えば、パソコンのシステム時計に基づいた今日の日付を即座に取得可能です。
また、特殊記号については、VBAの「Chr関数」を使用するのが一般的です。Chr関数は、指定した文字コードに対応する文字を返す関数です。例えば、丸数字や特殊な数学記号などは、この文字コードを指定することでセルに自由に出力できます。
実装：日付と特殊記号の出力ロジック
日付を出力する際は、Format関数を組み合わせることで、「yyyy/mm/dd」や「令和〇年」といった自由な形式に変更可能です。
特殊記号を出力する際は、事前にUnicodeまたはASCIIコードを調べておく必要があります。これらを組み合わせることで、定型的な書類フォーマットを自動生成するマクロを作成します。
サンプルプログラム：日付と記号を自動入力するマクロ
以下のコードをVBA標準モジュールに貼り付けて実行してください。アクティブなセルに今日の日付と、ビジネスでよく使われる「チェックマーク」を入力します。
Sub InsertDateAndSymbol()
‘ 現在の日付をセルに挿入する
‘ Format関数を使うと、日付の形式を自由に指定できます
ActiveCell.Value = Format(Date, “yyyy年mm月dd日”)
‘ セルの右隣に特殊記号（チェックマークなど）を入力
‘ ChrW関数はUnicodeに対応しており、様々な記号を指定可能です
‘ ※ChrW(&H2713) はチェックマークのコードです
ActiveCell.Offset(0, 1).Value = “完了 ” & ChrW(&H2713)
‘ 処理結果をメッセージで通知
MsgBox “日付と記号の入力を完了しました！”, vbInformation
End Sub
応用・注意点：現場で陥りやすい罠
1. 表示形式と値の違い：
セルに日付を入力する際、Valueプロパティに直接日付形式の文字列を入れると、Excelが自動的に日付として認識してくれます。しかし、セルの書式設定によっては正しく表示されない場合があります。必要に応じて、対象セルの「NumberFormatLocal」プロパティを併せて設定する癖をつけましょう。
2. 特殊記号の文字化け：
Chr関数は標準的なASCII文字（0～255）に適していますが、記号によっては環境依存文字となる場合があります。Web上の文字コード表を確認し、Unicodeを扱える「ChrW関数」を積極的に利用することをお勧めします。
3. メンテナンス性：
日付の形式（和暦・西暦）や記号の種類をコード内に直書き（ハードコーディング）すると、後で変更があった際に修正が大変です。重要な設定値は、ワークシート上の「設定用シート」に記述し、そこから読み込むような設計にすると、現場での運用が非常に楽になります。
