プロジェクトの「コスト」を可視化せよ：VBAで実現する進捗連動型の自動按分ロジック
こんにちは。現場で泥臭く、かつエレガントにプロジェクトを回している皆さん。
「プロジェクトのコスト管理、どうしてますか？」と聞くと、多くの人が「Excelで手入力して集計している」と答えます。しかし、Project VBAを使いこなす我々にとって、それはあまりに非効率で、かつ「未来への投資」を放棄しているのと同じです。
今回は、Project VBAの真髄である「リソースコストの動的コントロール」に焦点を当てます。進捗率（%）に応じてコストを按分し、リアルタイムでプロジェクトの健全性を測るための「職人のロジック」を伝授しましょう。
—
なぜ「自動按分」が重要なのか？
Project（MSP）の標準機能でもコスト管理は可能ですが、実務では「特定のフェーズに負荷が偏る」「稼働率が変動する」といった不規則な事象が多々発生します。
手動でコストを調整していると、必ず「入力漏れ」や「計算ミス」が起きます。コードで制御するということは、「ルールそのものをデータ化する」こと。これができるかどうかが、中級者から「真の自動化エンジニア」へ脱皮する境界線です。
—
準備：オブジェクトモデルの「心臓部」を知る
Project VBAでリソースを操作する際、絶対に押さえておくべき階層構造があります。
1. `ActiveProject.Resources`: プロジェクトに登録された全リソースの集合体。
2. `Assignment`: 「どのリソース」が「どのタスク」に「どれだけ」割り当てられているかを表すオブジェクト。
3. `Cost`: 各アサインメントが持つコスト情報。
この3つを繋ぐことで、プログラムは「誰が、どのタスクで、いくら使ったか」を自由に操作できるようになります。
—
実践コード：進捗率に応じたコスト按分ロジック
以下のコードは、選択したタスクの進捗率を読み取り、それに応じたリソースのコストを自動計算して反映させるテンプレートです。
‘ 【極意】リソースコストの動的按分エンジン
Sub UpdateResourceCostByProgress()
Dim tsk As Task
Dim asn As Assignment
Dim progress As Double
Dim hourlyRate As Double
‘ 選択したタスクに対してループを回す（エラーハンドリングは省略）
For Each tsk In ActiveSelection.Tasks
‘ 進捗率を取得（0.0～1.0で扱う）
progress = tsk.PercentComplete / 100
‘ タスクに割り当てられている各リソースを精査
For Each asn In tsk.Assignments
‘ 稼働率や単価をベースに、現時点の適正コストを算出
‘ ※ここでの計算式はプロジェクトの要件に合わせて調整してください
Dim currentTargetCost As Double
currentTargetCost = asn.Work progress 1000 ‘ 仮に単価1000円/時間と想定
‘ コストを直接上書きするのではなく、コストフィールドに反映
‘ 注意：Projectの仕様上、コストは実績と予測で管理が分かれます
asn.Cost = currentTargetCost
Debug.Print “タスク: ” & tsk.Name & ” | リソース: ” & asn.ResourceName & ” | 更新コスト: ” & asn.Cost
Next asn
Next tsk
MsgBox “コストの自動按分が完了しました。”
End Sub
—
初学者が陥りやすい「3つの落とし穴」
コードを書いていて「あれ、うまくいかないぞ？」となったら、以下のどれかに該当していないか確認してください。
1. `Work`（作業時間）と `Duration`（期間）の混同
初心者が最も間違えやすいポイントです。「期間」はカレンダー上の日数ですが、「作業」はリソースが汗をかいた時間です。コストを按分する際は、必ず`Assignment.Work`を基準にしてください。
2. 読み取り専用プロパティへの代入
Projectのフィールドの中には、計算によって導出される「読み取り専用」のものがあります。`Cost`プロパティは上書き可能ですが、Projectの計算エンジンと競合する場合があるため、更新後は必ず `CalculateProject` メソッドを実行する癖をつけましょう。
3. オブジェクトのライフサイクルの無視
`For Each` ループ内でタスクを削除したり、アサインメントを変更したりすると、メモリ上のインデックスがずれてエラー（実行時エラー 91など）を吐くことがあります。大規模な変更を行う場合は、コレクションを後ろから（`Step -1`）ループさせるのが鉄則です。
—
「自動化」の先にあるもの
このスクリプトをマスターすれば、あとは「外部のExcelから最新の単価表を読み込む」「週次で自動的にコストを再計算してレポートを出力する」といった応用が無限に広がります。
VBAは単なるコードではありません。あなたの業務時間を圧縮し、より本質的な「プロジェクトの意思決定」に時間を使えるようにするための、最強のレバレッジツールです。
ここをクリアしたあなたなら、次はAPI連携や外部データベース接続といった、さらに高度な領域へ進めるはずです。一歩ずつ、確実に。現場の課題をコードで解決する快感を、ぜひ楽しんでください！
また何か詰まったら、いつでも聞きに来てくださいね。応援しています。
