【Project VBA極限解説】WBS自動構築の真髄：OutlineLevelを制する者がプロジェクトを制す
開発現場でこんな非効率な作業をまだ続けていないだろうか？
エクセルやCSVで吐き出した膨大なフラットなタスクリストを見ながら、Microsoft Projectを開き、ポチポチとインデント（タスクの格上げ・格下げ）を繰り返す。数千行のWBSともなれば、その作業だけで丸一日が潰れ、挙句の果てに階層構造を1つミスして全体のクリティカルパスが狂う——。
笑い話のようだが、これが多くの現場の現実だ。
プロジェクトマネージャーや業務自動化を担うエンジニアであるあなたなら、気づいているはずだ。「人間が手動で行うインデント作業ほど、バグを生む無駄なコストはない」と。
Project VBAにおいて、タスクの階層構造（WBS）を支配する鍵は、単一のプロパティにある。それが `OutlineLevel` だ。今回は、この `OutlineLevel` を完全に手なずけ、フラットなデータから完璧な階層構造を持つWBSを動的かつノーミスで構築する「極限のアルゴリズム」を伝授する。
—
1. なぜ「インデント操作（`Outdent`/`Indent`）」を使ってはならないのか？
VBAの初心者や、マクロの自動記録をそのまま鵜呑みにしたエンジニアが陥る最大の罠がこれだ。
‘ ❌ 初心者がやりがちなアンチパターン
ActiveCell.Task.OutlineIndent
ちょっと待ってほしい。`Indent` や `Outdent` メソッドは、あくまで「現在のカーソル位置や選択範囲」を相対的に動かすためのUI操作のラッパーに過ぎない。
これをループ内で大量のタスクに対して実行すると、以下の致命的な問題が発生する。
1. 処理速度が圧倒的に遅い：UIの再描画やフォーカスの移動が発生するため、数千行でフリーズ寸前になる。
2. コンテキスト依存のバグ：現在の選択状態や、直前のタスクの状態によって意図しない階層に吸い込まれる。
3. 再現性の欠如：途中でエラーが発生した際、どこまで処理が進んだか追跡できない。
【アーキテクトの結論】
プロジェクト管理におけるタスクの階層化は、UIの「操作」ではなく、データベース的・構造的な「代入」として捉えなければならない。
タスクオブジェクトに対し、直接 `OutlineLevel` プロパティへ数値を書き込む。これが、高速かつバグの起きない唯一にして絶対の正解である。
—
2. 階層構造（WBS）を構築する基本アルゴリズム
`OutlineLevel` を直接操作するにあたり、知っておくべきProjectの仕様がある。
Microsoft Projectのタスクには、`1` から `20` までのアウトラインレベルが存在する（通常は5〜6階層程度で運用することが多い）。
フラットなリスト（例：CSVやExcelから読み込んだデータ）からWBSを構築する場合、データ側にあらかじめ「このタスクは何階層目か」を示す数値（Level）を持たせておくのが最も堅牢だ。
【入力データのイメージ】
Row 1: 大規模システム刷新プロジェクト (Level 1)
Row 2: 要件定義フェーズ (Level 2)
Row 3: 現行業務ヒアリング (Level 3)
Row 4: 外部設計フェーズ (Level 2)
このリストを上から順に読み込み、各タスクの `OutlineLevel` にそのまま値を突っ込んでいく。これだけで、Projectは自動的にサマリータスク（親タスク）とサブタスク（子タスク）のツリー構造を再計算し、WBSを組み上げてくれる。
—
3. 【コピペ即実戦】堅牢なWBS自動生成プロシージャ
それでは、実務の現場でそのまま使えるプロダクションコードを公開しよう。
このコードは、Excelなどの外部データソースから配列として受け取ったタスク情報を想定し、空のプロジェクトに対して一瞬で階層的なWBSを構築する。
Option Explicit
”’
”’
Public Sub BuildWBSFromFlatData()
‘ 画面描画と自動計算を停止し、圧倒的なパフォーマンス向上を図る（鉄則）
App.ScreenUpdating = False
Application.Calculation = pjCalculationManual
On Error GoTo ErrorHandler
Dim prj As Project
Set prj = ActiveProject
‘ 既存のタスクをクリアする場合（必要に応じて有効化）
‘ Dim t As Task
‘ For Each t In prj.Tasks
‘ If Not t Is Nothing Then t.Delete
‘ Next t
‘ — 【模擬データ】本来はExcelやDBから二次元配列で取得する —
‘ 構造: (インデックス, 0=タスク名, 1=アウトラインレベル)
Dim rawData(3, 1) As Variant
rawData(0, 0) = “基幹システムリプレイス” : rawData(0, 1) = 1
rawData(1, 0) = “1. 要件定義” : rawData(1, 1) = 2
rawData(2, 0) = “1.1 業務フロー分析” : rawData(2, 1) = 3
rawData(3, 0) = “1.2 要件定義書作成” : rawData(3, 1) = 3
Dim i As Long
Dim newTask As Task
‘ 上から順にタスクを追加し、OutlineLevelを直接設定する
For i = LBound(rawData, 1) To UBound(rawData, 1)
‘ タスクの追加（常に末尾に追加）
Set newTask = prj.Tasks.Add(Name:=rawData(i, 0))
‘ 階層（OutlineLevel）を直接代入（※UI操作のIndentは絶対に使わない）
newTask.OutlineLevel = rawData(i, 1)
Next i
‘ 正常終了時の処理
MsgBox “WBSの階層構築が正常に完了しました。”, vbInformation, “成功”
CleanUp:
‘ 設定を元に戻す
App.ScreenUpdating = True
Application.Calculation = pjCalculationAutomatic
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
コードのキモ：プロが仕込む「3つの防衛策」
1. `App.ScreenUpdating = False` と手動計算
タスクが追加されるたびにProjectがガントチャートの描画やWBSの再計算走らせると、処理時間がO(N^2)の様に爆発的に遅くなる。必ず処理前に止め、最後に復元しろ。
2. UIを介さないダイレクト代入
`newTask.OutlineLevel = rawData(i, 1)` により、メモリ上で直接ツリー構造を構築する。これが数千行を数秒で終わらせる秘訣だ。
3. 厳格なエラーハンドリング
途中でデータ不正（例：Level 1の次にいきなりLevel 3が来るなど、構造的矛盾）が発生した場合でも、画面描画ロックが解除されずにフリーズしたような状態になるのを防ぐため、必ず `On Error GoTo` でクリーンアップを通す設計にしている。
—
4. 外部ファイル・DB連携時の実務的注意点
この自動化ツールを実務に導入する際、多くの開発者がハマる「罠」がある。最後にこれを伝えておこう。
- データの「階層のジャンプ（スキップ）」に備えろ
人間が手入力したCSVなどでは、`Level 1` の直後にいきなり `Level 3` が現れるような「不正なインデント飛び」が頻発する。Microsoft Projectはこの状態をよしとせず、自動で不正な補正を行ってガントチャートが崩壊することがある。データを取り込む前に、配列のループ内で「前行のレベルに対して、当行のレベルが＋2以上増えていないか（例: 1から3への飛び）」をバリデーションするロジックを必ず挟むこと。
- サマリータスクの期間（Duration）は自動計算に任せろ
`OutlineLevel` が上位（親）になったタスクは、自動的に「サマリータスク」となり、配下の子タスクの期間を内包する読み取り専用の期間を持つようになる。VBAで親タスクに対して無理に `Duration` を代入しようとするとエラーになるか無視される。親タスクの期間は子タスクに委譲される仕様であることを忘れるな。
—
総括
タスクの階層構造（WBS）の自動化は、単なる「手作業の代替」ではない。プロジェクトの構造データをコードによって美しく秩序立てる、アーキテクチャそのものだ。
`OutlineLevel` の特性を理解し、無駄なUI操作を排除した堅牢なコードを書けば、あなたの作る自動化ツールは現場のエンジニアやPMから絶大な信頼を得るだろう。
さあ、今すぐその場しのぎの `Indent` メソッドを捨て、ロジカルで美しいVBAコードへとリファクタリングしてほしい。
