VBAの「イベントプロシージャ」を制する：あなたのExcelを「自律する相棒」に変える極意
こんにちは。現場で泥臭く、かつエレガントに業務を自動化してきたエンジニアです。
これまで「ボタンを押してマクロを実行する」というスタイルで満足していませんでしたか？ それも一つの手ですが、真の自動化エンジニアは「Excelに自ら考えさせ、動かさせる」ことを目指します。
それが今回解説する「イベントプロシージャ」です。これをマスターすれば、ユーザーが入力した瞬間にログを取ったり、保存前にデータの整合性をチェックしたりと、Excelがあなたの専属アシスタントのように動き出します。
さあ、マクロの記録から卒業し、プロの領域へ足を踏み入れましょう。
—
1. イベントプロシージャとは何か？
一言で言えば、「特定の出来事（イベント）が起きたときに、自動的に呼び出される特別な関数」です。
Excelには、ブックを開いたとき、セルを書き換えたとき、シートを切り替えたときなど、数多くの「フック」が用意されています。これらをVBAで拾い上げることで、プログラムを自動実行させます。
どこに書くのか？（重要）
標準モジュールではありません。「シートモジュール」や「ThisWorkbookモジュール」に記述します。これが鉄則です。
—
2. 実戦的！3大イベントの実装術
現場で最もよく使われる3つのイベントを、現場仕様のコードで解説します。
① セルを変更した瞬間に走らせる：`Worksheet_Change`
例えば、「A列に入力があったら、自動的にB列にタイムスタンプを押す」という処理です。
‘ シートモジュールに記述してください
Private Sub Worksheet_Change(ByVal Target As Range)
‘ A列以外が変更された場合は無視する（パフォーマンス対策）
If Intersect(Target, Me.Columns(“A”)) Is Nothing Then Exit Sub
‘ イベントの連鎖（無限ループ）を防ぐための基本
Application.EnableEvents = False
‘ B列に現在時刻を書き込む
Target.Offset(0, 1).Value = Now
‘ イベントを再開する
Application.EnableEvents = True
End Sub
② ブックを開いた瞬間に挨拶させる：`Workbook_Open`
「今日やるべきタスク」をアラートで表示したり、特定のシートをアクティブにしたりするのに使います。
‘ ThisWorkbookモジュールに記述してください
Private Sub Workbook_Open()
MsgBox “おはようございます！今日のタスクを確認しましょう。”, vbInformation
‘ シート「Menu」を表示させる
Worksheets(“Menu”).Activate
End Sub
③ 保存直前にチェックを走らせる：`Workbook_BeforeSave`
「未入力項目がないか確認し、あれば保存をキャンセルする」という強力なガードが可能です。
‘ ThisWorkbookモジュールに記述してください
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range(“A1”).Value = “” Then
MsgBox “A1が空です！保存できません。”, vbCritical
Cancel = True ‘ 保存処理を中断する
End If
End Sub
—
3. 初学者が必ずハマる「3つの落とし穴」
ここさえ気をつければ、あなたは中級者の入り口に立っています。
1. 無限ループの恐怖
`Worksheet_Change`の中でセルを書き換えると、その書き換えがまた「変更」とみなされ、`Change`イベントが再発火します。これが無限ループです。
- 対策： コード冒頭の `Application.EnableEvents = False` で一時的にイベントを殺し、処理が終わったら `True` に戻す。これはエンジニアの常識です。
2. コードを置く場所の誤解
標準モジュールに書いてもイベントは発火しません。必ず「対象のシート」や「ThisWorkbook」を開いて、そこにあるドロップダウンから選択して実装してください。
3. パフォーマンスへの配慮
イベントは、ユーザーが何かするたびに実行されます。巨大な処理を組み込むとExcelが重くなります。「`Intersect`で対象範囲を絞り込む」など、必要な時だけ動く工夫を心がけましょう。
—
最後に：Excelは「道具」から「パートナー」へ
イベントプロシージャを使いこなすと、Excelは単なる表計算ソフトではなく、あなたの指示を待つ「業務プラットフォーム」に進化します。
「何かあったら自動でこうする」という設計思想を持てるようになれば、あなたのVBAスキルは格段に洗練されます。まずは小さな `MsgBox` を出すところから始めてみてください。
ここをクリアできれば、あなたのVBAの世界は一気に広がります。応援していますよ！
