大規模WBSを秒速で制圧せよ：VBAの「画面描画」と「再計算」を完全支配する極限最適化
開発現場でよく見聞きする悲劇がある。数千行に及ぶWBS（Work Breakdown Structure）のタスク階層、前提条件、依存関係を自動構築するVBAマクロを組んだものの、実行ボタンを押した瞬間にPCがファンを唸らせ、コーヒーを飲み終えてもまだ終わらない――。
原因は明白だ。VBAのコードそのものではない。「Excelの過剰なお世話（親切心）」を断ち切っていないからだ。
Excelは、セルが1つ書き換えられるたびに、画面の描き直し（描画）を行い、シート全体への影響波及を計算し、条件付き書式を再評価する。数千行・数十列のタスクデータを相手にこれをやらせれば、タスクの親子関係をループで1つ結ぶたびにCPUが悲鳴を上げるのは当然の摂理である。
今回は、数分かかっていた大規模プロジェクトのタスク処理を数秒で終わらせるための、「画面更新停止」と「計算モード制御」の極限最適化テクニックを、プロダクション品質のコードとともに伝授しよう。
—
1. なぜ「重い」のか？ オブジェクトの裏側で起きていること
プログラミング初学者は「ループ処理が遅い」と勘違いしがちだが、実務におけるVBAの最大のボトルネックは「VBAとExcelエンジン（COMインターフェース）の往復回数」にある。
特にWBSの構築では以下が多発する：
1. 画面描画（ScreenUpdating）: セル値が変わるたびに、Windowsのウィンドウハンドルを叩いてピクセル単位の再描画走査が発生する。
2. 自動再計算（Calculation）: 数式が設定されたセルが変更されると、依存関係ツリーを辿ってシート全体の数式が再計算される。WBSの「先行タスク」や「日数」の変更は連鎖的な再計算を引き起こす。
3. イベント発火（EnableEvents）: `Worksheet_Change` などのイベントが暴発し、無駄なバリデーションやログ書き込みが走る。
これらを「野放し」にしたままコードを書くことは、サイドブレーキを引いたままフェラーリを走らせるようなものだ。
—
2. 堅牢な最適化の設計思想：例外時の「取り残し」を防ぐ
パフォーマンスを上げるためのコードは、一見するとシンプルに見える。しかし、実務で使うツールにおいて最悪なのは「エラー発生時に画面や計算が停止したままになること」である。
例えば、処理の途中でエラーが起きて `Application.Calculation = xlCalculationManual` のままマクロが終了したらどうなるか？ ユーザーが手動で入力したセルに一切計算がかからなくなり、組織全体で大パニックを引き起こす。
したがって、プロのアーキテクトが書くコードには、必ず「例外安全（Exception Safety）」な構造が組み込まれている。すなわち、`Error Handler` または `Finally` 的なスコープ管理を徹底し、いかなる異常終了であっても環境設定を確実に元の状態へ復元させることだ。
—
3. 【実践】プロダクションコード：超高速WBSタスク処理エンジン
以下のコードは、数千行のタスクデータに対し、画面・計算・イベントを完全に凍結した状態で安全に一括処理を行うモジュールテンプレートである。そのままプロジェクトへ組み込んで活用してほしい。
Option Explicit
‘ =========================================================================
‘ módulo名: modWBSProcessor
‘ 概要: 大規模WBSの階層構造・依存関係構築を極限まで高速化するプロシージャ
‘ =========================================================================
Sub ExecuteHighSpeedWBSProcessing()
Dim startTime As Double
startTime = Timer ‘ 実行時間計測用
‘ — 1. 環境退避変数 —
Dim orgScreenUpdating As Boolean
Dim orgCalculation As XlCalculation
Dim orgEnableEvents As Boolean
Dim orgDisplayStatusBar As Boolean
‘ — エラーハンドリングの準備 —
On Error GoTo ErrorHandler
‘ — 2. Excelエンジンの「お世話」を完全にシャットオフ —
With Application
orgScreenUpdating = .ScreenUpdating
orgCalculation = .Calculation
orgEnableEvents = .EnableEvents
orgDisplayStatusBar = .DisplayStatusBar
.ScreenUpdating = False ‘ 画面描画の完全停止
.Calculation = xlCalculationManual ‘ 手動計算モードへの移行
.EnableEvents = False ‘ イベントの無効化
.DisplayStatusBar = True ‘ ステータスバーの利用許可
Wend
‘ ステータスバーでユーザーに進行状況を通知
Application.StatusBar = “WBS最適化処理を実行中… (環境設定完了)”
‘ =========================================================================
‘ — 3. メイン処理（ここに実際の重い処理を記述） —
‘ =========================================================================
Call ProcessWBS_CoreLogic
‘ =========================================================================
‘ — 4. 正常終了時のクリーンアップ —
Call RestoreEnvironment(orgScreenUpdating, orgCalculation, orgEnableEvents, orgDisplayStatusBar)
Application.StatusBar = False
MsgBox “WBSの構築が正常に完了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “高速化完了”
Exit Sub
ErrorHandler:
‘ — 5. 異常終了時のフォールバック（極めて重要） —
Call RestoreEnvironment(orgScreenUpdating, orgCalculation, orgEnableEvents, orgDisplayStatusBar)
Application.StatusBar = False
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
End Sub
‘ =========================================================================
‘ 内部処理：WBSコアロジック（メモリ上または一括操作での処理を推奨）
‘ =========================================================================
Private Sub ProcessWBS_CoreLogic()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(“WBS”)
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ 【極意】セルを1つずつ読み書きせず、必要ならVariant配列に一度吸い上げる
‘ 今回はシンプルに一括処理のイメージとしてループを記述（描画・計算が止まっているのでこれでも十分高速）
Dim i As Long
For i = 2 To lastRow
‘ 例：WBSの階層に応じたインデントや依存関係のパース処理
‘ ws.Cells(i, “C”).Value = … などの書き込み
‘ 100行ごとに進捗を表示
If i Mod 100 = 0 Then
Application.StatusBar = “WBS処理中… (” & i & ” / ” & lastRow & ” 行)”
DoEvents ‘ UIのフリーズを防ぎつつ処理を継続
End If
Next i
‘ 最後に明示的にシート全体の再計算を実行（Manualモード中のため、ここで1度だけ計算させる）
ws.Calculate
End Sub
‘ =========================================================================
‘ 環境復元プロシージャ
‘ =========================================================================
Private Sub RestoreEnvironment(ByVal scUp As Boolean, ByVal calc As XlCalculation, ByVal evEn As Boolean, ByVal dsSt As Boolean)
With Application
.ScreenUpdating = scUp
.Calculation = calc
.EnableEvents = evEn
.DisplayStatusBar = dsSt
End With
End Sub
—
4. データベースや外部ファイル連携時の注意点
WBSツールが巨大化すると、進捗データを外部のSQLデータベースやCSV、あるいは別ファイルの親マスターと同期させる要件が出てくる。
ここで「画面更新停止」と組み合わせる際に気をつけるべき罠がある。
- ADO / DAOによるレコードセット操作時の罠:
データベースから取得した数千件のレコードをシートに流し込む際、`CopyFromRecordset` を使うのが最も速いが、このメソッド自体はExcelの計算モードの影響を受ける。必ず上記のように計算モードを `xlCalculationManual` に落としてから流し込むこと。
- ADO接続中の `DoEvents` の危険性:
ループ内で `DoEvents` を多用しすぎると、非同期でユーザーがシートを操作してしまい、外部DBとのトランザクションに整合性エラーが生じるリスクがある。DB連携時は、データ処理中は完全にUIをロックし、ステータスバーのみで進捗を伝える設計が堅牢である。
—
5. チーフアーキテクトからの提言
VBAは、古い言語と侮られがちだ。しかし、Excelという強大なアプリケーションの特性を深く理解し、その「エンジンに余計な負荷をかけない設計」を施したコードは、モダンなデスクトップアプリにも匹敵する爆速のパフォーマンスを発揮する。
「コードが遅い」と感じたら、アルゴリズムの前に、まず「Excelに無駄な仕事をさせていないか」を疑え。画面描画を止め、計算を止め、イベントを統御する――この3つをマスターした瞬間から、あなたの作るVBAツールは「おもちゃ」から「プロダクションレベルの業務システム」へと進化する。
現場のエンジニアよ、重厚長大なWBSを、その手で軽やかに支配せよ。
