こんにちは！業務自動化の現場を駆け抜けていると、Microsoft Project（Project VBA）を使ったスケジュール管理の automatisaton に直面することがよくありますよね。
マクロの記録から一歩踏み出し、「WBS（Work Breakdown Structure）の階層構造を綺麗に整えたい」「タスクの前提条件や依存関係をゴリゴリ自動化したい」と思ったとき、必ずと言っていいほど牙を剥くのが「循環参照（無限ループ）」のエラーです。
「タスクAが終わらないとタスクBが始まらない、でもタスクBが終わらないとタスクAが始まらない……」
こんな矛盾した依存関係が巨大なWBSのどこかに紛れ込んだ瞬間、Projectは沈黙するか、冷酷なエラーを吐き出します。人間の目では数千行のタスクからこれを見つけ出すのは至難の業。
そこで今回は、グラフ理論のアルゴリズム（深さ優先探索）をProject VBAに実装し、循環参照の犯人（先行タスク）を特定してログに叩き出す「デバッグツール」の作り方を、優しく、そして徹底的に解説していきます。
ここをクリアすれば、あなたのProject VBAのスキルは間違いなく一段上のステージに到達しますよ。一緒にバッチリマスターしていきましょう！
—
1. なぜ循環参照の特定は難しいのか？
Projectのタスク（`Task`オブジェクト）は、お互いに「先行タスク（Predecessors）」や「後続タスク（Successors）」という絆（リンク）で結ばれています。これは数学の世界でいう「有向グラフ」そのものです。
正常なWBSは、木構造（ツリー）や、一方通行の流れ（DAG: 有向非巡回グラフ）になっています。しかし、人間が手動で複雑なリンクを張ったり、VBAで一括処理を行ったりすると、うっかり「輪（サイクル）」ができてしまいます。
[タスク1] —> [タスク2] —> [タスク3]
^ |
|—————————-| (ここで輪ができる！)
Project標準のエラーメッセージは「循環的な依存関係があります」と教えてくれますが、「一体どのタスクとどのタスクのせいでループしているのか」までは教えてくれません。
これを解決するのが、今回作成する「循環参照デバッグツール」です。
—
2. グラフ探索の基本：三色フラグ法（White, Gray, Black）
アルゴリズムの世界では、グラフの循環を検知するために「三色フラグ法（深さ優先探索：DFS）」というエレガントな手法が使われます。VBAでもこの概念をそのまま実装できます。
- 未訪問（White / 0）: まだ一度もチェックしていないタスク
- 訪問中（Gray / 1）: 今まさに探索している経路上のタスク ★ここをもう一度訪れたら「循環参照」！
- 探索完了（Black / 2）: このタスクからの派生先はすべてチェックし、異常がなかったタスク
このロジックを頭に置いて、実際のコードを見ていきましょう。
—
3. 実装コード：循環参照特定デバッグツール
以下のコードを、Microsoft ProjectのVBAエディタ（Alt + F11）の標準モジュールに貼り付けてください。
このスクリプトは、アクティブプロジェクトの全タスクを走査し、循環参照を見つけたら即座にイミディエイトウィンドウおよびデスクトップのログファイルへ詳細を出力します。
Option Explicit
‘ グローバル定数
Const LOG_FILE_NAME As String = “\ProjectCycleError_Log.txt”
‘ メイン実行プロシージャ
Public Sub DetectTaskCycleReference()
Dim t As Task
Dim visited() As Integer ‘ タスクIDをインデックスとした訪問状態管理 (0:未訪問, 1:訪問中, 2:完了)
Dim maxId As Long
Dim hasCycle As Boolean
Dim fso As Object, ts As Object
Dim logPath As String
On Error GoTo ErrorHandler
‘ プロジェクトにタスクが存在するか確認
If ActiveProject.Tasks.Count = 0 Then
MsgBox “タスクが存在しません。”, vbExclamation
Exit Sub
End If
‘ ログファイルのパス設定（デスクトップに出力）
Set fso = CreateObject(“Scripting.FileSystemObject”)
logPath = fso.SpecialFolders(“Desktop”) & LOG_FILE_NAME
Set ts = fso.CreateTextFile(logPath, True)
ts.WriteLine “=== Project VBA 循環参照デバッグログ ===”
ts.WriteLine “実行日時: ” & Now
ts.WriteLine “対象プロジェクト: ” & ActiveProject.Name
ts.WriteLine “—————————————-”
‘ プロジェクト内の最大タスクIDを取得し、配列のサイズを決定
‘ ※ProjectのタスクIDは削除等で1から連続しない場合があるため、UniqueIDの最大値ベースで安全に確保
maxId = 0
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
If t.UniqueID > maxId Then maxId = t.UniqueID
End If
Next t
ReDim visited(1 To maxId)
hasCycle = False
‘ 全てのタスクを起点にして深さ優先探索（DFS）を実施
Dim currentTask As Task
For Each currentTask In ActiveProject.Tasks
If Not currentTask Is Nothing Then
‘ まだ完全に探索されていないタスクを起点にする
If visited(currentTask.UniqueID) = 0 Then
If DfsCheckCycle(currentTask, visited, ts, “”) Then
hasCycle = True
End If
End If
End If
Next currentTask
ts.WriteLine “—————————————-”
If hasCycle Then
ts.WriteLine “結果: 循環参照が検知されました。詳細は上記のパスを確認してください。”
MsgBox “循環参照を検知しました！” & vbCrLf & “詳細はデスクトップのログファイルを確認してください:” & vbCrLf & logPath, vbCritical, “デバッグ完了”
Else
ts.WriteLine “結果: 循環参照は検出されませんでした。正常な依存関係です。”
MsgBox “循環参照は検出されませんでした。WBSの構造は正常です。”, vbInformation, “デバッグ完了”
End If
ts.Close
Set ts = Nothing
Set fso = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
If Not ts Is Nothing Then ts.Close
End Sub
‘ 再帰的な深さ優先探索（DFS）による循環チェック関数
Private Function DfsCheckCycle(ByVal t As Task, ByRef visited() As Integer, ByRef ts As Object, ByVal pathStr As String) As Boolean
Dim dep As Dependency
Dim predTask As Task
Dim uId As Long
uId = t.UniqueID
‘ 現在の探索パスに自分自身を追加
If pathStr = “” Then
pathStr = “[” & t.ID & “] ” & t.Name
Else
pathStr = pathStr & ” -> [” & t.ID & “] ” & t.Name
End If
‘ 既に「訪問中（1）」のタスクに再び到達した場合、これが「循環参照」！
If visited(uId) = 1 Then
ts.WriteLine “[循環検知!!] 以下の経路でループが発生しています:”
ts.WriteLine ” ” & pathStr
ts.WriteLine “”
DfsCheckCycle = True
Exit Function
End If
‘ すでに「探索完了（2）」したタスクなら、この枝にはループはないのでスルー
If visited(uId) = 2 Then
DfsCheckCycle = False
Exit Function
End If
‘ ステータスを「訪問中（1）」に変更（Gray）
visited(uId) = 1
‘ このタスクの「先行タスク（Predecessors）」をすべてたどる
For Each dep In t.Predecessors
Set predTask = dep.FromTask
If Not predTask Is Nothing Then
If DfsCheckCycle(predTask, visited, ts, pathStr) Then
DfsCheckCycle = True
Exit Function
End If
End If
Next dep
‘ すべての子（先行タスク）の探索が終わったので「探索完了（2）」に変更（Black）
visited(uId) = 2
DfsCheckCycle = False
End Function
—
4. このコードの極限ポイント（エンジニアのこだわり）
ただ動くだけのコードなら誰でも書けます。このコードが「世界最高峰の自動化エンジニア」の知見を宿している理由をいくつか解説しておきましょう。
1. `UniqueID` と `ID` の使い分け
Project VBAにおいて、画面上の行番号である `ID` は、タスクの挿入や削除によってダイナミックに変わります。そのため、メモリ上や配列のインデックスとして永続的に追跡したい場合は、絶対に `UniqueID` を使うべきです。ここを見落とすと、大規模なWBSを走査したときにインデックスがズレてバグの温床になります。
2. メモリリークとファイルI/Oの確実な解放
`Scripting.FileSystemObject` を用いたログ出力では、エラーが発生した際にもファイルストリームが開きっぱなしにならないよう、`ErrorHandler` を厳格に配置し、`Set ts = Nothing` でメモリの寿命をコントロールしています。
3. 無駄な走査のカット（Black状態の活用）
一度「異常なし」と判定されたタスク群（Black: 2）を二度と再訪問しないことで、タスク数が何万行に及ぶ巨大なエンタープライズ・プロジェクトであっても、O(V + E) のオーダー（頂点と辺の数に比例する計算量）で高速に処理が完了します。
—
5. 現場で陥りやすいエラーと対策
- 「オブジェクト変数または With ブロック変数が見つかりません」エラー
- 原因: `For Each t In ActiveProject.Tasks` を回す際、Projectのタスクリストには「空行（Null）」が含まれていることがあります。
- 対策: コード内にある `If Not t Is Nothing Then` というガード節がこれを完全に防いでいます。Project VBAではこの「Nullチェック」をサボると痛い目を見ます。
- ログファイルが開けない・保存されない
- 原因: ネットワークドライブや権限のないフォルダに直接出力しようとした場合。
- 対策: このコードでは確実に書き込み権限がある `fso.SpecialFolders(“Desktop”)`（ユーザーのデスクトップ）を吐き出し先に指定しています。
—
まとめ
今回は、Project VBAにおける鬼門「循環参照」をグラフ理論（深さ優先探索）で華麗に解決し、詳細なログを残すデバッグツールの作り方を解説しました。
複雑なWBSや、外部システムからインポートしたぐちゃぐちゃの依存関係に頭を悩ませる時間はもう終わりです。このスクリプトをあなたのVBAツールボックスに忍ばせておけば、どんなに巨大なプロジェクトが来ても「秒」で原因箇所を特定し、スマートに修正をサポートできるようになります。
ここをクリアしたあなたなら、もう「マクロの記録」の卒業生ではありません。立派なProject自動化のアーキテクトです。ぜひ現場で活用してみてくださいね！
