MS Project VBAの深淵：WBS階層を支配する再帰アルゴリズムとメモリ管理の流儀
MS ProjectのVBAは、単なる自動化ツールではない。それはProjectの巨大なメモリ空間に直接アクセスし、計算エンジンに介入する権限を持つ「特権的インターフェース」だ。
今回は、多くの技術者が安易にループを回して陥るパフォーマンスの沼を避け、WBSの階層構造（OutlineLevel）を再帰的かつ高効率に処理するアーキテクチャを提示する。ただ色を変えるだけのコードは書かない。実行速度とメモリのライフサイクルまで制御した、プロフェッショナルのためのロジックを解説しよう。
—
1. なぜ「再帰処理」なのか：スタックと階層の物理的必然
MS ProjectのTaskオブジェクトは、`OutlineLevel`というプロパティを持つ。しかし、単純な `For Each` ループで全タスクを走査するのは、複雑なプロジェクトファイルにおいてはメモリの浪費だ。
再帰関数を用いる最大の理由は、「階層の深さ」という動的な構造をコードの構造そのものに投影するためである。これにより、複雑なネスト構造を持つ大規模スケジュールでも、スタック領域を適正に利用し、無駄なオブジェクト参照を避けることが可能になる。
—
2. 極限の最適化を施した再帰アルゴリズム
以下のコードは、単なる書式設定ではない。オブジェクトの明示的な解放（Nothing）と、Project特有の再計算コストを最小限に抑える設計思想を実装している。
‘ 伝説的なチーフアーキテクトによるWBS自動書式設定アルゴリズム
Public Sub ApplyWBSFormatting_Recursive()
Dim proj As Project
Set proj = ActiveProject
‘ プロジェクトの再計算を一時停止（パフォーマンスの劇的向上）
proj.Calculation = pjManual
‘ ルートレベルから再帰を開始
Call ProcessTaskLevels(proj.Tasks(1))
‘ プロジェクトの再計算を再開
proj.Calculation = pjAutomatic
Set proj = Nothing
End Sub
Private Sub ProcessTaskLevels(ByVal tsk As Task)
If tsk Is Nothing Then Exit Sub
‘ 階層の深さに応じた書式設定（プロパティへの直接アクセスは重いため最小限に）
Select Case tsk.OutlineLevel
Case 1
tsk.FontColor = pjRed
tsk.FontBold = True
Case 2
tsk.FontColor = pjDarkBlue
tsk.FontBold = True
Case Else
tsk.FontColor = pjBlack
tsk.FontBold = False
End Select
‘ 子タスクを持つ場合、再帰的に処理を実行
‘ OutlineChildren はコレクションを返すため、メモリリークを避けるために参照を明示的に解放する
Dim subTasks As Tasks
Set subTasks = tsk.OutlineChildren
Dim i As Long
For i = 1 To subTasks.Count
Call ProcessTaskLevels(subTasks(i))
Next i
‘ オブジェクトの明示的解放（VBAのガベージコレクションを待たない）
Set subTasks = Nothing
End Sub
—
3. チーフアーキテクトの視点：アーキテクチャの真髄
1. プロジェクト計算エンジンの制御
`proj.Calculation = pjManual`。これを知っているか否かで、数千行のタスクを扱う際のパフォーマンスは100倍以上変わる。MS Projectはタスク一つ一つを変更するたびに全体を再計算しようとする。これを抑制することが、大規模システム開発における鉄則だ。
2. メモリのライフサイクル管理
VBAは参照カウンタ方式のガベージコレクションを採用している。`subTasks` のようなコレクションオブジェクトをループ内で使い捨てにするのは、メモリリークの温床だ。常に `Set obj = Nothing` を徹底し、プロセスが肥大化するのを防げ。
3. Windows APIとの連携（拡張のヒント）
さらに高度な要件（例えば、特定の階層以下が一定期間を超えた場合にWindowsのトースト通知を出す、あるいは外部DBのロック状態を確認する等）がある場合、`Declare PtrSafe Function` を用いたDLL呼び出しを検討せよ。その際、VBAの `Variant` 型を安易に使うな。メモリレイアウトを意識し、`LongPtr` を使用して64bit環境との整合性を確保するのが、レガシーを「保守可能な資産」へ変える鍵となる。
—
結論
WBSの階層処理は、MS Projectという巨大なグラフ構造を操作する「グラフ探索問題」に他ならない。今回提示した再帰的なアプローチは、可読性と保守性、そしてパフォーマンスのバランスを極限まで突き詰めたものだ。
君たちがこれから手がける大規模なプロジェクトにおいて、このコードが単なる自動化ツールではなく、安定したシステム運用の基盤となることを期待する。技術とは、いついかなる時も美しく、そして冷徹であるべきだ。
