先生と生徒の会話形式で理解しよう

生徒

「先生、複数のVBAプログラムを作ったら、お互いが邪魔をして変な動きをするようになっちゃいました。どうすればいいですか？」

先生

「それは『イベント干渉』という現象ですね。一つひとつの命令は正しくても、同時に動こうとしてケンカしている状態です。」

生徒

「ケンカしちゃうんですか？仲良く順番に動かす方法はないんでしょうか？」

先生

「もちろんです！交通整理のように、どのプログラムを優先させるか決めてあげれば解決しますよ。その秘訣をじっくり解説しますね。」

1. イベント干渉とは何か？プログラム同士の衝突を知る

Excel VBAには、特定の操作をした時に自動で動く「イベント」という仕組みがあります。しかし、便利な反面、複数のイベントが同じタイミングで発生すると、お互いの処理が重なり合って予期せぬエラーを引き起こすことがあります。これをイベント干渉と呼びます。

プログラミング未経験の方に例えると、「家族全員が一度に違うテレビ番組をつけようとして、リモコンを奪い合っている状態」に似ています。あるいは、「自動ドアが開こうとしているのに、外から鍵をかけようとしている」ような矛盾した動きです。これを防ぐためには、どの命令をどの順番で実行するか、あるいは一時的に他の命令を休ませるかという「交通整理」が必要になります。Google検索でも「VBA 重い」「VBA 競合」「VBA 順番」といった悩みは多く、この解決策を知ることは中級者への第一歩です。

2. セル変更とブック保存のタイミングが重なる罠

最も多い干渉の例は、シートの値を書き換えた瞬間に（Worksheet_Change）、ブックを保存する処理（Workbook_BeforeSave）が動いてしまうようなケースです。プログラムが書き換えを行うと、Excelは「変更があったから保存しなきゃ！」と反応し、保存しようとするとまた別のチェック機能が働く…という連鎖が起きます。

このような「連鎖反応」を止めるためには、今何が起きているかをVBAに正しく伝える必要があります。初心者の方は、まず「一つの操作が別の操作を呼び出してしまうことがある」というリスクを意識するだけで、トラブルの半分は防げるようになります。難しい用語で競合状態と言いますが、まずは「プログラム同士の追いかけっこ」が起きていると考えれば大丈夫です。

3. 解決策の王道：一時停止スイッチを活用する

複数のイベントが干渉しそうな時は、一つの処理が動いている間だけ、他のセンサーをすべてオフにするのが最も確実な方法です。これには Application.EnableEvents（アプリケーション・イネーブル・イベント）という魔法のスイッチを使います。


' セルが書き換わった時に動くプログラム
Private Sub Worksheet_Change(ByVal Target As Range)
    ' 1. 他のイベント（センサー）を一時的にオフにします
    Application.EnableEvents = False
    
    ' 2. ここでメインの書き換え作業を行います
    Target.Value = Target.Value & "【確認済】"
    
    ' 3. 作業が終わったので、センサーをオンに戻します
    Application.EnableEvents = True
End Sub

このコードのおかげで、自分がセルを書き換えたことによって、もう一度自分自身が呼び出されるという「無限ループ」や、他のブック保存イベントなどへの不必要な連鎖を断ち切ることができます。パソコンを触ったことがない方でも、「作業中は耳栓をして、終わったら耳栓を外す」というイメージを持てば、このコードの意味が理解できるはずです。

4. 静的変数（Static）を使って「実行中」を管理する

センサー全体を止めたくないけれど、特定のプログラムだけは二重に動かしたくない、という場合にはStatic（スタティック）変数が便利です。これは、プログラムが一度終わっても値を覚えておいてくれる特別な箱です。これを「実行中フラグ」として使います。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 「今、処理をやっている最中かな？」を覚える箱
    Static isRunning As Boolean
    
    ' もし既に実行中なら、何もしないで帰ります
    If isRunning = True Then Exit Sub
    
    ' 実行中であることをメモします
    isRunning = True
    
    ' ここにやりたいことを書きます
    MsgBox "現在選択しているのは " & Target.Address & " です。"
    
    ' 終わったのでメモを元に戻します
    isRunning = False
End Sub

ここで使っている Boolean（ブーリアン）という言葉は、「はい」か「いいえ」の二択だけを入れることができるデータの種類のことです。これを使うと、一つの処理が完了するまで次の処理を受け付けない「予約制」のような仕組みを作ることができ、干渉をスマートに防げます。

5. 優先順位を決める！条件分岐による棲み分け

複数のイベントを共存させるためには、If 文を使って「この条件の時はこっち、あの条件の時はあっち」と明確に棲み分けをさせるのがベストプラクティスです。例えば、特定のシート名の時だけ特定のイベントを許可する、といった方法です。


' ブック全体での操作を監視するイベント
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' シートの名前によって、動かす処理を切り分けます
    If Sh.Name = "入力シート" Then
        ' 入力シートの時だけ、特別な入力補助を動かします
        Call MyInputAssist(Target)
    ElseIf Sh.Name = "管理シート" Then
        ' 管理シートの時だけ、閲覧履歴を記録します
        Call MyLogWriter(Sh.Name, Target.Address)
    End If
End Sub

このように、一つの大きな入り口（イベント）で操作を受け付け、その中で If 文を使ってそれぞれの小部屋（個別のプログラム）に案内することで、プログラム同士がぶつかるのを防ぎます。これは「司令塔」を一人に絞るという設計思想で、大規模なツールを作る際にも非常に役立ちます。

6. 外部コントロール（ボタンなど）との連動を整理する

ユーザーフォーム上のボタンや、シートに配置したチェックボックスなどの「コントロール」のイベントも、干渉の原因になります。例えば、チェックボックスをONにした瞬間に別のリストボックスが更新され、その更新がまた別のチェックを外す…といった連鎖です。これを解決するには、コントロールの値を変更する前に一度イベントの連鎖を意識的に止める必要があります。

初心者がよくやってしまうミスに、「プログラムで値を書き換えたのに、人間が操作した時と同じイベントが勝手に動いて困る」というものがあります。これを防ぐには、前述の EnableEvents だけでなく、コントロール特有のプロパティを操作する際も慎重になる必要があります。まずは「自分の操作が誰を驚かせてしまうか」を想像してみることが、エラーの少ないVBA作成の秘訣です。

7. 予期せぬエラーへの「安全装置」を設置する

干渉を解決しようとしてセンサーをオフにしたまま、プログラムがエラーで止まってしまうと、Excelのセンサーが切れたまま戻らなくなるという二次災害が起きます。これを防ぐために、エラーハンドリングという安全装置を必ずセットで使いましょう。


Sub SafeUpdate()
    ' 万が一失敗しても、最後は必ずスイッチをオンに戻す場所に飛ぶようにします
    On Error GoTo SafetyExit
    
    Application.EnableEvents = False
    
    ' ここで複雑な計算やコピーを行います
    Range("A1:Z100").Copy Destination:=Range("A101")
    
SafetyExit:
    ' 正常に終わってもエラーでも、ここは必ず通ります
    Application.EnableEvents = True
End Sub

On Error GoTo（オン・エラー・ゴートゥー）は、「もし間違いが起きたら、あそこの看板まで逃げなさい」という命令です。この看板（ラベル）を一番最後に置いておくことで、どんなに干渉やトラブルが起きても、Excelの機能を壊さずに安全に終了させることができます。未経験の方でも、この「サンドイッチ構造（挟み込み）」を真似するだけで、非常に頑丈なツールが作れるようになります。

8. 干渉を恐れず、整理整頓されたVBAを目指そう

イベントの干渉は、VBAに慣れてきた証拠でもあります。複数の機能を組み合わせようとしているからこそ起きる問題です。今回紹介した「センサーの停止」「実行中フラグの管理」「条件による棲み分け」という3つの武器を使いこなせれば、どんなに複雑な自動化ツールでも安定して動かすことができるようになります。

プログラミングはパズルに似ています。ピースが重なってしまったら、少し削ったり場所を動かしたりして、ピッタリはまる形を見つけるのが楽しみの一つです。もし動きがおかしいなと思ったら、まずは「どこでケンカが起きているのか」を、一歩引いて眺めてみてください。焦らず一つずつ交通整理をしていけば、あなたのExcel作業は今まで以上に快適で、驚くほど効率的なものに変わります！