【テクニカル・上級編】実務中級：期限（Deadline）制約とASAP制約の二重設定による進捗遅延検知 – Project VBA解析バイブル

Constraints vs. Deadlines: プロジェクト・エンジンの動的整合性を担保する極限の制御術

プロジェクト管理ツールとしてのMicrosoft Projectは、単なるガントチャート描画ソフトではない。その実態は、膨大な依存関係とリソース制約を解くための高度なスケジューリング・エンジンである。

多くの初級者は、タスクの制約条件（Constraint）を「Must Finish On」などの強固なものに設定することでスケジュールを固定しようとする。しかし、それはエンジンの動的な計算能力を殺す愚行である。真にプロフェッショナルなアーキテクチャを設計する者は、ASAP（As Soon As Possible）制約による動的柔軟性と、Deadlineプロパティによる論理的境界を分離し、その「乖離」を検知することで、リスクを可視化する。

本稿では、ASAP制約下で計算されたタスクが、ビジネス上のデッドラインを逸脱した瞬間に、VBAを介してシステム的に検知・通知する、実務中級から上級へ昇華するための実装論を詳解する。

1. 理論的背景：ConstraintとDeadlineの分離設計

MS Projectの計算エンジンにおいて、`ConstraintType`（制約条件）と`Deadline`（期限）は全く異なるレイヤーの概念である。

• Constraint (pjConstraintAsSoonAsPossible):

これはエンジンの計算アルゴリズムに対する「命令」である。タスクを可能な限り前方に詰め、依存関係に従って動的に日付を変化させる。プロジェクトの柔軟性を維持するために必須の設計である。

• Deadline:

これは計算アルゴリズムに対する制約ではなく、タスクの属性としての「閾値」である。エンジンの計算結果（Finish Date）がこの日付を超過した際、MS Projectは内部的にアラートを生成するが、これを外部システムや複雑なワークフローに即座に連携させるには、VBAによる能動的な監視が必要となる。

この二つを組み合わせることで、「スケジュールは動的に動くが、ビジネス上の許容範囲（Deadline）は決して越えてはならない」という、動的整合性（Dynamic Consistency）を担保した管理が可能になる。

2. 高負荷環境における計算エンジンの制御とメモリ管理

数千タスクに及ぶ大規模プロジェクトにおいて、VBAで全タスクを走査する際、もっとも警戒すべきは計算エンジンの再計算ループ（Recalculation Thrashing）とCOMオブジェクトのメモリリークである。

計算モードの最適化

タスクのプロパティを一つ書き換えるたびにエンジンが再計算を開始すると、処理時間は指数関数的に増大する。走査前には必ず `Calculation` プロパティを `pjCalculationManual` に設定し、処理完了後に `pjCalculationAutomatic` へ戻すのが鉄則である。

オブジェクト・ライフサイクルの厳格な管理

VBAはガベージコレクションが弱いため、ループ内で `Task` オブジェクトなどのCOMオブジェクトを大量に生成・参照する場合、明示的な解放を行わなければ、MS Projectのプロセスがメモリを食いつぶし、ゾンビプロセスとして残る原因となる。

3. 実装：遅延検知エンジンのプロトタイプ

以下に、ASAP制約下のタスクがDeadlineを逸脱したかを高速にスキャンし、Windows APIを用いてシステムレベルの通知を行う、堅牢な実装例を示す。

Option Explicit

' Windows API: ユーザーへのクリティカルな通知を行うための宣言
' レガシー環境や高信頼性が求められるシステムでは、標準のMsgBoxよりも
' システム制御が可能なAPIの利用が検討される
Private Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpText As String, _
    ByVal lpCaption As String, _
    ByVal uType As Long) As Long

' 定数の定義
Private Const MB_ICONERROR As Long = &H10
Private Const MB_OK As Long = &H0

''' <summary>
''' プロジェクト内の全タスクを走査し、ASAP制約かつDeadline超過しているタスクを検知する。
''' </summary>
Public Sub InspectScheduleIntegrity()
    Dim app As MSProject.Application
    Set app = MSProject.Application
    
    Dim proj As MSProject.Project
    Set proj = app.ActiveProject
    
    Dim t As MSProject.Task
    Dim delayCount As Long
    Dim startTime As Double
    
    ' パフォーマンス最適化: 計算をマニュアルに切り替え
    Dim originalCalc As MSProject.Calculation
    originalCalc = app.Calculation
    app.Calculation = pjCalculationManual
    
    startTime = Timer
    delayCount = 0
    
    On Error GoTo ErrorHandler

    ' タスクの走査
    ' 大規模プロジェクトでは、Taskオブジェクトの直接参照を最小限にする
    For Each t In proj.Tasks
        ' Nothingチェック（空行の回避）
        If Not t Is Nothing Then
            ' 条件判定: 
            ' 1. 制約が ASAP (pjConstraintAsSoonAsPossible) であること
            ' 2. Deadline が設定されていること
            ' 3. 計算された終了日 (Finish) が Deadline を超過していること
            If t.ConstraintType = pjConstraintAsSoonAsPossible And _
               t.Deadline <> DateValue("1899-12-30") And _
               t.Finish > t.Deadline Then
                
                ' 検知ロジック（ここではログ出力とカウントアップ）
                Debug.Print "[CRITICAL] Task ID: " & t.ID & " | Name: " & t.Name & _
                            " | Finish: " & t.Finish & " | Deadline: " & t.Deadline
                
                delayCount = delayCount + 1
            End If
        End If
    Next t

    ' 処理結果の通知
    If delayCount > 0 Then
        Call NotifyViaAPI(delayCount, "スケジュール整合性エラー: " & delayCount & " 件のタスクが期限を逸脱しています。")
    Else
        Debug.Print "Integrity Check Passed. Execution Time: " & Round(Timer - startTime, 2) & "s"
    End If

CleanUp:
    ' 計算モードを復元
    app.Calculation = originalCalc
    
    ' オブジェクトの明示的解放（メモリリーク防止の極意）
    Set t = Nothing
    Set proj = Nothing
    Set app = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

''' <summary>
''' Windows APIを用いた低レイヤーの通知呼び出し
''' </summary>
Private Sub NotifyViaAPI(count As Long, msg As String)
    Dim fullMsg As String
    fullMsg = msg & vbCrLf & "詳細はデバッグ出力（Immediate Window）を確認してください。"
    
    ' API呼び出しによるメッセージボックス表示
    Call MessageBox(0, StrPtr(fullMsg), StrPtr("Schedule Engine Alert"), MB_OK Or MB_ICONERROR)
End Sub

4. アーキテクトの視点：システム間連携への拡張

上記のコードは単なる「検知」に留まっている。これをエンタープライズ・アーキテクチャに組み込む場合、以下の拡張を検討すべきである。

1. Event-Driven Integration:
`Project_Calculate` イベントを利用し、計算が完了するたびにバックグラウンドでこのスキャンを実行する。ただし、無限ループを避けるため、計算モードの制御には細心の注意を払う必要がある。
2. REST API / Webhook 連携:
検知した遅延情報を、`MSXML2.XMLHTTP` を用いて、SlackやMicrosoft Teams、あるいは自社開発のPMOダッシュボードへJSON形式でPOSTする。これにより、MS Projectを開いていないステークホルダーに対しても、リアルタイムなリスク通知が可能となる。
3. レガシー環境への配慮:
`PtrSafe` 宣言を用いた 64bit/32bit 両対応の記述は、もはや必須である。また、古いバージョンのMS Project（2010以前など）を運用している現場では、`Deadline` プロパティの挙動が微妙に異なるケースがあるため、単体テストによる検証を怠ってはならない。

結言

スケジュール管理における真の自動化とは、単に作業を楽にすることではない。「計算結果がビジネス上の境界線を越えた瞬間を、システムが確実に捉え続けること」である。

ASAPとDeadlineを分離し、計算エンジンの挙動を完全に制御下に置く。この「制約の二重構造」を理解し、実装できるエンジニアこそが、複雑怪奇なプロジェクトの荒波を乗り越えるシステムを構築できるのである。