Project VBAの深淵：フラグフィールドによるタスク統制とメモリ管理の極意
多くのエンジニアがMicrosoft ProjectのVBAを「単なる自動記録の延長」と勘違いしている。だが、Projectのオブジェクトモデルは、Excelとは比較にならないほど複雑かつ繊細なメモリ管理を要求する。
今日は、ただフラグを立てるだけの退屈なスクリプトの話はしない。「大規模プロジェクトにおけるタスク統制の自動化」と、「レガシー環境におけるメモリ最適化」という、実戦で生き残るための知見を共有しよう。
—
1. なぜ「フラグフィールド」なのか
Projectにおける「Flag1～20」フィールドは、単なるチェックボックスではない。これは、カスタムビューやフィルタリング、そしてガントチャートの条件付き書式を直結させる「制御のインターフェース」である。
重要なのは、計算式（Formula）をGUIで設定するのではなく、VBAで動的にロジックを注入することだ。これにより、計算コストを動的に制御し、何千行ものタスクに対して、必要な瞬間だけCPUリソースを集中させることが可能になる。
—
2. 実装：最適化されたタスクフラグ付けエンジン
以下のコードは、単にフラグを立てるだけではない。オブジェクトの参照を明示的に解放し、Projectの計算エンジンへの負荷を最小限に抑えるための設計だ。
Option Explicit
‘ メモリリークを防止するための厳格なオブジェクト参照管理
Public Sub ApplyTaskPriorityFlags()
Dim proj As Project
Dim tsk As Task
Set proj = ActiveProject
‘ プロジェクトの再計算を一時的に停止する (パフォーマンス最適化の鉄則)
Application.Calculation = pjManual
On Error GoTo Cleanup
For Each tsk In proj.Tasks
If Not tsk Is Nothing Then
‘ 期間が長大(例: 20日以上) または 担当者が未割り当ての場合にフラグを立てる
‘ 0はFalse, 1はTrueを示す
If tsk.Duration / 480 > 20 Or tsk.Resources.Count = 0 Then
tsk.Flag1 = True
Else
tsk.Flag1 = False
End If
End If
Next tsk
Cleanup:
‘ 常に明示的な解放を行う。VBAのガベージコレクションを信用するな
Set tsk = Nothing
Set proj = Nothing
‘ 再計算を実行し、ビューを同期させる
Application.Calculation = pjAutomatic
Application.CalculateAll
If Err.Number <> 0 Then
Debug.Print “Error ” & Err.Number & “: ” & Err.Description
End If
End Sub
このコードの「極限」のポイント
- Application.Calculationの制御: 何千ものタスクをループする際、自動再計算がオンだと1行ごとの変更が全タスクの依存関係を再評価させる。これは致命的なパフォーマンス低下を招く。必ず手動モードに切り替えてから処理を行え。
- Nothing判定: `For Each tsk In proj.Tasks` は、削除されたタスクのインデックスが「Nothing」を返すことがある。このチェックを怠ることは、レガシー環境におけるクラッシュの最大の要因だ。
—
3. Windows APIによる「外部連携」のヒント
もし、このフラグ状態を外部のダッシュボードやレガシーなDBと同期させる必要があるなら、VBA単体で完結させようとするな。
`GetForegroundWindow` や `FindWindow` を用いてProjectのウィンドウハンドルを特定し、そこからプロセス間通信を行うか、あるいは `CreateObject(“ADODB.Connection”)` を用いて、フラグ情報を非同期で別DBへ書き出すアーキテクチャが望ましい。
特に、大規模プロジェクトでは `DoEvents` をループ内に適切に配置し、Windowsメッセージキューの溢れを防ぐこと。さもなくば、OSから「応答なし」という冷酷な判定を下されることになる。
—
4. シニアエンジニアへ送る忠告
Project VBAにおいて最も重要なのは、「いつ計算させるか」だ。
自動化のロジックを `Project_Change` イベントにそのまま書くのは素人のやることだ。イベント駆動で重い処理を走らせれば、ユーザーの操作性は著しく低下する。
- 推奨策: フラグ付けは「ボタン押下による明示的なバッチ処理」にするか、あるいは「ファイル保存時のフック」に留めること。
- 保守性: フラグフィールドが何を意味するかの定義を、コード内にコメントとして埋め込むのはやめろ。プロジェクトのプロパティ（`proj.ProjectSummaryInfo`）や、外部の定数管理シートに定義し、ロジックをデータ駆動（Data-Driven）に保つことが、10年後もメンテナンス可能なシステムを作る唯一の道だ。
—
結びに代えて
VBAはレガシーではない。使い手次第で、それは巨大なプロジェクトを制御するための「精密な外科手術用メス」にもなれば、「自爆スイッチ」にもなる。
オブジェクトの寿命を把握し、リソースの解放を徹底し、計算量を制御せよ。それが、システムを支配するということだ。次の現場でも、その哲学を忘れないでほしい。
