VBAの「見えない落とし穴」を埋める：異常終了時の変数管理術
こんにちは。VBAの世界へようこそ。
マクロの記録から一歩踏み出し、自分だけのロジックを書き始めたあなたへ。今日は、多くの初心者が気づかぬうちに泥沼にはまる、「エラーと変数の不可解な関係」についてお話しします。
「なぜか2回目の実行から結果がおかしくなる」
「エラーが出た後、再実行すると前のデータが残っている」
そんな現象に悩まされたことはありませんか？実はそれ、変数のライフサイクルとエラーハンドリングの設計不足が原因です。今日は、あなたのコードを「プロ仕様」の堅牢なものに変える、クリーンアップの奥義を伝授します。
—
1. エラーが発生すると、変数はどうなるのか？
結論から言いましょう。VBAにおいて、プロシージャ内で宣言した変数は、エラーが発生しても（たとえ処理が中断しても）そのスコープ（有効範囲）が終了するまでは値が保持されます。
これが何を意味するか分かりますか？
もしあなたが、ある変数を「計算用」として使い、エラーで強制終了した後に再実行すると、その変数は「前回の残骸」を持ったまま処理を開始することになるのです。
陥りやすい罠の例
Sub Sample_Bad()
Dim i As Long
‘ ここで何らかの計算
i = 100 / 0 ‘ ゼロ除算エラー発生！ここで処理が中断
‘ 本来はここを通るはずだが、エラーで飛ばされる
Debug.Print “完了しました”
End Sub
このコードを2回実行してみてください。エラーで止まっても、メモリ上では `i` は100という値を保持し続けようとします。複雑なプログラムになればなるほど、この「ゴミ」が予期せぬバグを引き起こすのです。
—
2. 鉄則：終了処理を「Exit Point」として管理せよ
エラーハンドリングの基本は、「どこでエラーが起きても、必ず決まったクリーンアップ処理を通ること」です。これを実現するために、「終了ラベル」という手法を使います。
推奨される基本構造
Sub RobustProcess()
‘ 1. 変数の宣言
Dim ws As Worksheet
Dim counter As Long
‘ 2. エラーハンドリングの宣言
On Error GoTo ErrorHandler
‘ — メイン処理 —
Set ws = ThisWorkbook.Sheets(“Data”)
counter = 100
‘ 意図的なエラーシミュレーション
Err.Raise 999
‘ — 終了処理 —
CleanUp:
‘ 【重要】エラーの有無に関わらず、必ず通る場所
‘ オブジェクトの解放や初期化を行う
Set ws = Nothing
counter = 0
Exit Sub
‘ — エラー発生時の処理 —
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description
Resume CleanUp ‘ CleanUpラベルへ強制的に移動
End Sub
このコードのポイント
- `On Error GoTo ErrorHandler`: エラーが起きたら逃げ道を作る。
- `CleanUp:`: ここに「リセット処理」をまとめます。
- `Resume CleanUp`: エラーを報告した後、必ずクリーンアップへ誘導する。これが「再実行時に影響を残さない」ための生命線です。
—
3. なぜ「初期化」が重要なのか？
特に注意が必要なのが、オブジェクト型変数（Worksheet, Workbook, Rangeなど）です。
これらはメモリを大きく消費します。エラーで止まった際に `Set ws = Nothing` を行わないと、Excelのメモリ上に「幽霊のような参照」が残り、最悪の場合、Excelそのものがフリーズしたり、ファイルが壊れたりする原因になります。
また、`Static` 変数を使っている場合はさらに要注意です。`Static` はプロシージャが終了しても値を保持し続けるため、意図的に値をクリアしない限り、プログラムは永遠に過去の履歴を引きずります。
—
4. プロへの道：クリーンアップのチェックリスト
今後、あなたがコードを書く際は、以下の3点を自問自答してください。
1. 「この変数は、次の実行時に値を引き継いでもいいか？」
- ダメなら、必ず `CleanUp` 処理で初期化（0や””、Nothingに設定）する。
2. 「エラーが発生した時、メモリは解放されるか？」
- `Set` で代入したオブジェクトは、必ず `Nothing` に戻す。
3. 「途中終了しても、中途半端なデータは残っていないか？」
- 書き込み処理の前に `On Error GoTo` を置く習慣をつける。
—
最後に：完璧を目指す必要はありません
ここまで読んで「少し難しそうだな」と感じたかもしれません。しかし、安心してください。最初は「エラーが起きたら、とりあえず `Nothing` に戻す」という癖をつけるだけで、あなたのコードの安定感は飛躍的に向上します。
ここをクリアすれば、あなたはもう「マクロの記録」に頼る初心者ではありません。「システムとしてのVBA」を設計できるエンジニアへの第一歩を踏み出したのです。
何か詰まったら、いつでも戻ってきてください。応援していますよ。
