大規模Project VBAを支配する：画面描画と計算の完全封鎖による極限の高速化
数千行、あるいは数万行に及ぶWBS（Work Breakdown Structure）や複雑なタスク依存関係を持つProject VBAの自動化において、開発者が直面する最大の壁は「パフォーマンスの劣化」である。
インメモリでの処理であれば一瞬で終わるはずのデータ操作も、デフォルトのExcel / Projectオブジェクトモデルの挙動をそのまま放置すれば、数分から場合によっては数十分の地獄のような待ち時間を生み出す。
画面がガタガタと再描画され、プロパティに値を書き込むたびにバックグラウンドで依存関係の再計算とUIの同期が走る――。これはレガシー環境の保守において最も避けるべきアンチパターンだ。
本稿では、数千行規模のタスク階層構造構築や前提条件の動的バインドにおいて、「画面更新の完全停止」と「計算モード・イベントの徹底制御」を組み合わせ、実行時間を数分から数秒へと劇的に圧縮するチーフアーキテクトの極限の知見を公開する。
—
1. なぜVBAは遅いのか？ オブジェクトモデルの裏側
VBAが遅い本質的な原因は、VBAランタイムとCOM（Component Object Model）ホストアプリケーション（ExcelやProject）間のコンテキストスイッチのオーバーヘッドにある。
特にタスクの階層構造（WBS）を操作する場合、1行追加するごとに以下の処理が暗黙裏に実行される。
1. UIスレッドへの描画要求と再レイアウト
2. タイムラインおよび依存関係（先行タスク・後続タスク）の再計算
3. イベントリスナーへの通知
これらを野放図にしたままループ処理を回すことは、高速道路でアクセルを踏みながらサイドブレーキをかけ続けるようなものだ。真のエンジニアであれば、アプリケーションの「感覚器官（UI）」と「脳（再計算エンジン）」を完全に麻痺させてから処理に没頭すべきである。
—
2. 高速化の4大鉄則
大規模タスク処理のパフォーマンスを限界まで引き上げるためには、以下の4つの防壁を同時に構築する必要がある。
1. 画面描画の完全停止（ScreenUpdating / Automation）
2. 自動計算の無効化（Calculation / Manual）
3. イベント通知の遮断（EnableEvents）
4. オブジェクト変数の完全なスコープ管理と明示的解放
これらを確実かつ安全に実行するためのテンプレート構造を次項で提示する。
—
3. 実装コード：極限最適化されたタスク制御エンジン
以下に、エラーハンドリング（例外処理）の堅牢性を担保しつつ、アプリケーションの挙動を完全にロックダウンして数千行のタスクを高速処理する実践的なVBAコードを示す。
Option Explicit
‘ =================================================================================
‘ 模块名: MdlTaskOptimizer
‘ 概要 : 大規模タスク処理における画面更新停止と計算モード制御の極限実装
‘ 著者 : チーフアーキテクト
‘ =================================================================================
Public Sub ExecuteHighSpeedTaskProcessing()
Dim startTime As Double
startTime = Timer
‘ 1. アプリケーション状態の退避と完全ロックダウン
Dim originalScreenUpdating As Boolean
Dim originalCalculation As Long
Dim originalEnableEvents As Boolean
On Error GoTo ErrorHandler
With Application
originalScreenUpdating = .ScreenUpdating
originalCalculation = .Calculation
originalEnableEvents = .EnableEvents
‘ — 鉄則の封鎖処理 —
.ScreenUpdating = False ‘ 画面描画を完全停止
.Calculation = xlCalculationManual ‘ 自動計算を手動に固定
.EnableEvents = False ‘ イベント発火を遮断
.DisplayAlerts = False ‘ 警告ダイアログの抑制
End With
‘ 2. メイン処理の実行（数千行のタスク構築・依存関係設定）
Call ProcessMassiveTasks
‘ 3. 正常終了時の状態復元
Call RestoreApplicationState(originalScreenUpdating, originalCalculation, originalEnableEvents)
MsgBox “処理が完了しました。実行時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation
Exit Sub
ErrorHandler:
‘ 異常終了時も必ずアプリケーションの状態を復元する（ゾンビプロセスの防止）
Call RestoreApplicationState(originalScreenUpdating, originalCalculation, originalEnableEvents)
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
End Sub
Private Sub ProcessMassiveTasks()
‘ 【注意】このスコープ内ではUIや再計算に一切依存しないメモリ上の高速操作を行う
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(“WBS_Master”)
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ 配列処理によるメモリ内高速化（セルへの直接アクセスを最小化）
Dim rawData As Variant
rawData = ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, 10)).Value
Dim i As Long
For i = 1 To UBound(rawData, 1)
‘ — ここにタスクの階層構造構築・依存関係計算ロジックを記述 —
‘ 例: rawData(i, 3) = CalculatePredecessor(…)
Next i
‘ まとめてシートへ書き戻し
ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, 10)).Value = rawData
‘ オブジェクトの明示的解放
Set ws = Nothing
End Sub
Private Sub RestoreApplicationState(ByVal scrUp As Boolean, ByVal calc As Long, ByVal evt As Boolean)
‘ 確実に元の状態へ戻すためのクリーンアップルーチン
On Error Resume Next
With Application
.ScreenUpdating = scrUp
.Calculation = calc
.EnableEvents = evt
.DisplayAlerts = True
End With
On Error GoTo 0
End Sub
—
4. チーフアーキテクトからの警鐘：例外処理と「ゾンビ状態」の回避
上記のコードにおいて最も重要なのは、`On Error GoTo ErrorHandler` による状態復元の保証である。
VBAの実行中にデバッグエラーが発生したり、ユーザーが強制終了（Ctrl + Break）を行ったりした場合、`ScreenUpdating = False` や `Calculation = xlCalculationManual` が設定されたままアプリケーションが取り残される。これが世に言う「Excelがフリーズした、または動かなくなったように見える」ゾンビ状態の正体だ。
シニアエンジニアたる者、「処理を止める時は、いかなる例外が生じようとも環境を元の健常な状態に巻き戻すコード」をセットで実装する義務がある。
—
5. まとめ
大規模プロジェクトのタスク管理やWBS自動化において、パフォーマンスのボトルネックを解消することは単なる「効率化」ではなく、システム自体の生存に関わる要件である。
- 画面描画の停止
- 計算エンジンの手動化
- イベントの遮断
- 例外時を含めた確実な状態復元
この4点を網羅したアーキテクチャを取り入れることで、VBAは単なるマクロの域を超え、堅牢なエンタープライズ・オートメーションへと昇華する。現場のエンジニア諸氏には、ぜひ自身のプロジェクトへこの極限の知見を導入し、その圧倒的なスピードの差を体感してほしい。
