【初心者向け】マクロ記録が使えないProject VBAで、最初の1行を書き始めるためのデバッグテクニック
Excel VBAの開発者であれば誰もが世話になる「マクロ記録」。画面上の操作をそのままコードに翻訳してくれるあの魔法の機能が、Microsoft Projectの世界には存在しない。
初めてProject VBAのエディタを開いたとき、多くのエンジニアが絶望する。「一体、オブジェクトのプロパティ名は何なのだ？ `Task`の開始日を取得するには `Start` なのか `Begin` なのか、それとも別の名前なのか？」と。
Excelの感覚で闇雲にコードを書き、`Run-time error ‘438’: Object doesn’t support this property or method` の壁に阻まれて立ち尽くす。これが、多くの実務担当者がProject VBAで挫折する典型的なパターンだ。
しかし、恐れることはない。Project VBAには、マクロ記録がなくとも「今、メモリ上に何が存在し、どんなプロパティを持っているか」を丸裸にする最強の探索手法がある。
今回は、開発プロジェクトの現場で即座に使える、極限まで効率的なオブジェクト探索術と、バグを生まない堅牢なコードの書き方を伝授しよう。
—
1. なぜ「マクロ記録なし」でも恐れる必要がないのか？
Excelと異なり、Projectは「スケジュール計算エンジン」という厳密なロジックを内包した巨大なオブジェクトモデルで動いている。そのため、ユーザーのGUI操作を単純なVBAコードに変換するのが構造的に難しい。これがマクロ記録が存在しない理由だ。
しかし、Project VBAにはExcelを凌駕する強力な武器がある。それが イミディエイトウィンドウ（Immediate Window）を用いたライブ探索 だ。
私たちはコードをファイルに書き、実行してエラーを出すという無駄なサイクルを回す必要はない。VBE（Visual Basic Editor）のイミディエイトウィンドウ上で、オブジェクトを生きたまま直接尋問すればいいのだ。
—
2. 最初の1行を導き出す「イミディエイト探索術」
まずはVBEを開き（`Alt + F11`）、`Ctrl + G` でイミディエイトウィンドウを表示してほしい。そして、以下の「魔法の呪文」を打ち込んでみよう。
Debug.Print ActiveProject.Name
これでプロジェクト名が返ってきたはずだ。ここからが本番である。
「現在選択されているタスクの名称や期限を知りたい」と思ったとき、あなたならどう調べるか？ ヘルプを開く？ いや、オブジェクトブラウザを開く必要すらない。イミディエイトウィンドウで `TypeName` や `Print` を駆使してドメインモデルをハッキングするのだ。
ステップ1：アクティブなタスクの存在確認と型番の特定
? ActiveSelection.Tasks(1).Name
もしエラーが出たら、現在タスクが選択されていないか、オブジェクトの階層が違う。
では、プロジェクト全体の先頭タスクにアクセスしてみよう。
? ActiveProject.Tasks(1).Name
これでタスク名が取得できたなら、あなたはもうProject VBAの暗号を解読し始めている。
ステップ2：未知のプロパティを「総当たり」で暴く
オブジェクトが持っているプロパティやメソッドの全貌を知りたいとき、初心者はネットの海を彷徨う。しかし、プロのエンジニアはVBAの `TypeOf` やブレークポイント、あるいは `For Each` を使ったメタプログラミング的なアプローチで構造を暴く。
例えば、タスクオブジェクトがどんなプロパティを持っているか確認するスニペットを即席で書いて実行する。
Sub ExploreTaskObject()
Dim t As Task
Set t = ActiveProject.Tasks(1)
‘ イミディエイトウィンドウに出力結果のヘッダーを表示
Debug.Print “— タスク名: ” & t.Name & ” —”
Debug.Print “ID: ” & t.ID
Debug.Print “UniqueID: ” & t.UniqueID
Debug.Print “Start: ” & t.Start
Debug.Print “Finish: ” & t.Finish
Debug.Print “PercentComplete: ” & t.PercentComplete & “%”
End Sub
これを実行するだけで、主要なプロパティの名前（`Start`, `Finish`, `PercentComplete` 等）が手に取るようにわかる。
—
3. 実務で通用する「堅牢なプロダクションコード」の設計思想
オブジェクトの探し方がわかったところで、業務効率化ツールの実装に移ろう。
現場でよくある要求は 「特定の条件に合致するタスクを一括して抽出し、進捗状況をログ出力または別処理に連携する」 というものだ。
ここで、素人が書く「動くだけの脆弱なコード」と、プロが書く「保守性の高い堅牢なコード」の決定的な違いを見せよう。
❌ 非効率で危険なコードの例
‘ 【NG例】エラーハンドリングがなく、ActiveProjectに依存しきった危険なコード
Sub BadCode()
Dim i As Long
For i = 1 To ActiveProject.Tasks.Count
‘ 削除されたタスク（Nothing）を考慮していないため、ここで必ずクラッシュする
If ActiveProject.Tasks(i).PercentComplete < 100 Then
MsgBox ActiveProject.Tasks(i).Name
End If
Next i
End Sub
なぜこの書き方は非効率で危険なのか？
1. `Nothing` の考慮漏れ: Projectのタスクコレクションは、行が削除されるとインデックスが詰まる、あるいは `Nothing`（空の要素）が挟まることがある。数値ループで `.Tasks(i)` を直接叩くと、容赦なく実行時エラー（オブジェクト変数または With ブロック変数が設定されていません）を引き起こす。
2. パフォーマンスの劣化: ループのたびに `ActiveProject.Tasks(i)` を評価するため、大規模なスケジュール（数千行）では極端に処理が遅くなる。
—
⭕ コピペして使える！堅牢なプロダクションコード例
以下のコードは、オブジェクトのライフサイクルを考慮し、エラーハンドリングとパフォーマンスを極限まで高めた実務仕様のテンプレートだ。そのまま業務ツールに組み込んでほしい。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ExportIncompleteTasks
‘ 概要 : 未完了タスクを安全に走査し、イミディエイトウィンドウに出力する
‘ 備考 : 大規模プロジェクト（数千タスク）を想定した高速化・堅牢性担保モデル
‘ ==============================================================================
Public Sub ExportIncompleteTasks()
‘ 1. エラーハンドリングの宣言
On Error GoTo ErrorHandler
‘ 2. アプリケーションの動作を最適化（画面描画を停止して爆速化）
With Application
.ScreenUpdating = False
.CalculationManual = True
End With
Dim prj As Project
Set prj = ActiveProject
‘ プロジェクトが開かれていない、またはタスクが存在しない場合のガード節
If prj Is Nothing Then
MsgBox “有効なプロジェクトが開かれていません。”, vbCritical, “エラー”
GoTo Finally
End If
If prj.Tasks.Count = 0 Then
MsgBox “対象プロジェクトにタスクが存在しません。”, vbExclamation, “通知”
GoTo Finally
End If
Dim tsk As Task
Dim targetCount As Long
targetCount = 0
Debug.Print “=== 未完了タスクリスト抽出開始: ” & Now & ” ===”
‘ 3. For Each を用いた安全かつ高速なオブジェクト走査
For Each tsk In prj.Tasks
‘ 削除されたタスク（Nothing）や、サマリータスク（見出し行）を除外する判定
If Not tsk Is Nothing Then
‘ サマリータスク（Summary = True）ではなく、かつ完了していない（100%未満）もの
If Not tsk.Summary Then
If tsk.PercentComplete < 100 Then
' 必要情報を構造化して出力
Debug.Print "ID: " & tsk.ID & _
" | 固有ID: " & tsk.UniqueID & _
" | タスク名: " & tsk.Name & _
" | 期限: " & Format(tsk.Finish, "yyyy/mm/dd") & _
" | 進捗: " & tsk.PercentComplete & "%"
targetCount = targetCount + 1
End If
End If
End If
Next tsk
Debug.Print "=== 抽出完了 (合計: " & targetCount & " 件) ==="
MsgBox "未完了タスクの抽出が完了しました。" & vbCrLf & "抽出件数: " & targetCount & "件", vbInformation, "完了"
Finally:
' 4. 必ずアプリケーションの状態を元に戻す（重要）
With Application
.ScreenUpdating = True
.CalculationManual = False
End With
Exit Sub
ErrorHandler:
' 予期せぬエラーの捕捉
MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical, "致命的エラー"
Resume Finally
End Sub
---
4. プロジェクト開発におけるデータベース・ファイル連携の注意点
Project VBAで業務ツールを高度化させていくと、必ず「ExcelやSQLデータベース、外部CSVとの連携」という壁にぶつかる。ここでProject特有の「罠」にハマるエンジニアが後を絶たない。最後に、実務で絶対に押さえておくべき設計上の注意点を授けよう。
1. マイルストーンやサマリータスクの混入を防げ
外部ファイル（Excel等）へデータを書き出す際、親タスク（Summary Task）の工数やコストは、子タスクの集計値として自動計算される。これをそのままデータベースに登録すると、二重計上（ダブルカウンティング）という致命的なデータ汚染を引き起こす。必ずコード内で `If tsk.Summary = False` のようなガード条件を挟むこと。
2. 日付型のシリアル値とタイムゾーンの罠
Projectの `Variant` 型として取得する日付は、時分秒を含んでいる（例: `2023/10/01 8:00:00`）。これをそのままExcelやSQLに放り込むと、カレンダー側の想定とズレが生じる場合がある。日付比較や書き出しを行う際は、必ず `CDate()` や `Format()` で明示的に型をキャスト・整形する設計にすること。
3. トランザクションとパフォーマンスの制御
大量のタスクを一括更新するVBAを書くときは、必ず `Application.ScreenUpdating = False` と `Application.CalculationManual = True` をセットで使うこと。これを怠ると、1タスク書き換えるたびにProjectのスケジュールエンジンが全タスクの再計算を走り始め、処理が完了するまでに数十分のコーヒーブレイクが必要になる。
—
終わりに
マクロ記録がないことは、Project VBAの限界ではない。むしろ、開発者が「オブジェクトモデルを正しく理解し、自らの手でコードをデザインする」ための最高の洗礼である。
イミディエイトウィンドウでオブジェクトを直接叩き、プロパティを暴き、堅牢なガード条件とエラーハンドリングでコードを武装する。このアプローチを身につけた瞬間から、あなたは単なる「マクロの記録者」ではなく、本物の「業務自動化アーキテクト」へと進化する。
さあ、VBEを開き、最初の1行をイミディエイトウィンドウに打ち込んでみよう。Projectの全貌が、あなたの手の中に広がるはずだ。
