Project VBAを掌握せよ：リソース割り当てを「外科手術」する極限のクリーンアップ術
プロジェクトマネジメントの現場で最も忌むべきは、ゾンビのように残存する「無効なリソース割り当て」だ。計画の変更、リソースの離脱、あるいはシステム連携の不整合。これらが積み重なると、Projectの計算エンジンは肥大化し、最後には致命的な破損を引き起こす。
本稿では、Project VBAの最深部を叩き、リソース割り当てを安全かつ確実に消去する「外科手術」級のクリーンアップ手法を伝授する。これは単なるマクロではない。システムの整合性を守るための防波堤だ。
—
1. 割り当て（Assignment）削除の「死角」を理解せよ
VBAから`Assignment.Delete`を呼ぶ際、初心者は単純なループで実装しがちだが、それはメモリ上のオブジェクト参照を不安定にさせる。Projectのオブジェクトモデルにおいて、`Assignments`コレクションは動的であり、削除のたびにインデックスが再計算される。
極限の知見：
- 逆順走査の原則： インデックスベースで削除する際、必ず最後尾から先頭へ走査せよ。順方向の走査は、要素のズレによる実行時エラー（あるいは予期せぬスキップ）を招く。
- オブジェクトの明示的解放： 参照を保持したままのオブジェクトは、ガベージコレクションのタイミングを遅延させ、メモリリークの温床となる。`Set obj = Nothing`は、ただの儀式ではなく、リソースの生存期間を制御する重要なステートメントだ。
—
2. 実装コード：安全性を極めたAssignment削除ルーチン
以下のコードは、特定のリソース（Resource ID）に基づいて割り当てを一括削除する堅牢な実装である。エラーハンドリングとオブジェクトのライフサイクル管理を徹底している。
‘ @description 特定リソースの割り当てを安全に完全削除する
‘ @author Project VBA Chief Architect
Public Sub CleanUpResourceAssignments(ByVal targetResourceUID As Long)
Dim proj As Project
Dim task As Task
Dim asgn As Assignment
Dim i As Long
Set proj = ActiveProject
‘ プロジェクトの計算モードを一時的に手動にすると高速化するが、
‘ ここでは整合性を優先し、あえてそのまま処理する（大規模データ時は考慮要）
On Error GoTo ErrorHandler
‘ タスクをループして各割り当てを確認
For Each task In proj.Tasks
If Not task Is Nothing Then
‘ 割り当てを逆順で走査（削除によるインデックスズレを回避）
For i = task.Assignments.Count To 1 Step -1
Set asgn = task.Assignments(i)
‘ 特定のリソースIDと一致する場合のみ削除
If asgn.ResourceID = targetResourceUID Then
Debug.Print “Deleting Assignment: TaskID=” & task.ID & “, Resource=” & asgn.ResourceName
asgn.Delete
End If
‘ 明示的解放：ループ内でのメモリ負荷を最小化
Set asgn = Nothing
Next i
End If
Next task
MsgBox “クリーンアップが完了しました。”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
‘ 必要に応じてログ出力やロールバック処理を記述
End Sub
—
3. シニアエンジニアのための最適化のヒント
Windows APIによるイベント抑制
大規模なProjectファイルでこの操作を行うと、画面描画の更新がCPUリソースを著しく消耗する。`Application.ScreenUpdating = False`を併用するのは基本だが、さらに踏み込むなら、Windows APIの`LockWindowUpdate`を使用して、ウィンドウハンドルレベルで描画をロックするのも手だ。
システム間連携における整合性
Projectデータを外部DBやExcelと同期させている場合、このクリーンアップを行った後、必ず`Application.CalculateAll`を呼び出し、スケジュールとコストの計算を強制的に再実行せよ。これを怠ると、GUI上の表示と計算値の間で「不整合」が発生し、後続のタスク依存関係が崩壊する可能性がある。
—
結びに：伝説的なアーキテクトとしての助言
VBAはレガシーと言われるが、その真のポテンシャルは、Projectのような複雑な階層構造を持つアプリケーションと対峙した時にこそ発揮される。
オブジェクトを「消す」という行為は、単なるデータの削除ではなく、システムの「状態」を定義し直す行為だ。エラーハンドリングを単なる`On Error Resume Next`で済ませず、何が起き、なぜ消すのかをコードに刻み込め。
君たちが書くそのコードが、次のプロジェクトの安定性を左右する。このクリーンアップツールが、君たちの現場における「静かなる守護者」となることを期待する。
