【上級者向け】ベースライン設定の自動検証：設定漏れを検知するチェックリストマクロ
プロジェクトマネジメントにおいて、ベースライン（計画値）の設定漏れほど、後続の進捗管理やアー Earned Value Management (EVM) を狂わせる地雷はない。
「スケジュールは引いたが、ベースライン保存を忘れていた」「後から追加されたタスクにベースラインが適用されていない」——。大規模なプロジェクトファイルであればあるほど、目視による検知は不可能に近く、手遅れになってから気付くのが関の山だ。
今回は、Project VBAのオブジェクトモデルを熟知したプロフェッショナル向けに、全タスクのベースライン設定状況を完璧に監査し、不整合をあぶり出す品質保証用チェックリストマクロを伝授する。
単にループを回してプロパティを覗くだけのコードではない。Project特有の「ヌル値（未設定）」の判定トラップを回避し、実務の現場でそのまま組み込める堅牢性を持ったプロダクションコードを解説しよう。
—
1. なぜ「目視」や単純なループでは失敗するのか？
Project VBAでベースラインを扱う際、多くの開発者がハマる罠がある。それは「未設定の定義」の曖昧さだ。
Projectには最大11個（Baseline～Baseline10）のベースラインが存在するが、タスクが途中で追加された場合、親タスクやサマリータスク、あるいは個別タスクの一部でベースラインの数値が欠損することがある。
さらに、VBAから `BaselineCost` や `BaselineWork` などのプロパティを参照した際、未設定の状態であっても「0」や「空文字」ではなく、不気味なデフォルト値やエラーを返すケースが存在する。
これをロジカルに解決するためには、以下の要件を満たす設計が必要となる。
- 全タスク（Task Collection）の厳密な走査（マイルストーンやサマリータスクの特性を考慮）
- 対象ベースライン（通常は Baseline または Baseline1）のデータ完全性チェック
- 検知結果を即座に視認できるレポート出力（Excel連携またはイミディエイト／メッセージ出力）
—
2. 堅牢なベースライン検証マクロの実装
以下のコードは、アクティブなProjectファイルに対し、指定したベースライン（デフォルトでは `Baseline`）が正しく設定されているかを全件走査し、未設定あるいは異常値を持つタスクをリストアップしてExcelに出力する、実務仕様のプロシージャである。
Option Explicit
‘ =========================================================================
‘ 開発者コメント:
‘ プロジェクトファイルのベースライン設定漏れを検知し、Excelへ監査レポートを出力する。
‘ 依存関係: Microsoft Excel Object Library (早期バインディングの場合は参照設定を推奨)
‘ =========================================================================
Sub AuditProjectBaseline()
Dim prj As Project
Set prj = ActiveProject
Dim tsk As Task
Dim missingCount As Long
missingCount = 0
‘ 監査対象のベースライン番号 (0 = Baseline, 1～10 = Baseline1～10)
Const TARGET_BASELINE As Long = pjBaseline
‘ 事前チェック: プロジェクトにタスクが存在するか
If prj.Tasks.Count = 0 Then
MsgBox “タスクが登録されていません。”, vbExclamation, “ベースライン監査”
Exit Sub
End If
‘ Excelアプリケーションの起動 (レポート出力用)
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
On Error Resume Next
Set xlApp = CreateObject(“Excel.Application”)
On Error GoTo 0
If xlApp Is Nothing Then
MsgBox “Excelの起動に失敗しました。処理を中断します。”, vbCritical, “エラー”
Exit Sub
End If
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
xlSheet.Name = “Baseline_Audit_Report”
‘ レポートヘッダーの設定
With xlSheet
.Cells(1, 1).Value = “プロジェクト名”
.Cells(1, 2).Value = prj.Name
.Cells(2, 1).Value = “タスクID”
.Cells(2, 2).Value = “タスク名”
.Cells(2, 3).Value = “WBS”
.Cells(2, 4).Value = “状態”
.Cells(2, 5).Value = “検出理由”
‘ ヘッダーの装飾
.Range(“A2:E2”).Font.Bold = True
.Range(“A2:E2”).Interior.Color = RGB(220, 230, 241)
End With
Dim rowIdx As Long
rowIdx = 3
‘ パフォーマンス最適化: 画面描画の停止
App.ScreenUpdating = False
‘ 全タスクの走査
For Each tsk In prj.Tasks
‘ ヌルタスク（削除されたタスクの残骸等）のスキップ
If Not tsk Is Nothing Then
‘ 外アルゴリズム: 以下の条件のいずれかに該当する場合を「設定漏れ・異常」と判定
‘ 1. タスク名が空でないこと
‘ 2. 外部タスクやサマリータスクの除外要件（必要に応じて調整）
‘ 3. ベースラインの開始日（BaselineStart）が NA または未設定（#N/A# に相当する数値）
If tsk.Name <> “” Then
Dim isError As Boolean
isError = False
Dim reason As String
reason = “”
‘ Project VBAでは未設定のベースライン日付は “NA” (Year 4501等、または特定の内部数値) を返す
‘ ここでは BaselineCost または BaselineStart が有効かを確認
If tsk.BaselineStart = “NA” Or tsk.BaselineFinish = “NA” Then
isError = True
reason = “ベースラインの日付が未設定 (NA)”
ElseIf tsk.BaselineCost = 0 And tsk.Work > 0 Then
‘ コストや工数が発生しているにもかかわらずベースラインコストが0の場合の検知ロジック
isError = True
reason = “工数があるがベースラインコストが未反映の可能性”
End If
‘ 異常検知時のExcel転記
If isError Then
missingCount = missingCount + 1
xlSheet.Cells(rowIdx, 1).Value = tsk.ID
xlSheet.Cells(rowIdx, 2).Value = tsk.Name
xlSheet.Cells(rowIdx, 3).Value = tsk.WBS
xlSheet.Cells(rowIdx, 4).Value = IIf(tsk.Summary, “サマリー”, “通常”)
xlSheet.Cells(rowIdx, 5).Value = reason
rowIdx = rowIdx + 1
End If
End If
End If
Next tsk
‘ 画面描画の復元
App.ScreenUpdating = True
‘ 仕上げとサマリー表示
xlSheet.Columns(“A:E”).AutoFit
If missingCount > 0 Then
MsgBox “監査完了: ” & missingCount & ” 件のベースライン設定漏れ・異常を検知しました。” & vbCrLf & _
DetailsReportMessage(xlSheet.Name), vbExclamation, “品質警告”
Else
MsgBox “監査完了: ベースラインの設定漏れは検出されませんでした。完璧な状態です。”, vbInformation, “品質確認”
‘ 異常がなければ作成した空のExcelブックを閉じる
xlBook.Close False
End If
‘ クリーンアップ
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
‘ 補助関数: メッセージ用の簡易ラッパー
Private Function DetailsReportMessage(sheetName As String) As String
DetailsReportMessage = “詳細は起動したExcelレポート (” & sheetName & “) を確認してください。”
End Function
—
3. アーキテクチャの解説：なぜこのコードが「実務で耐えうる」のか？
① 無駄なオブジェクト参照とメモリリークの排除
Excelとの連携において、`CreateObject` を使用する際は、プロセスがゾンビ化（メモリリーク）するリスクを常に考慮しなければならない。変数のスコープを明確にし、処理の最後で適切に参照を切る（`Nothing` を代入する）ことで、Officeアプリケーション間のプロセス残留を防いでいる。
② Project固有の「NA判定」の罠を突破
Projectの内部データ構造において、日付フィールドに値が入っていない場合、単純な `0` 比較では弾けないケースがある。VBAの暗黙の型変換を利用し、`”NA”` という文字列評価、あるいは特定の日付シリアル値との比較を行うことで、偽陽性（誤検知）を極限まで減らしている。
③ 巨大プロジェクトを見据えたパフォーマンスチューニング
数千行に及ぶEnterprise Project Management (EPM) / Project Onlineのスケジュールにおいて、一タスクごとにUIを更新するようなコードを書けば、完了までに何十分もかかる。`App.ScreenUpdating = False`（※ProjectのApplicationオブジェクト制御）を挟むことで、高速な一括処理を実現している。
—
4. 現場へ導入する際の実務的注意点
1. サマリータスクの扱い
プロジェクトによっては、サマリータスクのベースラインは自動計算に委ね、個別のサブタスクのみを監査対象にしたい場合がある。その場合は `If tsk.Summary = False Then` の条件をループ内に組み込むことでカスタマイズ可能だ。
2. Enterprise Project (PWA) 環境での権限
サーバー側のプロジェクトを操作する場合、チェックアウト（Check Out）されていない状態ではベースラインの有無にかかわらずデータが正しく取得できないことがある。必ずプログラム実行前に編集権限を確保していることを前提とさせよ。
総括
プロジェクト管理の自動化とは、単なる「手間の削減」ではない。「ヒューマンエラーによる品質の揺らぎを、コードによって物理的にねじ伏せること」である。
このベースライン検証マクロを定例バッチや、プロジェクトのステータスレビュー前の「ゲートキーパー」として組み込むことで、あなたのプロジェクト管理組織は一段上のステージへと進化するはずだ。ぜひ、現場のインフラとして導入してほしい。
