Project VBAを掌握する極限の知見：動的フィルター生成による遅延タスク抽出の自動化
Microsoft ProjectのVBA開発において、多くのエンジニアが直面する最大の壁、それは「UIの挙動とオブジェクトモデルの乖離」である。
特に、タスクの絞り込みを行う「フィルター（Filter）」の操作において、固定化されたUI上の操作をそのままコード化しようとすると、多言語環境（LCIDの差異）や既存のカスタムフィルターとの衝突、そして何よりもメモリリークという致命的な罠に足元をすくわれる。
今回は、実務で最も需要が高い「遅延タスク（基幹スケジュールから遅延している未完了タスク）」を対象に、VBAから動的にフィルターを生成・適用し、安全かつ高速に集計・レポート化するアーキテクチャを解説する。
—
1. MS Projectオブジェクトモデルの闇：FilterEditの挙動
タスクを動的に抽出する際、多くの初心者は `AutoFilter` メソッドや既存フィルターの強引な流用を試みる。しかし、エンタープライズ環境で耐えうる堅牢なシステムを構築する場合、`FilterEdit` メソッドを用いた一時的なカスタムフィルターの動的生成と破棄が唯一の解となる。
フィルター操作における設計上の注意点
- グローバル名前空間の汚染: プロジェクトファイル（.mpp）内でのフィルター作成は、適切にクリーンアップしないと、ファイル保存時にゴミとして残り、ユーザーのUI環境を破壊する。
- 日付のシリアライゼーション: Projectの内部日付形式は倍精度浮動小数点数（Variant/Double）であり、文字列比較を行うとローカライズ（日本語OSか英語OSか）によって破綻する。
- オブジェクトのライフサイクル: `Task` コレクションの走査において、不必要なプロパティアクセスはCOMの境界を越えるオーバーヘッドとなり、数千タスク規模で劇的な性能劣化を引き起こす。
—
2. 実装コード：動的フィルター生成と遅延タスク抽出エンジン
以下のコードは、実務の現場で即座に稼働させることができる、極限まで最適化されたVBAプロシージャである。
ハードコードを排除し、基準日（Baseline）と進捗状況を動的に評価するフィルターを生成して集計を行う。
Option Explicit
‘ ==============================================================================
‘ 処理名: GenerateDelayedTasksReport
‘ 概要 : 動的にカスタムフィルターを生成し、遅延タスクを抽出・集計する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub GenerateDelayedTasksReport()
‘ パフォーマンス向上のための画面描画停止
Application.ScreenUpdating = False
Dim targetFilterName As String
targetFilterName = “_VBA_Temp_Delayed_Filter”
On Error GoTo ErrorHandler
‘ 1. 既存の同名一時フィルターが存在する場合は安全に削除
Call RemoveExistingFilter(targetFilterName)
‘ 2. 動的フィルターの作成
‘ 条件: 完了していない (% Complete < 100) かつ 終了予定日が現在日時を過ぎている
' ※Projectのフィルタ構文では [Actual Finish] や [Baseline Finish] との比較が可能
Dim filterCreated As Boolean
filterCreated = Application.FilterEdit( _
Name:=targetFilterName, _
Task:=True, _
Create:=True, _
OverwriteExisting:=True, _
ShowInMenu:=False, _
Category:="進捗", _
Field:="終了予定", _
Test:="は以下", _
Value:=CStr(Date), _
Operation:="And", _
SecondField:="% 完了", _
SecondTest:="は指定の値未満", _
SecondValue:="100", _
ShowSummaryRows:=True)
If Not filterCreated Then
Err.Raise vbObjectError + 1000, "FilterEdit", "動血フィルターの生成に失敗しました。"
End If
' 3. フィルターの適用
' ※Highlight:=False により、一致するタスクのみを表示（抽出）する
PaneActivate 1
ViewApply Name:="ガント チャート"
FilterApply Name:=targetFilterName, Highlight:=False
' 4. 抽出されたタスクの集計・処理（メモリ効率を考慮したループ）
Dim t As Task
Dim delayedCount As Long
Dim totalVarianceDays As Double
delayedCount = 0
totalVarianceDays = 0
' フィルタリングされたビュー上のタスクを走査
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
' サマリータスク（親タスク）を除外し、実作業タスクのみを対象とする場合
If Not t.Summary And t.Active Then
delayedCount = delayedCount + 1
' 遅延日数の累積（終了日と期日の乖離などビジネスロジックをここに記述）
' 例としてVariance（差異）プロパティを活用
If t.Finish > t.BaselineFinish And t.BaselineFinish <> #1/1/1984# Then
totalVarianceDays = totalVarianceDays + (t.Finish – t.BaselineFinish)
End If
‘ デバッグ出力（実務ではここでログ出力や別シートへの転記を行う）
Debug.Print “遅延タスク検出: ID=” & t.ID & ” / 名称=” & t.Name & ” / 終了予定=” & t.Finish
End If
End If
Next t
‘ 5. クリーンアップ：フィルターの解除と一時フィルターの削除
FilterClear
Call RemoveExistingFilter(targetFilterName)
Application.ScreenUpdating = True
‘ 完了通知
MsgBox “遅延タスクの抽出が完了しました。” & vbCrLf & _
“対象タスク数: ” & delayedCount & “件”, vbInformation, “VBA処理完了”
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング：確実に環境を復旧する
Application.ScreenUpdating = True
On Error Resume Next
FilterClear
Call RemoveExistingFilter(targetFilterName)
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
‘ ==============================================================================
‘ 内部関数: 既存フィルターの安全な削除
‘ ==============================================================================
Private Sub RemoveExistingFilter(ByVal filterName As String)
Dim f As Filter
On Error Resume Next
Set f = ActiveProject.TaskFilters(filterName)
If Not f Is Nothing Then
f.Delete
End If
On Error GoTo 0
End Sub
—
3. チーフアーキテクトが教える「実務適用の極意」
上記のコードをそのままエンタープライズ環境（大規模プロジェクトファイル：数万タスク）に投入する場合、以下のチューニングを追加することで、システムの信頼性が飛躍的に向上する。
1. ガベージコレクションとCOMオブジェクトの明示的解放
VBAは自動メモリ管理を行うが、Microsoft ProjectのCOMオブジェクト階層（`ActiveProject.Tasks` など）は、参照を保持したままエラーが発生するとメモリリークを引き起こす。
ループ変数 `t` は、処理の抜け際に `Set t = Nothing` を明示的に呼ぶ必要はない（ローカル変数のスコープ外で解放されるため）が、コレクション自体をグローバル変数で保持するような設計は絶対に避けるべきである。
2. ローカライズ問題（LCID）への対策
`FilterEdit` の引数に指定する文字列（`”は以下”`, `”は指定の値未満”`, 各フィールド名）は、実行されているMicrosoft Projectの表示言語（UI言語）に完全依存する。
日本語環境で開発したマクロを英語環境（グローバル拠点）で実行した場合、フィールド名やテスト条件の文字列一致で必ずエラーが発生する。
極限の環境を志向する場合、レジストリや `Application.Language` プロパティを判定し、動的に文字列を切り替えるファクトリパターンをコード内に実装する必要がある。
‘ 多言語対応の例（概念コード）
Dim opLessThan As String
If ActiveProject.Application.Language = 1041 Then ‘ 日本語
opLessThan = “は指定の値未満”
Else ‘ 英語等の場合
opLessThan = “is less than”
End If
3. バッチ処理・外部システム連携への昇華
このVBAを単なるマクロとして終わらせず、外側のWindows Script Host (WSH) や C# (.NET) からバックグラウンド（ヘッドレスモード）で呼び出すことで、真の「システム間連携」が達成される。
`Application.Visible = False` でMS Projectを起動し、上記プロシージャを実行、結果をCSVやSQL Serverに吐き出して終了するアーキテクチャを構築すれば、プロジェクト管理の完全自動化基盤が完成する。
—
総括
Project VBAにおけるオブジェクト操作は、単なるマクロの記録の延長線上にはない。
UIの裏側で動くCOMコンポーネントのライフサイクルを理解し、状態の汚染を防ぐ「後始末の美学」を持って初めて、現場で信頼されるシステムとなる。
この知見をあなたのソリューションに組み込み、レガシーな手作業の呪縛からプロジェクトマネージャーたちを解放してほしい。
