Project VBAを掌握する極限の知見：カスタムフィールドによる「動的依存関係」の再構築
Project VBA（Microsoft Project Object Model）を単なる「タスク管理ツール」として扱っているうちは、まだ初心者だ。真のアーキテクトは、Projectを「リレーショナル・データモデル」のホストとして捉える。
標準の `Predecessors` プロパティは強力だが、堅牢なエンタープライズ環境では脆い。タスクの削除やIDの不整合が起きれば、依存関係の連鎖は容易に崩壊する。今回は、標準機能に依存せず、「カスタムフィールド」に依存先IDを埋め込み、メモリ管理を徹底した上で動的にリンクを再構築する、極限の自動化手法を伝授する。
—
1. なぜ「カスタムフィールド」で依存関係を管理するのか
標準の `LinkTasks` メソッドは、あくまで「その瞬間のID」を参照する。しかし、大規模プロジェクトではタスクの並び替えや挿入が頻発し、IDは流動的だ。
カスタムフィールド（Text1等） に一意の業務キー（WBSコードや独自ID）を保持させ、それをキーにしてリンクを再構築する設計にすることで、以下のメリットが生まれる。
- 耐障害性: IDが変化しても、業務キーさえ維持すれば依存関係が復元可能。
- 可視性: 依存先をタスクビュー上で即座に確認・編集できる。
- システム間連携: 外部DB（SQL Server等）との同期において、外部IDを直結させることが可能。
—
2. 実装の要諦：メモリ管理とオブジェクトの最適化
VBAにおいて `Project.Tasks` コレクションへの無暗なアクセスは、パフォーマンスを著しく低下させる。特に数千行規模のスケジュールでは、オブジェクトの参照を最小限に抑えるのが鉄則だ。
実装コード：依存関係の動的再構築ロジック
以下は、Text1に格納された「依存先ID」を参照し、リンクを再生成するプロシージャの核となる部分だ。
Option Explicit
‘ メモリリークを回避するための徹底的なクリーンアップ
Public Sub RebuildDependencies()
Dim prj As Project
Dim tsk As Task
Dim predTsk As Task
Dim targetID As String
Set prj = ActiveProject
‘ 画面描画を停止してパフォーマンスを最大化
Application.ScreenUpdating = False
On Error GoTo Cleanup
For Each tsk In prj.Tasks
If Not tsk Is Nothing Then
‘ Text1に格納された依存先IDを取得
targetID = tsk.Text1
If Len(targetID) > 0 Then
‘ IDをキーにして依存先を検索（Dictionary活用を推奨）
Set predTsk = FindTaskByCustomField(prj, targetID)
If Not predTsk Is Nothing Then
‘ 既存リンクをクリアし、新規にリンクを張る
‘ ※本番環境では既存リンクの重複確認を必ず行うこと
tsk.Predecessors = predTsk.ID
End If
End If
End If
Next tsk
Cleanup:
‘ オブジェクトの明示的解放（VBAのガーベジコレクションを信じるな）
Set predTsk = Nothing
Set tsk = Nothing
Set prj = Nothing
Application.ScreenUpdating = True
End Sub
‘ 検索パフォーマンスを最適化したカスタム検索関数
Private Function FindTaskByCustomField(prj As Project, idValue As String) As Task
Dim t As Task
For Each t In prj.Tasks
‘ Text2を「ID格納用」と定義している前提
If Not t Is Nothing Then
If t.Text2 = idValue Then
Set FindTaskByCustomField = t
Exit Function
End If
End If
Next t
End Function
—
3. シニアエンジニアが押さえるべき「罠」
① 循環参照の検知
動的リンクの再構築において最も危険なのが「循環参照（AがBに依存し、BがAに依存する）」だ。VBA側でリンクを張る前に、必ずグラフ構造の整合性を確認するバリデーションロジックを挟むこと。これを怠れば、Projectのスケジュールエンジンが停止し、計算がループする。
② Windows APIによるプロセス制御
大量のタスクを一括更新する場合、Projectが「応答なし」になることがある。これを防ぐには `DoEvents` を適宜挿入するか、より高度な制御が必要な場合は `Sleep` API（`kernel32`）を使用して、OSのメッセージループに空きを作る設計が必須だ。
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
③ レガシー環境の保守
古いバージョンのProjectでは、カスタムフィールドのアクセス速度に顕著な差がある。大規模な計算処理を行う際は、一度配列（Variant配列）に全てのデータを読み込み、メモリ上で計算を完結させてから、必要な箇所のみをオブジェクトに書き戻す手法をとるべきだ。
—
結びに：伝説的なアーキテクチャを目指す君へ
VBAは、単なる「事務作業の自動化ツール」ではない。適切に設計されたVBAコードは、Projectのような巨大なCOMサーバーを自在に操るための、極めて強力なインターフェースとなる。
標準機能が用意したレールの上を走るだけの開発者は、いずれシステムの変化に飲み込まれる。カスタムフィールドという「余白」を自らのロジックで支配せよ。それこそが、複雑なプロジェクトを制御下に置くための唯一の道だ。
コードは嘘をつかない。だが、アーキテクチャの未熟さは必ずシステムに牙を剥く。常にメモリの消費量と、オブジェクトの生存期間を意識し続けること。それが「伝説」への第一歩である。
