Project VBAを掌握せよ：WBS自動採番の深淵とメモリ管理の流儀
Project VBAの深淵へようこそ。標準のWBSコード機能に満足し、その制限の中で思考停止しているようでは、真のエンジニアとは呼べない。
現場で求められるのは、独自の命名規則を完全に遵守し、かつ数万行のタスクに対しても一瞬で整合性を保つ「動的WBSアーキテクチャ」だ。本稿では、標準機能の皮を被った自動化の限界を超え、メモリを慈しみ、ロジックを極限まで研ぎ澄ます手法を伝授する。
—
1. WBSコード自動採番：再帰構造の最適化
WBSコードを生成する際、安易に`Task.OutlineLevel`をループで回すのは愚策だ。Projectのオブジェクトモデルは、プロパティへのアクセス回数が増えるほど指数関数的にパフォーマンスが劣化する。
真に効率的なアプローチは、「親タスクのIDをキャッシュし、メモリ上で再帰的に構築する」ことにある。
実装コード：高パフォーマンスなWBSジェネレーター
‘ 伝説のアーキテクトが推奨する、非同期的なWBS更新アルゴリズム
Public Sub GenerateCustomWBS()
Dim proj As Project
Dim tsk As Task
Dim dict As Object
Set proj = ActiveProject
Set dict = CreateObject(“Scripting.Dictionary”)
‘ ScreenUpdatingをオフにすることで、描画負荷を排除する
Application.ScreenUpdating = False
For Each tsk In proj.Tasks
If Not tsk Is Nothing Then
‘ オブジェクトへのアクセスを最小限にするため、一度変数に格納
Dim parentID As Long: parentID = tsk.OutlineParent.ID
‘ メモリ最適化：Dictionaryを使用して親のコードをキャッシュ
If tsk.OutlineLevel = 1 Then
dict(tsk.ID) = CStr(tsk.Index)
Else
dict(tsk.ID) = dict(parentID) & “.” & CStr(tsk.OutlineChildren.Count + 1)
End If
‘ カスタムフィールドに値を書き込む
tsk.Text1 = “PRJ-” & dict(tsk.ID)
End If
Next tsk
Application.ScreenUpdating = True
‘ オブジェクトの明示的解放（メモリリークを許さない）
Set dict = Nothing
Set proj = Nothing
End Sub
—
2. 依存関係とWBSの整合性：なぜ「強制同期」が必要なのか
プロジェクトが大規模化すると、WBSコードの変更は単なる命名の問題ではなく、タスク間の「依存関係（Predecessors）」を破壊するトリガーとなる。
多くの開発者が陥る罠は、タスク移動のたびに全計算を走らせることだ。これを防ぐには、`Project_TaskChange`イベントをフックし、変更されたノード以下のサブツリーのみを再計算する「デルタ更新」の実装が不可欠である。
Windows APIによる実行時監視
レガシーなProject環境において、巨大なスケジュールを扱う際は、時としてCOMオブジェクトの応答が凍結することがある。そんな時は、Windows APIで強制的にメッセージループを解放させ、UIをフリーズさせない工夫が必要だ。
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
‘ 巨大なプロジェクト更新時にメインスレッドを保護する
Private Sub ForceYield()
DoEvents
Sleep 10 ‘ CPU負荷を下げつつスレッドを解放
End Sub
—
3. シニアエンジニアへの提言：オブジェクト管理の作法
VBAを「書き捨てのスクリプト」と呼ぶ者は、その真価を知らない。Project VBAにおける最大の敵は、「見えないメモリリーク」だ。
- `Set = Nothing`の徹底: 特に`Task`オブジェクトをループ内で生成・保持する場合、ループ脱出後の解放を怠れば、Projectはメモリを食いつぶし、数時間後にはクラッシュする。
- Late Bindingの活用: 外部連携（ExcelやSQL Server）を行う際は、参照設定に頼らず`CreateObject`を使用せよ。これは配布後の「参照の競合」という、現場で最も恥ずべきトラブルを未然に防ぐための鉄則だ。
—
結論：自動化は手段であり、目的ではない
WBSコードの自動採番とは、単なる文字列操作ではない。それは、プロジェクトという名の「巨大な動的構造体」に秩序を与える行為だ。
もしあなたが、今書いているコードが「将来の誰か（あるいは一ヶ月後の自分）の保守の手間をどれだけ減らせるか」を考えていないのなら、それは技術ではない。単なる「仕様の押し付け」だ。
Project VBAを掌握せよ。そして、標準機能の背後に隠れた本当の力を引き出すのだ。質問があればいつでも受け付ける。ただし、基礎的な文法質問は不要だ。我々は、その先にある「最適解」を議論するためにここにいるのだから。
