モジュールレベル変数とプロシージャレベル変数の境界線：メモリ消費を抑えるスコープ設計
こんにちは。開発プロジェクトを率いるチーフアーキテクトの私だ。
これまで数多くの大規模Excel VBAシステムを見てきたが、残念ながら「動くには動くが、保守不能かつメモリをドブに捨てるようなコード」が後を絶たない。その大半の元凶は、「変数のスコープ（有効範囲）とライフサイクル（寿命）の無知」にある。
「とりあえず上のほうに `Dim` で書いておけば、どこからでも使えて便利だから」
――そんな素人考えで `Public` 変数やモジュールレベル変数を乱発していないか？
今回は、VBAのメモリ管理の裏側を暴き、バグの起きない堅牢なスコープ設計の極意をロジカルかつシャープに伝授する。
—
1. なぜ「モジュールレベル変数」の乱発は悪なのか？
変数にはそれぞれ「寿命」がある。
- プロシージャレベル変数 (`Dim` in Sub)：
そのプロシージャが実行されている間だけメモリ上に存在し、終了した瞬間に解放される。
- モジュールレベル変数 (`Dim` at Module top / `Private` / `Public`)：
そのモジュール（またはブック全体）が読み込まれている間、ずっとメモリを占有し続ける。
ここで考えてみてほしい。例えば、数万行のデータを処理する巨大な配列や、外部DBへのコネクションオブジェクトをモジュールレベルで保持し続けた場合どうなるか？
処理が終わっているにもかかわらず、Excelを終了するまでそのメモリは解放されない。これが複数モジュール、複数ユーザーの環境で蓄積されると、「メモリリーク」や「原因不明の動作不良（Excelの突然のフリーズ・強制終了）」を引き起こす。
変数は、「必要なときに生成し、不要になったら速やかに消去する」。これがプログラミングの鉄則だ。
—
2. 境界線の引き方：スコープ設計の3原則
実務でコードを書く際、以下の3原則を上流工程から死守してほしい。
1. 原則1：極小スコープの法則
変数は、できる限り「使う場所の直前」で宣言せよ。プロシージャをまたいでデータを共有する必要がない限り、すべてプロシージャレベル（`Dim`）に閉じ込める。
2. 原則2：状態の持ち回りを排除せよ
「前のプロシージャで処理した結果をモジュール変数に入れておき、次のプロシージャで使う」という設計はスパゲッティコードの温床になる。処理間のデータ受渡しは、「引数（ByVal / ByRef）」と「戻り値」を明示的に使え。
3. 原則3：例外的にモジュール変数を使うケースを見極めよ
モジュールレベル変数（`Private`）が許容されるのは、「クラスモジュールのプロパティ（内部状態）」や「同一モジュール内の複数の小分けされたプロシージャで、どうしても共有せざるを得ない読み取り専用の定数・設定値」程度に留めよ。
—
3. 【プロダクションコード】メモリ効率を極限まで高めた設計例
百聞は一見に如かず。実務でそのまま使える、堅牢性とメモリ効率を両立したコード例を提示する。
このコードは、外部CSVファイルを読み込み、データベース（または別シート）へ高速バルクインサートを行う処理を想定している。モジュール変数を一切排除し、スコープを完全に制御したサンプルだ。
Option Explicit
‘ =========================================================================
‘ モジュール名: mDataProcessor
‘ 概要: 外部ファイル取込とデータ処理を行うメインコントローラー
‘ 備考: モジュールレベル変数は一切使用せず、メモリ効率とスレッドセーフ性を担保
‘ =========================================================================
Public Sub ExecuteDataImport()
Dim startTime As Double
startTime = Timer
‘ エラーハンドリングの標準装備
On Error GoTo ErrorHandler
‘ 1. アプリケーションの最適化（描画停止など）
Call ToggleExcelOptimizations(False)
‘ 2. ファイルパスの取得（プロシージャレベルで保持）
Dim targetFilePath As String
targetFilePath = Application.GetOpenFilename(“CSVファイル (.csv), .csv”, , “インポートファイルの選択”)
If targetFilePath = “False” Then
MsgBox “処理がキャンセルされました。”, vbInformation, “インポート”
GoTo Finally
End If
‘ 3. データの読み込み（巨大な配列データを取得）
‘ データを格納する配列は、このスコープ（ExecuteDataImport）の終了と共に自動消滅する
Dim rawData() As String
rawData = LoadCsvToArray(targetFilePath)
If UBound(rawData, 1) < 0 Then MsgBox "有効なデータが存在しません。", vbExclamation, "警告" GoTo Finally End If ' 4. データの書き込み処理へ配列を引き渡す（参照渡しによる高速化） Call WriteDataToDatabase(rawData) MsgBox "インポートが正常に完了しました。" & vbCrLf & _ "処理時間: " & Format(Timer - startTime, "0.00秒"), vbInformation, "完了" Finally: ' 5. 必ず元の設定に戻す Call ToggleExcelOptimizations(True) Exit Sub ErrorHandler: MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _ "Error: " & Err.Description, vbCritical, "システムエラー" Resume Finally End Sub ' ------------------------------------------------------------------------- ' 補助関数1: CSVファイルを配列として読み込む（スコープの独立） ' ------------------------------------------------------------------------- Private Function LoadCsvToArray(ByVal filePath As String) As String() Dim fileNum As Integer fileNum = FreeFile Open filePath For Input As #fileNum Dim fileContent As String fileContent = Input$(LOF(fileNum), fileNum) Close #fileNum ' 改行コードで分割して2次元配列へ（実装簡略化のため1次元の例） Dim lines() As String lines = Split(fileContent, vbCrLf) ' 必要なメモリだけを確保して返す LoadCsvToArray = SplitLinesToMatrix(lines) End Function ' ------------------------------------------------------------------------- ' 補助関数2: 配列の整形 ' ------------------------------------------------------------------------- Private Function SplitLinesToMatrix(ByRef lines() As String) As String() ' ※ここにパース処理が入る（今回はプレースホルダー） ' プロシージャ内で完結するローカル変数のみで処理を完結させる SplitLinesToMatrix = lines End Function ' ------------------------------------------------------------------------- ' 補助関数3: データベース/シートへの書き込み ' ------------------------------------------------------------------------- Private Sub WriteDataToDatabase(ByRef data() As String) ' 巨大な配列を受け取り、一括出力する処理 ' モジュール変数を経由せず、引数経由でデータを受け取るため依存関係がゼロになる Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("DataStore") ' データのクリアと書き込み ws.Cells.Clear ' 高速化のため配列をそのままシートにバインド ' （実際の実装ではサイズに応じた処理を記述） ' オブジェクト変数の即時解放 Set ws = Nothing End Sub ' ------------------------------------------------------------------------- ' 共通ユーティリティ: Excelの描画・計算停止による高速化 ' ------------------------------------------------------------------------- Private Sub ToggleExcelOptimizations(ByVal state As Boolean) With Application .ScreenUpdating = state .Calculation = IIf(state, xlCalculationAutomatic, xlCalculationManual) .EnableEvents = state End With End Sub ---
4. コードレビューの視点：なぜこの設計が「プロ」なのか？
上記のコードを見て、君は何を感じただろうか？
1. `Option Explicit` の徹底
宣言漏れによる暗黙のバリアント型変数の生成を防ぎ、メモリ効率と型安全性を最大化している。
2. モジュール変数の完全排除
どこからでも書き換えられるグローバル変数やモジュール変数が一本もない。これにより、「どのタイミングで変数の値が変わったのか追えない」というデバッグ地獄から完全に解放される。
3. オブジェクトの確実なスコープアウトと解放
`ws` などのオブジェクト変数は、プロシージャの終了とともに自動解放されるが、明示的に `Set ws = Nothing` を挟むことで、複雑な参照サイクルの防止を意識している。
—
チーフアーキテクトからの最後のアドバイス
変数のスコープを狭く設計することは、一見するとコード量が増えたり、引数の設計に頭を使ったりして面倒に見えるかもしれない。
しかし、それは「将来の自分やチームメンバーが、バグの温床に怯えなくて済むための保険」であり、巨大化したExcelファイルが「突然重くなる現象」を防ぐ唯一の盾だ。
今日から君の書くコードのモジュール変数はすべて消し去り、必要なスコープに必要な分だけ変数を生み出す、洗練されたアーキテクチャへとシフトしてほしい。現場のパフォーマンスとコードの美しさは、間違いなく劇的に変わるはずだ。
