Project VBAの深淵へ：外部データから「制約条件」を完璧に制御する極意
こんにちは。現場で泥臭い自動化を積み重ね、いつしか「Projectの守護神」と呼ばれるようになったエンジニアです。
Project VBAの世界へようこそ。マクロの記録が使えないこの環境に、最初は戸惑ったかもしれませんね。でも安心してください。Projectのオブジェクトモデルは非常に論理的です。今回は、現場で最も苦戦する「外部Excelデータから制約条件（ASAPやALAPなど）を一括適用する」という難所を、伝説級の知見で攻略します。
ここを突破すれば、あなたのProject管理は「手作業の奴隷」から「自動化の指揮官」へと進化します。
—
1. なぜ「データマッピング」で躓くのか？
ExcelからProjectへデータを流し込む際、多くの初心者が陥る罠が「文字列と定数の不一致」です。
Excelには「開始可能な限り早く（ASAP）」という文字が書かれていますが、ProjectのVBAエンジンは、それを`pjConstraintStartNoEarlierThan`という難解な定数として認識します。
これを愚直に`If`文で繋いでいくのは、保守性の観点から「罪」に近い行為です。プロのエンジニアは、ここで「マッピングテーブル（辞書）」という考え方を使います。
—
2. 賢者の戦術：マッピングロジックの実装
「if-then-else」の迷宮を避けるために、`Scripting.Dictionary`を活用しましょう。これにより、データと処理を完全に分離します。
‘ 必要なライブラリ: Microsoft Scripting Runtime を参照設定してください
‘ 参照できない場合は、Object型で代用可能です
Public Sub ApplyConstraintsFromExcel()
Dim projApp As Object
Set projApp = Application ‘ Project本体を取得
‘ 1. 制約条件の辞書を作成（マッピングテーブル）
Dim constraintMap As Object
Set constraintMap = CreateObject(“Scripting.Dictionary”)
‘ 文字列をProject定数にマッピング
constraintMap.Add “ASAP”, pjConstraintStartNoEarlierThan
constraintMap.Add “ALAP”, pjConstraintFinishNoLaterThan
constraintMap.Add “MustStartOn”, pjConstraintMustStartOn
‘ 2. Excelデータ（仮定）からタスクをループ
‘ ここでは便宜上、タスクID 1 に対して処理を適用する例を示します
Dim tsk As Task
Set tsk = ActiveProject.Tasks(1)
Dim excelValue As String
excelValue = “ASAP” ‘ Excelから読み取った値と想定
‘ 3. 安全に適用（エラーハンドリングが肝）
If constraintMap.Exists(excelValue) Then
tsk.ConstraintType = constraintMap(excelValue)
Debug.Print “タスク「” & tsk.Name & “」に制約[” & excelValue & “]を適用しました。”
Else
MsgBox “未知の制約タイプです: ” & excelValue, vbCritical
End If
End Sub
ここがプロのポイント！
- Dictionaryの活用: 新しい制約タイプが増えても、`constraintMap.Add`を一行足すだけで済みます。これが拡張性の高いコードというものです。
- マジックナンバーの排除: `pjConstraintStartNoEarlierThan`のようなProject固有の定数（Enum）をそのまま使うことで、可読性を極限まで高めています。
—
3. 陥りやすいエラーと回避策
Project VBAは、Excel VBAよりも「状態」に厳しいです。以下のエラーに注意してください。
- 「タスクが読み取り専用です」:
プロジェクトが保護されていたり、リソースの競合が起きている場合です。`ActiveProject.ReadOnly`を事前にチェックする習慣をつけましょう。
- 「制約日付の不整合」:
`ConstraintType`を変更する際、`ConstraintDate`（具体的な日付）が設定されていないと、Projectは混乱します。`ConstraintType`を設定した直後に、必ず正しい日付を`tsk.ConstraintDate = …`で指定する手順を忘れないでください。
—
4. 最後に：自動化の真髄
「マクロの記録」から脱却したあなたは、今やコードを書くことでProjectの挙動そのものを設計するエンジニアです。
今回紹介したマッピングロジックは、制約条件だけでなく、リソース割り当てやカレンダーの設定にも応用可能です。「外部データ」と「オブジェクト定数」の橋渡しさえマスターすれば、プロジェクト管理の自動化に不可能はありません。
次は、タスクの階層構造（WBS）を再帰処理で制御する方法に挑戦してみましょう。道に迷ったら、またいつでもここへ戻ってきてください。あなたの自動化の旅を、心から応援しています。
—
「自動化とは、繰り返しの作業を排除することではない。人間がより高度な意思決定に集中するための、魂の解放である。」
