Taskオブジェクトの「名前」「ID」「UniqueID」を完全掌握せよ：実務の事故を防ぐ堅牢なタスク参照術
プロジェクトマネジメントの自動化において、Microsoft ProjectのVBA（Project VBA）ほど、その挙動の裏側を知っているかどうかで開発者の明暗を分ける言語はない。
「昨日まで正常に動いていたマクロが、ユーザーがタスクを1行挿入した途端に、全く関係のないタスクのステータスを書き換えてしまった」
「Excelからデータをインポートして進捗を更新しているはずが、なぜかデータがズレていく」
もしあなたがこのような不可解なバグに直面したことがあるなら、原因は明確だ。あなたは「Taskの名前（Name）」、「ID」、そして「UniqueID」の本質的なライフサイクルを混同している。
本記事では、Project VBAのオブジェクトモデルの深層に踏込み、実務の現場で絶対に破綻しないタスク参照の設計思想と、プロダクションコードとしてそのまま使える実践的なコードを伝授する。
—
1. なぜ「名前」と「ID」でタスクを操作してはいけないのか？
MS Projectのオブジェクトモデルにおいて、特定のタスクを指し示すプロパティには主に3つ存在する。それぞれの仕様と「実務での死角」をロジカルに解剖しよう。
① `Name`（タスク名）
- 仕様: ユーザーが画面上で編集する文字列。重複が可能であり、一意性が全く保証されない。
- 実務でのリスク: 「会議」や「進捗確認」といった同名のタスクが無数に存在するプロジェクトにおいて、`Name`をキーにした検索はバグの温床でしかない。仕様変更でタスク名が変更された瞬間にマクロは沈黙する。絶対にキーにしてはならない。
② `ID`（表示上の行番号）
- 仕様: ガントチャート上で上から順に振られる通し番号（1, 2, 3…）。タスクの並び替え、挿入、削除によって動的に変動する。
- 実務でのリスク: 初心者がやりがちな最大の罠がこれだ。「3番目のタスクだから `ActiveProject.Tasks(3)` で操作しよう」というコードを書いた瞬間、その行の上部に新しいタスクが1行挿入されただけで、操作対象が別のタスクにすり替わる。
③ `UniqueID`（システム内部の不変ID）
- 仕様: タスクが作成された瞬間にMS Projectが自動割り当てする整数値。タスクの削除、挿入、並び替え、さらには親プロジェクトファイルを保存・再オープンしようとも、そのタスクが存在する限り絶対に変化しない。
- 実務的結論: 外部システム（Excel、SQL Server、Web APIなど）との連携、およびVBA内で確実に同一タスクを追跡したい場合、参照に使えるのは `UniqueID` のみである。
—
2. 事故を防ぐための設計原則：「探す」な、「マップせよ」
外部データ（例えば進捗管理用のExcelやCSV）を元にMS Project側のタスクを更新するバッチ処理を書くとする。
ここで、毎ループごとに `ActiveProject.Tasks` を上から舐めてマッチングさせるようなナイーブな実装は、タスク数が数千規模になった瞬間にパフォーマンスが破綻する。
堅牢な自動化ツールを構築するための設計原則は以下の2点だ。
1. 初期スキャンで `UniqueID` の連想配列（Dictionary）を構築する
2. 以降の処理はすべて `UniqueID` をキーにしてO(1)でアクセスする
この設計を取り入れることで、ユーザーが事前にタスクの順序を入れ替えていようが、行を追加していようが、プログラムは微動だにせず正確なタスクを撃ち抜くことができる。
—
3. 【プロダクションコード】堅牢なタスク参照とデータ同期のマスターピース
以下のコードは、Excelなどの外部データソースから受け取った「タスク固有の識別子（UniqueID）」を基に、安全かつ高速にタスクの進捗率（ `% Complete` ）を更新する実務標準のVBAコードである。
Dictionaryオブジェクトを用いてメモリ上で高速なインデックスを作成し、エラーハンドリングを網羅したプロ仕様となっている。
Option Explicit
‘ メイン処理：UniqueIDをベースにした堅牢なタスク進捗更新ルーチン
Sub UpdateTaskProgressSafely()
Dim prj As Project
Set prj = ActiveProject
‘ 1. パフォーマンス最大化のための描画停止
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 2. UniqueIDをキー、Taskオブジェクトを値としたDictionaryを生成
Dim taskDict As Object
Set taskDict = CreateObject(“Scripting.Dictionary”)
Dim t As Task
For Each t In prj.Tasks
If Not t Is Nothing Then
‘ Dictionaryに登録（キー：UniqueID, 値：Taskオブジェクト）
If Not taskDict.Exists(t.UniqueID) Then
taskDict.Add t.UniqueID, t
End If
End If
Next t
‘ — 【模擬データ】本来はExcelやDBから取得する外部データ —
‘ 構造: TargetUniqueID（更新対象のUniqueID）, NewProgress（進捗率）
Dim targetUniqueID As Long
Dim newProgress As Integer
‘ 例として「UniqueID = 105」のタスクを「80%完了」に更新すると仮定
targetUniqueID = 105
newProgress = 80
‘ ———————————————————–
‘ 3. Dictionary経由で安全かつ一瞬でターゲットを特定
If taskDict.Exists(targetUniqueID) Then
Dim targetTask As Task
Set targetTask = taskDict(targetUniqueID)
‘ データの整合性チェックと更新
If targetTask.Summary = False Then ‘ サマリータスク（親タスク）への直接入力をガード
targetTask.PercentageComplete = newProgress
MsgBox “タスク「” & targetTask.Name & “」(UniqueID: ” & targetUniqueID & “) の進捗を ” & newProgress & “% に更新しました。”, vbInformation, “処理成功”
Else
MsgBox “UniqueID: ” & targetUniqueID & ” はサマリータスクです。直接の進捗更新はスキップされました。”, vbExclamation, “スキップ”
End If
Else
MsgBox “指定されたUniqueID (” & targetUniqueID & “) のタスクはプロジェクト内に存在しません。”, vbCritical, “タスク迷子エラー”
End If
CleanUp:
‘ 4. 確実な描画再開
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
コードのアーキテクチャ解説
1. `Application.ScreenUpdating = False` による高速化:
Project VBAでは、タスク操作のたびにガントチャートの再描画走査が発生する。これを抑制することで、数千行のタスクを扱うエンタープライズ案件でも実行速度を何倍にも跳ね上げることができる。
2. `Scripting.Dictionary` によるO(1)探索:
`For Each` で毎回タスクを探すのではなく、一発でメモリ上のポインタにアクセスするため、データ量が増えてもパフォーマンスが劣化しない。
3. サマリータスク（親タスク）のガード:
MS Projectにおいて、親タスク（Summary = True）の進捗率は通常子タスクから自動計算されるため、ここに直接値を書き込むと不整合が生じる。コード内でこのバリデーションを挟むことで、プロジェクトファイルの破損を防いでいる。
—
4. チーフアーキテクトからの最終提言
Project VBAを用いた自動化において、「動けばいい」というコードは、数ヶ月後に必ず組織の負債となる。特にスケジュールやリソースを扱うMS Projectでは、データの破損や誤った進捗の伝播はプロジェクト全体の遅延という致命的なビジネス損失に直結する。
- 「名前」は人間が見るためのもの。
- 「ID」は今この瞬間の画面上の幻。
- 「UniqueID」こそが、プログラムが信頼すべき唯一の真実。
この原則をあなたの開発チームの標準仕様として刻み込み、堅牢でモダンな自動化アーキテクチャを実現してほしい。
