MS Project VBAの真髄：海外リソースのコストレートを「為替の波」から守り抜く自動化術
こんにちは。現場の最前線でVBAを叩き続けてきたエンジニアです。
皆さんが日々向き合っているMicrosoft Project（MSP）。「リソースの単価管理」で頭を悩ませていませんか？特に海外拠点のリソースを抱えるプロジェクトでは、為替レートの変動が予算管理を直撃しますよね。
「毎回Excelで計算して、MSPに手入力……」なんて作業は、今日で卒業しましょう。今回は、Project VBAを使って、為替レートに基づきリソースのコストレートを一括換算する「予算管理の自動化エンジン」を構築します。
マクロの記録から一歩踏み出し、プロのアーキテクチャをその手に掴みましょう。
—
1. なぜ「手入力」が致命的なのか？
プロジェクト管理における最大の敵は「情報の不整合」です。
- 人為的ミス： セルへの転記ミスは、数百万単位の予算誤差を生みます。
- タイムラグ： 為替が動くたびに修正するのは、管理者の貴重な時間を浪費するだけです。
VBAを使えば、「為替テーブル」を読み込み、MSP上のリソース単価を瞬時に上書きすることが可能です。これができれば、プロジェクトの「現在地」を常に正確な通貨単位で把握できます。
—
2. 実践：コストレート自動換算エンジンの構築
まずは、以下のコードを見てください。これがプロジェクト管理を劇的に変える「心臓部」です。
‘ プロジェクト内の全リソースに対して、指定レートで単価を再計算する
Public Sub UpdateResourceRates()
Dim res As Resource
Dim exchangeRate As Double
Dim targetCurrency As String
‘ 為替レートを設定（実務では外部ファイルや定数から取得すること）
exchangeRate = 150.5 ‘ 例：1ドル = 150.5円
‘ 確認ダイアログ（安全装置）
If MsgBox(“リソースの標準単価を為替レート ” & exchangeRate & ” で更新しますか？”, vbYesNo) = vbNo Then Exit Sub
‘ 全リソースをループ処理
For Each res In ActiveProject.Resources
‘ リソースが割り当てられているか確認（Nullチェック）
If Not res Is Nothing Then
‘ ここでコストレートを更新
‘ ※注: 標準単価(StandardRate)はプロパティとして直接操作可能
res.StandardRate = res.StandardRate exchangeRate
‘ ログをイミディエイトウィンドウに出力（デバッグの基本！）
Debug.Print res.Name & ” の単価を更新しました。”
End If
Next res
MsgBox “全リソースのコストレート更新が完了しました。”
End Sub
コードの重要ポイントを解説
- `ActiveProject.Resources`: プロジェクト内に存在するリソース全体を走査するコレクションです。ここを入り口にするのがMSP VBAの基本。
- `For Each … Next`: リソースの数だけ確実にループさせる、最も効率的で読みやすい構文です。
- `Debug.Print`: 画面には出ませんが、VBAエディタの「イミディエイトウィンドウ」にログを出します。大規模なプロジェクトほど、この「足跡」がデバッグの助けになります。
—
3. 初学者が陥りやすい「3つの罠」
コードを書く前に、これだけは覚えておいてください。
① 「単位」の不一致
MSPのリソース単価は「1時間あたりの単価」など、時間単位で定義されています。為替換算を行う際は、プロジェクト全体で「時間単価」の定義が統一されているかを必ず確認してください。
② 履歴が残らない
上記のコードは「上書き」です。一度実行すると元のレートは消えます。実務では、「更新前のレート」を別シートや別ファイルにバックアップする処理を前段に組み込むのがプロの流儀です。
③ オブジェクトの存在確認
`res Is Nothing` のチェックは必須です。MSPではリソースが削除された直後などに意図せぬ空オブジェクトが発生することがあります。これを防ぐだけで、ツールの安定性は格段に上がります。
—
4. プロのエンジニアへの第一歩
今回作成したコードは、あくまで「最小単位」の仕組みです。ここから皆さんが発展させるべきは、以下のステップです。
1. 外部データ連携： ExcelやCSVからその日の為替レートを読み込むようにする。
2. 条件付き更新： 特定の「部署」や「グループ」のリソースだけを更新対象にする（`res.Group` プロパティを活用）。
3. ロールバック機能： 誤操作した際に一瞬で前のレートに戻せる仕組み。
最後に：VBAは「退屈」を「資産」に変える魔法
「自動化」とは単なる効率化ではありません。「人間が人間らしい創造的な判断をするための時間を創り出すこと」です。
今回紹介したコードは、ただのプログラムではなく、あなたのプロジェクト管理能力を一段引き上げるための「ツール」です。ぜひ、ご自身の環境で動かしてみてください。分からないことがあれば、またいつでも聞きに来てくださいね。
皆さんのプロジェクトが、予算管理という重圧から解き放たれ、本来の成功に向けて突き進めることを心から願っています！
