Project VBAを掌握する極限の知見：タスク制約クレンジングの極意
プロジェクト管理の現場において、Microsoft ProjectのVBA（Project VBA）は、GUI操作の限界を突破するための唯一にして最強の武器である。数千行に及ぶWBS、複雑に入り組んだ依存関係、そして現場の担当者が無意識に設定してしまう「厄介な制約（Constraints）」。
今回は、プロジェクトのスケジュール硬直化の元凶となる「指定日開始（SNET: Start No Earlier Than）」などの制約をスキャンし、プロジェクト本来の柔軟性を担保するための『できるだけ早く（ASAP: As Soon As Possible）』への強制一括置換エンジンの実装法を解説する。
リファレンスの引き写しではない。オブジェクトのライフサイクル、COMのメモリ管理、そしてProject特有のスケジューリング・エンジンの挙動を熟知した者だけが書ける「実戦的知見」をここに公開する。
—
1. なぜ「制約」がプロジェクトを殺すのか
運用中のMS Projectファイルで最も頻発する障害は、メンバーが勝手に入力した日付による「制約の固定化」である。
「指定日開始」や「指定日終了」が多数存在すると、先行タスクがどれだけ短縮されようとも、後続タスクはその日付に縛られ、クリティカルパスの動的再計算が機能不全に陥る。
プロジェクト全体の柔軟性を復元するためには、サマータスクを除くすべての細目タスクの制約タイプを強制的に `pjConstraintASAP`（できるだけ早く）へリセットする必要がある。これを手動で行うことは、数千タスクを抱える現場においては不可能に近い。完全な自動化が必須となる。
—
2. Project VBAにおける設計上の急所
タスクの制約を一括置換するにあたり、シニアエンジニアが留意すべきアーキテクチャ上のポイントは以下の3点である。
1. サマータスク（Summary Tasks）の保護
サマータスクの制約を無理やり変更しようとすると、Projectのスケジュール・エンジンが衝突を起こし、予期せぬ日付のズレやエラーを引き起こす。処理対象は必ず「実タスク（`Summary = False`）」かつ「マイルストーン等を除外した実務タスク」に限定するべきである。
2. 計算モードの制御（Manual Calculation）
ループ内でタスクのプロパティを書き換えるたびにProjectが再計算（Schedule Calculation）走ると、実行速度が劇的に低下する。`Application.Calculation = pjManual` に設定し、一括処理後に一気に再計算させるのが鉄則である。
3. オブジェクトの明示的解放とエラーハンドリング
`Tasks`コレクションへのアクセスは、COMインターフェースを介した重い処理である。適切な変数型定義と、意図しない中断を防ぐための堅牢なエラーハンドリングが求められる。
—
3. 実装コード：制約一括クレンジング・エンジン
以下に、現場でそのまま稼働するプロダクション品質のVBAコードを示す。
Option Explicit
‘ ==============================================================================
‘ 処理名: ForceConstraintASAP_Engine
‘ 概要 : プロジェクト内の全実タスクの制約タイプを「できるだけ早く (ASAP)」に強制変更する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub ForceConstraintASAP_Engine()
Dim tsk As Task
Dim targetCount As Long
Dim originalCalcMode As Long
‘ 実行前のシステム状態を退避
originalCalcMode = Application.Calculation
On Error GoTo ErrorHandler
‘ パフォーマンス最適化のため、計算モードを手動に変更
Application.Calculation = pjManual
Application.ScreenUpdating = False
targetCount = 0
‘ ユーザーへの確認
If MsgBox(“プロジェクト内の全実タスクの制約を「できるだけ早く (ASAP)」に強制変更します。” & vbCrLf & _
“この操作により、固定されていたスケジュールが再計算されます。続行しますか？”, _
vbExclamation + vbYesNo, “制約クレンジング・エンジン”) <> vbYes Then
GoTo CleanUp
End If
‘ ステータスバーに開始を表示
Application.StatusBar = “タスクの制約をスキャン中…”
‘ タスクコレクションの走査
For Each tsk Is ActiveProject.Tasks
‘ Nothing判定（削除されたタスクのスキップ）
If Not tsk Is Nothing Then
‘ サマータスク、外部タスク、およびマイルストーンを除外して処理
If Not tsk.Summary And Not tsk.ExternalTask Then
‘ すでにASAPかつ制約日付が未設定の場合はスキップして最適化
If tsk.ConstraintType <> pjConstraintAsSoonAsPossible Then
‘ 制約タイプを強制変更
tsk.ConstraintType = pjConstraintAsSoonAsPossible
‘ 制約日付（ConstraintDate）が残っていると干渉するためクリア
‘ ※ASAPの場合、ConstraintDateは通常空になるが、安全のためNullを設定
On Error Resume Next
tsk.ConstraintDate = “NaT” ‘ Not a Time (VBA特有の日付クリア)
On Error GoTo ErrorHandler
targetCount = targetCount + 1
End If
End If
End If
Next tsk
‘ 計算モードを戻して強制再計算を実行
Application.Calculation = originalCalcMode
Application.ScreenUpdating = True
‘ 変更を反映するためにプロジェクト全体の再計算を実行
CalculateAll
Application.StatusBar = “制約クレンジング完了: ” & targetCount & ” 件のタスクを更新しました。”
MsgBox “クレンジングが正常に完了しました。” & vbCrLf & “更新されたタスク数: ” & targetCount & ” 件”, vbInformation, “完了”
CleanUp:
‘ 確実な状態復元
Application.Calculation = originalCalcMode
Application.ScreenUpdating = True
Application.StatusBar = “”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
—
4. コードの深層解説：なぜこの実装なのか
1. `Application.Calculation = pjManual` の破壊力
数千行規模のMS Projectファイルにおいて、`For Each` ループ内で `tsk.ConstraintType` を変更するたびにスケジュール・エンジンが走り、全体の日付再計算を行うと、処理に数分〜数十分を要する。
手動モードに切り替えることで、メモリ上でのプロパティ書き換えのみとなり、処理時間を数秒単位まで短縮できる。最後に `CalculateAll` を1回だけ呼び出すのが、プロの選択である。
2. サマータスクと外部タスクの厳格な除外
`tsk.Summary` プロパティによるフィルタリングは絶対条件である。サマータスクの制約をVBAから無理に変更しようとすると、Projectの内部データ構造（WBSツリーの整合性）が破損し、ファイルを開けなくなるリスクがある。安全弁としてこの条件分岐は絶対に省いてはならない。
3. 日付制約のクリア（`ConstraintDate` の扱い）
制約タイプを「指定日開始」から「できるだけ早く」に変更しても、過去に設定された `ConstraintDate` が残り続けると、一部のレガシーなProject環境でスケジューリングの挙動がおかしくなるケースがある。VBAから日付をクリアする際、文字列 `”NaT”`（Not a Time）を代入するか、あるいは明示的にVariant型のEmptyを渡すことで、クリーンなASAP状態を作り出すことができる。
—
5. 総括：レガシーなPJ管理からの脱却
プロジェクト管理ツールは、人間が規律を持って運用して初めて機能する。しかし、現場の泥臭い運用によって歪められたスケジュールは、自動化スクリプトによって強制的に正すべきだ。
今回紹介した制約クレンジング・エンジンは、単なる便利マクロではない。プロジェクトの硬直化を打破し、動的なスケジュール管理を取り戻すための「システム保守の急所」である。
自身の管理する環境に導入し、その圧倒的な処理速度と、淀みのないスケジューリングの復活を体感してほしい。
