【実務・中級編】モジュールレベル変数と静的変数（Static）の使い分け：状態保持の最適解 – Excel VBA解析バイブル

【Excel VBA】モジュールレベル変数と静的変数（Static）：状態保持の最適解とバグゼロ設計

こんにちは。開発プロジェクトを率いるチーフアーキテクトの私だ。

Excel VBAでの開発現場を見渡すと、「プロシージャ間でデータを引き渡したい」「前回の実行結果を覚えておきたい」という要件に直面した瞬間、思考停止で `Public` や `Dim` を乱発し、コードをスパゲッティ化させている現場があまりにも多すぎる。

「とりあえず動けばいい」とグローバル変数を多用した結果、どのタイミングで値が書き換わったのか追跡できず、デバッグに何日も溶かす……。そんな悪夢を経験したことはないだろうか？

プロシージャが終了しても値を保持する仕組みとして、VBAには主に「モジュールレベル変数」と「Static変数（静的変数）」の2つが用意されている。これらは似て非なるものであり、ライフサイクル（生存期間）とスコープ（有効範囲）の特性を完全に理解して使い分ける必要がある。

今回は、バグの起きない堅牢な状態管理の極意と、実務で即座に使えるプロダクションコードを授けよう。

—

1. 脳死の `Public` 宣言が地獄を生む理由

まず大前提として、グローバル変数（`Public` や標準モジュールでの `Dim`）は、「どこからでもアクセスできる」という最大のメリットが、そのまま「どこからでも値を破壊できる」という最悪のデメリットに裏返る。

どのプロシージャがその値を書き換えたのか追えない。
エラー発生時に変数の状態がリセットされ、再現性が失われる。
VBAの「実行リセット（◆ボタンやEndステートメント）」が走るまで値が残り続け、意図しないキャッシュが残る。

実務の業務自動化ツールにおいて、変数の寿命とスコープは「必要最小限」に絞るのが鉄則だ。ここで登場するのが、モジュールレベル変数とStatic変数である。

—

2. モジュールレベル変数 vs Static変数：本質的な違い

両者の違いをアーキテクトの視点で整理する。

どちらを使うべきかの判断基準

「同じモジュール内の複数のサブルーチンでデータを共有したい」 ＝ モジュールレベル変数 (`Private`)
「この関数の中だけで、前回の実行状態（カウンターやキャッシュなど）を覚えておきたい」 ＝ Static変数

—

3. 【実践】バグを根絶するプロダクションコード例

百聞は一見に如かず。実務で頻出する「API連携や重い処理を行う際の状態管理」を想定した、模範的なコードを示す。

このコードでは、以下の要素を担保している。
1. モジュールレベル変数による「状態の隠蔽（カプセル化）」
2. Static変数による「安全なカウンター・キャッシュ保持」
3. エラーハンドリングと確実なリセット処理

Option Explicit
‘ ===================================================================================
‘ モジュール名: m_ApiManager
‘ 概要: 外部API接続および処理状況のトラッキングを行うモジュール
‘
‘ アーキテクトノート:
‘ – 外部から直接書き換えられないよう ‘Private’ でモジュールレベル変数を宣言。
‘ – 状態管理をこのモジュール内に閉じ込め、スパゲッティコードを防止する。
‘ ===================================================================================

‘ 【モジュールレベル変数】
‘ 同一モジュール内のプロシージャ間で共有するが、外部からは隠蔽する
Private m_IsInitialized As Boolean
Private m_SessionToken As String

‘ ———————————————————————————–
‘ Public メソッド: 外部（シートのボタンなど）から叩かれるエントリーポイント
‘ ———————————————————————————–
Public Sub ExecuteDataSync()
On Error GoTo ErrorHandler

‘ 初期化処理（モジュールレベル変数の状態チェック）
If Not m_IsInitialized Then
Call InitializeSession
End If

‘ メイン処理の実行（Static変数による内部カウンターを活用）
Call ProcessBatchWithState(m_SessionToken)

Exit Sub

ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
‘ エラー時は状態を強制リセットしてゴミを残さない
Call ResetSessionState
End Sub

‘ ———————————————————————————–
‘ プライベートメソッド: セッション初期化
‘ ———————————————————————————–
Private Sub InitializeSession()
‘ ダミーのセッション発行処理
m_SessionToken = “TOKEN_” & Format(Now, “yyyymmddhhmmss”)
m_IsInitialized = True
Debug.Print “セッション初期化完了: ” & m_SessionToken
End Sub

‘ ———————————————————————————–
‘ プライベートメソッド: Static変数を用いたバッチ処理
‘
‘ 【Staticの極意】
‘ m_ExecutionCount はプロシージャが終了しても破棄されず、値を保持し続ける。
‘ しかし、スコープはこのプロシージャ内に限定されているため、他の場所から
‘ 誤って書き換えられるリスクがゼロになる。
‘ ———————————————————————————–
Private Sub ProcessBatchWithState(ByVal token As String)
Static m_ExecutionCount As Long

m_ExecutionCount = m_ExecutionCount + 1
Debug.Print “[” & token & “] バッチ実行回数: ” & m_ExecutionCount & ” 回目”

‘ 例: 5回実行したら自動的にステータスをリセットするロジック
If m_ExecutionCount >= 5 {
MsgBox “5回のバッチ処理が完了しました。セッションを更新します。”, vbInformation
Call ResetSessionState
End If
End Sub

‘ ———————————————————————————–
‘ 状態のリセット処理（セーフティ機能）
‘ ———————————————————————————–
Private Sub ResetSessionState()
m_IsInitialized = False
m_SessionToken = “”

‘ ※注意: Static変数は通常の変数代入ではリセットされない。
‘ 静的変数を強制リセットするには、プロシージャを一度リセットするか、
‘ フラグ制御を組み合わせる必要がある（後述の解説を参照）。

Debug.Print “セッション状態を破棄しました。”
End Sub

—

4. 知っておくべきVBAの「罠」：Static変数のリセットとデバッグ

ここで、プロレベルのエンジニアなら知っておくべきStatic変数の落とし穴を伝授する。

罠1：実行時エラーや `End` ステートメントによるリセット

VBAでは、コード内で未処理のエラーが発生したり、`End` ステートメントが実行されたりすると、モジュールレベル変数もStatic変数もすべての状態が強制リセット（初期化）される。
そのため、「エラーが起きても前回の値を保持し続けたい」という要件がある場合は、変数に頼るのではなく、セル（隠しシート）やファイル、Dictionary等の永続化層に書き出す設計にしなければならない。

罠2：Static変数は外からリセットできない

Static変数はプロシージャ内部に閉じ込められているため、外部から強制的に初期化することができない。
もし「特定のタイミングでStatic変数をゼロに戻したい」という要件があるなら、上記のコード例のように、リセット用のフラグをモジュールレベル変数で持つか、あるいは素直にモジュールレベル変数を使うべきだ。

—

5. チーフアーキテクトからの提言

実務でVBAツールを設計する際の一丁目一番地は、「変数のスコープを極限まで狭くすること」だ。

1. グローバル変数（`Public`）は原則禁止。 どうしても必要な定数や、アプリケーション全体のコンフィグレーション以外には使わない。
2. 「この関数だけで記憶させたい」なら `Static` を使え。 無駄にモジュールレベルを汚染せず、カプセル化を維持できる。
3. 「モジュール内の複数プロシージャで共有したい」なら `Private` なモジュールレベル変数を使え。 そして、エラー時や終了時には必ず初期化するルーチンを用意する。

この原則を守るだけで、あなたの書くVBAコードの保守性は劇的に跳ね上がり、「バグの温床」と呼ばれたExcelツールは、堅牢で信頼性の高い「業務自動化システム」へと生まれ変わる。

さあ、今すぐあなたのコードにある不要な `Public` を削ぎ落としに行こう。