Project VBAを掌握する極限の知見：進捗率連動型リソースコスト自動按分エンジン
Microsoft ProjectのVBA（Visual Basic for Applications）を用いたリソース管理、特に「コスト」の動的制御において、多くの開発者が直感的なオブジェクト操作の罠に嵌り、メモリリークやパフォーマンス劣化という致命的な壁に直面する。
プロジェクト管理における真の課題は、単にアサインメント（Assignment）に対してコストや工数を静的に入力することではない。「進捗率（% Work Complete / % Complete）に応じた実コスト（Actual Cost）の正確な按分計算」を行い、それを外部の予算管理システムやExcelベースの統合ダッシュボードへ高速かつ堅牢に同期させることにある。
今回は、MS Projectオブジェクトモデルのライフサイクルを完全に支配し、COMコンポーネントの解放漏れを防ぎつつ、極限まで最適化されたコスト按分自動化エンジンの全貌を解説する。
—
1. MS Projectオブジェクトモデルの闇：なぜ通常のVBAコードでは破綻するのか
MS ProjectのVBA開発において、最大のボトルネックは「隠れ参照（Implicit Reference）」と「COMラッパーのメモリ管理の不確実性」である。
`ActiveProject.Resources` や `Assignment` コレクションをループ処理する際、変数の明示的な解放（`Set obj = Nothing`）を怠ると、VBAの背後で生成されたCOM RCW（Runtime Callable Wrapper）がVBAのガベージコレクションによって即座に回収されず、Projectプロセスのメモリフットプリントが肥大化する。結果として、数千行規模の大規模工程表を扱う現場では、Out of Memoryエラーやタスクの強制終了を引き起こす。
さらに、コスト按分計算においては、単に `Cost` プロパティを書き換えるだけでは不十分だ。Projectのコスト計算エンジン（Earned Value Management: EVMエンジン）と競合し、予期せぬ再計算ループ（コストの二重計上）が発生する。これを防ぐためには、計算モードを一時的に手動（Calculation Manual）へ切り替え、必要なアサインメントのプロパティのみをアトミックに操作する必要がある。
—
2. アーキテクチャ設計：進捗率連動型コスト按分ロジック
今回構築するエンジンの要件は以下の通りである。
1. パフォーマンスの極限追求: 画面描画と自動計算エンジンを一時停止（API的アプローチ）し、処理速度を最大化する。
2. 正確な按分計算: タスクの進捗率（`% Work Complete`）または物理進捗率をベースに、アサインメント単位の `Actual Cost`（実績コスト）および `Remaining Cost`（残余コスト）を数理的に再配分する。
3. 完全なオブジェクト解放: ループ内で生成されるすべてのRange, Task, Resource, Assignmentオブジェクトを確実に解放し、メモリリークを根絶する。
—
3. 実装コード：実戦投入可能な極限最適化VBAモジュール
以下のコードは、実際のエンタープライズ環境（数万タスク規模のプラント・ITインフラ統合工程表）の保守現場から抽出した、妥協なきプロダクションコードである。
Option Explicit
‘ ==============================================================================
‘ モジュール名: MdlCostDistributionEngine
‘ 概要: 進捗率を考慮した実コスト按分・予算管理連携エンジン
‘ 著者: チーフアーキテクト
‘ ==============================================================================
Public Sub ExecuteCostDistribution()
Dim prj As MSProject.Project
Dim tsk As MSProject.Task
Dim asn As MSProject.Assignment
‘ パフォーマンス最適化のための変数
Dim originalCalcMode As Long
On Error GoTo ErrorHandler
‘ 1. 実行環境の初期化とパフォーマンス最大化
‘ 画面描画の抑制と自動計算の停止により、COM往復コストを極限まで削減
originalCalcMode = Application.Calculation
Application.Calculation = pjCalcManual
Application.ScreenUpdating = False
Set prj = ActiveProject
‘ 2. タスクおよびアサインメントの走査
For Each tsk In prj.Tasks
‘ 予約語やサマリータスク、削除済みタスクを除外
If Not tsk Is Nothing Then
If Not tsk.Summary And tsk.Active Then
‘ タスクレベルの進捗率を取得 (% Work Complete)
Dim dblTaskProgress As Double
dblTaskProgress = tsk.PercentWorkComplete / 100#
‘ タスクに紐付くアサインメント（リソース割り当て）を走査
For Each asn In tsk.Assignments
If Not asn Is Nothing Then
‘ コスト按分ロジックの適用
Call CalculateAndApplyAssignmentCost(asn, dblTaskProgress)
End If
‘ アサインメントオブジェクトの即時解放
Set asn = Nothing
Next asn
End If
End If
‘ タスクオブジェクトの即時解放
Set tsk = Nothing
Next tsk
‘ 3. 変更の確定と再計算の実行
Application.Calculation = originalCalcMode
Application.ScreenUpdating = True
‘ 手動計算モード下での強制再計算
prj.Calculate
MsgBox “コストの按分計算が正常に完了しました。”, vbInformation, “アーキテクチャ・インフォメーション”
Exit Sub
ErrorHandler:
‘ 異常系処理：確実に環境を復元し、メモリリークを防ぐ
Application.Calculation = originalCalcMode
Application.ScreenUpdating = True
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
‘ 参照のクリーンアップ
Set asn = Nothing
Set tsk = Nothing
Set prj = Nothing
End Sub
Private Sub CalculateAndApplyAssignmentCost(ByRef targetAsn As MSProject.Assignment, ByVal progressRate As Double)
‘ ————————————————————————–
‘ 補助ルーチン: 単一アサインメントのコスト按分計算
‘ ————————————————————————–
On Error GoTo SubError
Dim totalCost As Double
Dim actualCost As Double
Dim remainingCost As Double
‘ 総コストの取得 (Standard Rate + Overtime Rate + Cost per Use)
totalCost = targetAsn.Cost
‘ 進捗率に基づいた実績コスト（Actual Cost）の算術的按分
‘ ※Project標準のEVM計算とは別に、厳密な経理的按分が必要な場合のカスタムロジック
actualCost = totalCost progressRate
remainingCost = totalCost – actualCost
‘ 実際のAssignmentプロパティへ書き込み
‘ ※注意: コストフィールドがBaselineや固定コストと競合しないよう制御
targetAsn.ActualCost = actualCost
targetAsn.RemainingCost = remainingCost
Exit Sub
SubError:
‘ 予期せぬリソース競合エラーをログに残し、処理を継続
Debug.Print “Assignment ID: ” & targetAsn.UniqueID & ” の計算中にエラー: ” & Err.Description
End Sub
—
4. チーフアーキテクトが解説するコードの急所と技術的ポイント
A. 計算エンジンの完全な調停 (`pjCalcManual`)
MS Projectはデフォルトで、一つのプロパティ（例：`ActualCost`）を変更するたびに、依存関係にあるサマリータスクやコストテーブル全体を再計算する。これを数千回繰り返すと、O(N^2)に近いオーダーでパフォーマンスが劣化する。
コード冒頭で `Application.Calculation = pjCalcManual` を宣言し、すべての書き込みが完了した後に `prj.Calculate` を一発叩く手法は、大規模工程表における鉄則である。
B. オブジェクトの明示的・局所的解放
VBAはガベージコレクションのタイミングが不透明であるため、`For Each` ループの中で生成された `Task` や `Assignment` のポインタがメモリ上に残り続ける。
ループの最後で必ず `Set tsk = Nothing` および `Set asn = Nothing` を実行し、参照カウントを即座にゼロに落とすことで、長時間のバッチ処理でもメモリ使用量をフラットに維持できる。
C. エラーハンドリングにおける安全性の担保
万が一、計算途中でタスクがロックされている場合や、カスタムフィールドの型不一致によるエラーが発生した場合でも、`ErrorHandler` ラベルによって確実に `ScreenUpdating` と `Calculation` の状態を元の設定に復元する。これを行わないと、ユーザーのMS Project画面が固まったまま操作不能になる（いわゆる「ゾンビプロセス状態」）リスクを回避できる。
—
5. システム間連携への拡張：Excel/DBへのトランスファー
このエンジンで算出されたアサインメント単位の按分コストは、単にMS Project上で保持するだけでは意味がない。これを基幹システムの予算管理DBや、経営層向けのExcelダッシュボードへシームレスに連携させる必要がある。
実務においては、このVBAマクロの実行直後に `ADO (ActiveX Data Objects)` を用いて、算出された `ActualCost` と `RemainingCost` をSQL ServerやOracleなどのRDBへ直接バルクインサート、あるいはCSV形式でストリーム出力するアーキテクチャを構築するのが定石である。
レガシーなシステムであっても、基盤となるVBA側のメモリモデルとオブジェクトライフサイクルさえ完璧に制御されていれば、現代のモダンなデータパイプラインの末端としても十分に耐えうる堅牢性を発揮する。
妥協のないコードのみが、巨大なプロジェクトデータを制圧する。現場のエンジニア諸賢の健闘を祈る。
