マイルストーン化の深淵：VBAでProjectのタスク構造を「制する」最適解
現場のエンジニア諸君。ProjectのWBS管理において、GUIによる手作業でのマイルストーン設定にいつまで時間を浪費するつもりだ？ 1000行を超えるタスクリストを前に、マウスをカチカチと動かすその時間は、自動化の観点から見れば「負債」でしかない。
今日は、Project VBAを用いたタスクの「マイルストーン化」をテーマに、単なる自動化を超えた、メモリと処理効率を意識した「アーキテクチャの極意」を授ける。
1. なぜ「Duration = 0」だけでは不十分なのか
Projectオブジェクトモデルにおいて、タスクをマイルストーン化するには `Task.Duration = 0` を叩くのが定石だ。しかし、シニアエンジニアであれば、その背後で何が起きているかを考慮せねばならない。
Projectのエンジンは、タスクの状態が変化するたびに依存関係の再計算（スケジュール再評価）を走らせる。数千のタスクに対して安易にループ処理を投げれば、UIの再描画と計算処理が競合し、スタックオーバーフローやパフォーマンス低下を招く。
我々が書くべきは、「計算負荷を最小化し、メモリをクリーンに解放する」堅牢なコードである。
2. 実装：高速かつメモリを汚さないマイルストーン付与スクリプト
以下のコードは、選択したタスクを瞬時にマイルストーンへ変換する。ポイントは `Application.ScreenUpdating` の制御と、オブジェクトの明示的な破棄だ。
Option Explicit
”’
”’
Public Sub ConvertToMilestone_Optimized()
Dim prj As Project
Dim sel As Selection
Dim tsk As Task
‘ 予期せぬエラーによるメモリリークを防ぐための保護
On Error GoTo Cleanup
‘ 描画更新を一時停止し、プロジェクトエンジンへの負荷を軽減
Application.ScreenUpdating = False
Set prj = ActiveProject
Set sel = ActiveSelection
‘ オブジェクトの列挙にはFor Eachが最適だが、
‘ 大規模なタスクセットの場合はIDベースのインデックスアクセスがメモリ消費を抑える
Dim i As Long
For i = 1 To sel.Tasks.Count
Set tsk = sel.Tasks(i)
‘ 既にマイルストーンであっても、0を設定することで整合性を担保
‘ 依存関係の再計算を考慮し、最小限のプロパティ変更に留める
If tsk.Duration <> 0 Then
tsk.Duration = 0
‘ 必要に応じてマイルストーンフラグを明示的にセット
tsk.Milestone = True
End If
Next i
Cleanup:
‘ 異常終了時も必ず更新を再開し、オブジェクトを解放する
Application.ScreenUpdating = True
Set tsk = Nothing
Set sel = Nothing
Set prj = Nothing
If Err.Number <> 0 Then
MsgBox “エラー発生: ” & Err.Description, vbCritical
End If
End Sub
3. シニアエンジニアが押さえるべき「極限の知見」
メモリ管理とオブジェクト解放
VBAにおいて `Set = Nothing` は形骸化しているという意見もあるが、大規模システム連携においては「意図的な解放」こそがデバッグの難易度を下げる。特に `Application` や `Project` オブジェクトを多重参照する環境下では、参照カウントを意識しないコードは遅かれ早かれメモリリークを誘発する。
Windows APIによる「強制停止」の検知
もし、あなたが巨大なProjectファイルを操作するシステムを構築しているのであれば、ユーザーが `Esc` キーで処理を中断した際の挙動を制御せねばならない。`DoEvents` をループ内に組み込むべきか否か。これは処理の原子性（Atomic）とトレードオフになる。結論を言えば、「処理の塊（Chunk）ごとにDoEventsを挟み、再計算のオーバーヘッドを制御する」のが、伝説的なアーキテクトの流儀だ。
レガシー環境との対話
古い `mpp` ファイルを扱う際、特定の依存関係が破損しているケースがある。`Duration = 0` を設定する前に、`Task.Predecessors` や `Task.Successors` の整合性をチェックするバリデーションロジックを一歩挟むだけで、後のクリティカルパス分析で泣きを見なくて済む。
最後に：自動化は「愛」である
コードを書くことは、単に今の業務を楽にすることではない。未来の自分、あるいはコードを引き継ぐ誰かが、システムの裏側で何が起きているか瞬時に理解できるようにすることこそが、エンジニアの責務だ。
このスクリプトは、あなたのプロジェクト管理を一段上の次元へ引き上げるはずだ。さあ、次はどの無駄な手作業をコードで絶滅させる？
