Project VBAを掌握する極限の知見：Resourceコスト分析自動化の深淵
Microsoft ProjectのVBAにおいて、真にプリミティブなオブジェクトモデルの挙動を理解している者は少ない。GUIの背後で何が起きているか。`Resource`オブジェクト、そしてその複雑怪奇な`CostRateTables`（コストレートテーブル）の構造を剥ぎ取り、数千行規模のタスク群を抱える巨大プロジェクトの予算シミュレーションをミリ秒単位で完結させる方法について語ろう。
一般の解説記事は「タスクにリソースを割り当ててコストを出す」という表層的なコードで終わる。だが、実務の現場では、「複数レート（A〜Eテーブル）の動的切り替え」「時間外労働の割増」「固定費と変動費の混在」「Excelや外部DBとの高速連携」という泥臭い要件が立ち塞がる。
今回は、レガシーなCOMコンポーネントの制約をねじ伏せ、メモリリークを根絶し、APIの挙動の裏をかく、シニアエンジニアのための極限のコスト分析自動化アーキテクチャを提示する。
—
1. ProjectのコストモデルとCostRateTablesの構造的罠
MS Projectのコスト計算エンジンは非常に特殊だ。リソースには最大5つのコストレートテーブル（A〜E）を持たせることができ、タスクの進捗や日付、あるいはロール（役割）に応じて適用レートを切り替えられる。
しかし、VBAからこの構造を素朴に舐めようとすると、COMのオーバーヘッドと「遅延バインディングの罠」に足元をすくわれる。
オブジェクト階層の正確な把握
- `ActiveProject.Resources`：プロジェクト内の全リソースコレクション
- `Resource.CostRateTables(Index)`：A(1)からE(5)までのテーブル
- `CostRateTable.PayRates(Index)`：各レートの単価と適用期間（有効開始日・終了日）
これらをループ処理する際、変数の型を曖昧にすると、背後で多重のCOMラッパーが生成され、ガベージコレクションが追いつかずにExcel/Projectがフリーズする。必ず明示的な型宣言（`Dim r As Resource`, `Dim crt As CostRateTable`）を行い、処理後は容赦なく`Nothing`を代入してメモリを解放しなければならない。
—
2. 実装：高速コストシミュレーション・エンジン
以下に提示するのは、単なる集計ではない。「指定した基準日における、各リソースの動的コストレートを適用したプロジェクト全体のコスト再計算と、外部CSV/DB出力を見据えたメモリ最適化済みバッチ処理」のコードだ。
Option Explicit
‘ ==============================================================================
‘ 処理名: Project Cost Simulation Engine
‘ 概要 : CostRateTablesを動的に解析し、プロジェクト全体のシミュレーションコストを算出
‘ 備考 : オブジェクトの明示的解放とエラーハンドリングを極限まで最適化
‘ ==============================================================================
Public Sub RunAdvancedCostSimulation()
‘ 処理速度向上と画面描画停止によるリソース保護
Application.ScreenUpdating = False
Dim tStart As Double
tStart = Timer
On Error GoTo ErrorHandler
Dim prj As Project
Set prj = ActiveProject
Dim resColl As Resources
Set resColl = prj.Resources
Dim res As Resource
Dim task As Task
Dim assignment As Assignment
‘ 評価基準日（例として現在日を使用。必要に応じてInputBox等で拡張）
Dim targetDate As Date
targetDate = Date
Debug.Print “=== Cost Simulation Started: ” & Format(Now, “yyyy-mm-dd hh:nn:ss”) & ” ===”
‘ 1. ワーク用配列または直接オブジェクト走査の最適化
‘ ここではメモリ効率を考慮し、ResourceのCostRateTableを直接評価する
Dim totalSimulatedCost As Currency
totalSimulatedCost = 0
Dim rCount As Long
rCount = 0
For Each res In resColl
If Not res Is Nothing Then
‘ リソースがコストタイプ（Cost）またはワークタイプ（Work）の場合のみ処理
If res.Type = pjResourceTypeWork Or res.Type = pjResourceTypeMaterial Then
Dim appliedRate As Double
appliedRate = GetActiveRateForDate(res, targetDate)
‘ 割り当てられているタスク群を通じたコスト算出の補正
For Each assignment in res.Assignments
If Not assignment Is Nothing Then
‘ 実際の工数(Work)に、動的に取得したレートを乗算してシミュレーションコストを算出
‘ ※標準のCostプロパティではなく、レート変動を考慮した独自ロジック
Dim workHours As Double
workHours = assignment.Work / 60 ‘ Workはデフォルトで分単位の場合があるため調整
totalSimulatedCost = totalSimulatedCost + (workHours appliedRate)
Set assignment = Nothing
End If
Next assignment
rCount = rCount + 1
End If
End If
‘ ループごとのオブジェクト参照破棄（メモリリーク対策）
Set res = Nothing
Next res
‘ 結果の出力（イミディエイトウィンドウおよびカスタムプロパティへの書き込み）
Debug.Print “Processed Resources: ” & rCount
Debug.Print “Simulated Total Cost: ” & Format(totalSimulatedCost, “#,
0″) & ” JPY”
Debug.Print “=== Cost Simulation Completed in ” & Format(Timer – tStart, “0.00”) & ” sec ===”
CleanUp:
‘ 状態の復元
Application.ScreenUpdating = True
‘ 参照の完全解放
Set resColl = Nothing
Set prj = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Cost Simulation Error”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ 補助関数: 指定した日付における有効なコストレートを取得する
‘ ==============================================================================
Private Function GetActiveRateForDate(ByVal res As Resource, ByVal targetDate As Date) As Double
On Error GoTo ErrHandler
Dim defaultRate As Double
defaultRate = res.StandardRate / 60 ‘ デフォルトの分単価等への換算（環境依存）
Dim crt As CostRateTable
Dim payRate As PayRate
‘ デフォルトとしてテーブルA (Index 1) を使用
Set crt = res.CostRateTables(1)
‘ PayRatesコレクションを走査し、targetDateが有効期間内のものを探す
For Each payRate In crt.PayRates
If targetDate >= payRate.EffectiveDate And targetDate <= payRate.RegularRateTo Then
GetActiveRateForDate = payRate.StandardRate
Set payRate = Nothing
Set crt = Nothing
Exit Function
End If
Set payRate = Nothing
Next payRate
' 一致する期間がない場合は標準レートを返す
GetActiveRateForDate = defaultRate
Set crt = Nothing
Exit Function
ErrHandler:
' エラー時は安全側に倒して標準レートを返す
GetActiveRateForDate = res.StandardRate
Set crt = Nothing
End Function
---
3. シニアエンジニアが知るべき「メモリ最適化」と「COMの罠」
上記のコードを見て、「なぜここまで執拗に `Set xxx = Nothing` を書いているのか？」と疑問に思うジュニア層もいるかもしれない。しかし、Project VBAにおいて、COMオブジェクトの参照カウントの管理は死活問題だ。
1. 循環参照とメモリ肥大化
`For Each res In resColl` や `For Each assignment in res.Assignments` のようなネスト構造では、VBAのランタイムが内部的にCOMポインタの参照を保持し続ける。タスク数が5,000件、リソースが200名を超える大規模プロジェクト（Enterprise Project Management環境含む）では、この参照が解放されないだけで、数回の実行でVBAのメモリ空間が枯渇し、「メモリ不足です（Out of memory）」という最も絶望的なエラーを引き起こす。
明示的な`Nothing`の代入は、VBAに対して「このCOMポインタの参照カウントを直ちにデクリメントせよ」と強制する唯一の手段なのだ。
2. `ScreenUpdating` とイベント抑制の徹底
Projectは、オブジェクトプロパティ（特に`Cost`や`Work`、`Assignments`）にアクセスするたびに、GUIの再描画やスケジュール再計算エンジン（Calculation Engine）を裏で走らせようとする挙動を示す場合がある。
これを防ぐために、処理の最初で`Application.ScreenUpdating = False`をかけ、計算モードを一時的に手動（`Calculation = pjCalculationManual`）に切り替えるアプローチが、パフォーマンスを数倍〜数十倍に跳ね上げる。
—
4. レガシー環境と外部システム連携（API・DB）の極意
このシミュレーション結果を、社内の基幹ERPシステムやBIツール（Power BI等）へ連携させる必要がある場合、VBA単体でODBC接続を直叩きするのは保守性の観点から悪手である。
おすすめのアーキテクチャは、「Project VBAで高速にメモリ上で集計したデータを、ADOを用いてJSON形式または一時CSVとして安全に吐き出し、それを常駐型のWindowsサービス（C#/.NET Core製）が拾ってAPI経由でERPへ同期する」という非同期連携パイプラインの構築だ。
VBA側はあくまで「Projectの固有オブジェクトモデルからデータを安全に抽出するアダプター」に徹し、ビジネスロジックや外部通信は疎結合に切り離す。これが、10年後もメンテナンスに苦しまないレガシーシステムの生存戦略である。
—
結びにかえて
Project VBAは、レガシーと揶揄されようとも、Microsoft Projectの深部にダイレクトにアクセスできる唯一無二のインターフェースである。そのオブジェクトモデルの挙動、コスト計算のメカニズム、そしてメモリのライフサイクルを完全に掌握した者だけが、プロジェクトマネジメントの現場に真の自動化と信頼性をもたらすことができる。
コードの行数を競うな。ポインタの息づかいを感じろ。限界を超えた先にある、完璧な実行速度と堅牢性こそが、エンジニアの誇りである。
