こんにちは！VBAの基本から実務での応用まで、楽しく確実にステップアップしていきたいあなたへ。
マクロの記録から抜け出して、いざ自分でコードを書き始めると、こんな疑問にぶつかりませんか？
「変数って、プロシージャが終わったら勝手に消えるよね？」
「でも、開いたファイルや接続したデータベース、オブジェクトのメモリって本当にちゃんと片付いているの？」
実はここ、多くの人が見落としがちなVBAプログラミングの大きな落とし穴です。中途半端なメモリ解放や後始末の放置は、エクセルが急に重くなったり、最悪の場合フリーズしたりする原因になります。
今回は、プロシージャ終了時に「確実に、自動的に」リソースを綺麗にお片付けする、クラスモジュールの `Terminate`（ターミネート）イベントを使った洗練された自動クリーンアップ設計の世界へご案内します。
ここをクリアすれば、あなたのVBAコードは「動くだけの素人コード」から「プロのアーキテクトが書く美しいコード」へと生まれ変わりますよ。さあ、一緒に扉を開けましょう！
—
1. なぜ「お片付け（クリーンアップ）」が必要なのか？
VBAでプロシージャ（SubやFunction）が実行されると、メモリ上に一時的な領域（変数など）が確保されます。通常、プロシージャが `End Sub` に到達すると、その中で宣言した変数は自動的に消去されます。
しかし、以下のような「外部リソース」や「重いオブジェクト」を扱うときは話が別です。
- 画面描画の抑制（`ScreenUpdating`）や警告表示（`DisplayAlerts`）の戻し忘れ
- 外部ファイルやデータベースへの接続（コネクション）の切り忘れ
- 巨大なオブジェクト変数の参照の解放し忘れ
これらを「エラーが起きようが起きまいが、プロシージャを抜ける瞬間に100%元通りにする」にはどうすればよいでしょうか？
毎回 `On Error GoTo ErrorHandler` で手動で後片付けを書くのは、コードが冗長になるし、何より書き忘れるリスクがあります。ここに「クラスモジュールのライフサイクル」を利用した、美しすぎる自動化の解があります。
—
2. クラスモジュールの「生と死」を利用する
VBAの「クラスモジュール」には、インスタンスが生成された時に走る `Class_Initialize` と、消滅する時に走る `Class_Terminate` という2大イベントが存在します。
- Initialize（誕生）： プロシージャが始まるときにオブジェクトを召喚する。
- Terminate（消滅）： プロシージャが終わり、変数の寿命が尽きてメモリから消える瞬間に自動発動する。
この「絶対に最後に呼ばれる」というTerminateの性質を利用します。
「このクラスが存在している間だけ設定をONにし、クラスが消滅する（プロシージャを抜ける）瞬間に、自動でOFF（お片付け）に戻す」という番人（ガードマン）を作ってしまうのです。
—
3. 実践！自動クリーンアップ・ガードマンの実装
百聞は一見に如かず。実際にコードを書いてみましょう。
今回は、実務で最もよくある「処理速度アップのために画面描画や警告を止め、終わったら確実に元に戻す」という処理を自動化してみます。
ステップ1：クラスモジュールの作成
VBE（Visual Basic Editor）のメニューから [挿入] ＞ [クラス モジュール] を選択し、プロパティウィンドウで名前を `Scoper` に変更してください。
以下のコードを貼り付けます。
‘ =================================いはやは、クラス名: Scoper =================================
‘ 目的：生成された瞬間に環境を固め、消滅する瞬間に自動で元の状態に戻すクラス
‘ ============================================================================================
Private Sub Class_Initialize()
‘ 【誕生時】処理の高速化と安定化のため、余計な描画や警告をストップ
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual ‘ 自動計算も止める場合
Debug.Print “【Scoper】環境をロックしました。”
End Sub
Private Sub Class_Terminate()
‘ 【消滅時（プロシージャ終了時）】何が何でも確実に元の状態へ復元！
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Debug.Print “【Scoper】環境を安全に復元し、お片付け完了しました。”
End Sub
ステップ2：標準モジュールから呼び出す
次に、通常の標準モジュールに以下のコードを書きます。
Sub HeavyProcessSample()
‘ 番人（Scoperクラス）をローカル変数として召喚
Dim guard As New Scoper
On Error GoTo ErrorHandler
‘ — ここから重い処理（例：大量のセル操作） —
Dim i As Long
For i = 1 to 10000
Cells(i, 1).Value = “処理中…”
:
Next i
‘ わざとエラーを発生させるテストをする場合は、次のコメントを外してください
‘ Err.Raise 9999, , “予期せぬエラー発生！”
‘ — 重い処理ここまで —
‘ ※ここに「Application.ScreenUpdating = True」を書く必要は一切ありません！
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しましたが、お片付けは自動で行われます。”, vbCritical
‘ ここにも復元コードを書く必要はありません！
End Sub
—
4. このコードの何がスゴいのか？（コードの解説）
標準モジュールで `HeavyProcessSample` を実行したときの裏側の動きに注目してください。
1. `Dim guard As New Scoper` が実行された瞬間：
クラスの `Class_Initialize` が走り、画面描画がストップします。
2. メインの処理が走る：
画面がチラつかず、爆速で処理が進みます。
3. プロシージャが終了する（正常終了、あるいは `Exit Sub`、さらには `ErrorHandler` を経由する場合でも）：
ローカル変数である `guard` はスコープを抜けるため、VBAのメモリ管理システムによって強制的に破棄（解放）されます。
4. `guard` が消滅する瞬間：
クラスの `Class_Terminate` が自動的に呼び出され、エラーが起きていようとも絶対に画面描画や警告が元の状態に戻ります。
「途中でエラーが出てマクロが強制終了し、エクセルが真っ白なまま固まった……」というVBA初心者あるあるの悲劇を、この設計は完全に防いでくれます。
—
5. 陥りやすいエラーと注意点
ここで、少しハイレベルなエンジニアとしての注意点もお伝えしておきます。
- オブジェクト変数の「参照カウント」に注意
クラスが消滅するタイミングは、「そのクラスを指している変数がメモリ上から完全になくなった時」です。もし別のグローバル変数などにこの `guard` を代入してしまい、あちこちで使い回すと、意図したタイミングで `Terminate` が走らなくなります。
原則として、プロシージャ内で完結するローカル変数として `Dim` で宣言して使い捨てることが鉄則です。
- エラーハンドリングとの組み合わせ
`On Error Resume Next` などを乱用していると、メモリ解放のタイミングが狂うことがあります。基本に忠実なエラーハンドリングと組み合わせることで、この自動クリーンアップの真価が発揮されます。
—
まとめ：ワンランク上のVBAエンジニアへ
今回は、クラスモジュールのライフサイクル（`Terminate` イベント）を利用した、プロシージャ終了時の自動クリーンアップ設計について解説しました。
- 「お片付け」を人の手（コードのあちこち）に頼らない。
- クラスの寿命（スコープ）と連動させて、自動化・システム化する。
ここをクリアすれば、あなたの書くVBAコードの信頼性は劇的に向上し、メンテナンスしやすく美しいものになります。「マクロの記録」の向こう側にある、本当のプログラミングの面白さを、ぜひご自身のコードで体感してみてください。
それでは、また次回の知見でお会いしましょう。あなたのVBAライフが最高のものになりますように！
