【Project VBA】フラグフィールドを制する者が工程管理を制す——「自動重要度フラグ」による可視化の極意
現場のプロジェクトマネージャー諸君。Projectのガントチャートを眺めていて、こう思ったことはないか？
「どのタスクがボトルネックか、一目で判断できないのか」と。
多くの現場では、担当者が手動で「重要度」をフラグ立てしているが、それは「自動化できるはずの思考」を人間に強いているに過ぎない。VBAを使ってフラグフィールドを動的に操作する。これは単なる自動化ではなく、プロジェクトの「健康状態」をリアルタイムで可視化するためのアーキテクチャだ。
本稿では、Project VBAの核心を突く実装術を伝授する。
—
1. なぜ「フラグフィールド」なのか？
MS Projectには「重要度」という汎用的なプロパティはない。ここで初心者が陥る罠は、勝手に新しいカスタムフィールド（テキスト型など）を作り、そこに「高」「低」と文字列を叩き込むことだ。
断言する。それは保守性の墓場だ。
ビューのフィルタリングやグループ化、さらにはレポート連携を考えれば、`Flag1` 〜 `Flag20` を使うのが正解だ。フラグフィールドは「Yes/No」という極めて軽量な真偽値を持つ。計算コストが低く、ビュー上での「セル背景色」や「ガントバーの書式」に直結させやすいため、UI/UXを損なわない。
—
2. 堅牢な設計：Taskオブジェクトの走査
VBAでTaskを操作する際、最も避けなければならないのは「不必要なループの回しすぎ」と「オブジェクトの開放漏れ」だ。大規模プロジェクトでは、数千行のタスクを走査することになる。以下のコードは、保守性を担保しつつ、高速に動作するよう設計したプロフェッショナルなテンプレートだ。
実装：自動重要度フラグ設定ロジック
‘ プロジェクト内のタスクを評価し、フラグを立てるメインプロシージャ
Public Sub ApplyStrategicFlagging()
Dim prj As Project
Dim tsk As Task
Set prj = ActiveProject
‘ 画面更新を停止してパフォーマンスを最大化する
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
For Each tsk In prj.Tasks
‘ 完了タスクやサマリータスクは除外するのが定石
‘ 構造を破壊しないためのガード節
If Not tsk Is Nothing Then
If Not tsk.Summary Then
‘ 重要度判定ロジック
‘ 例: 期間が10日以上 かつ 担当者が未割り当て
If tsk.Duration / 480 > 8000 And tsk.Assignments.Count = 0 Then
tsk.Flag1 = True
Else
tsk.Flag1 = False
End If
End If
End If
Next tsk
CleanExit:
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
Resume CleanExit
End Sub
—
3. アーキテクトの視点：注意すべき「3つの落とし穴」
コードを動かすだけなら誰でもできる。だが、プロは以下のポイントを必ず押さえる。
① `Duration` プロパティの単位を理解せよ
Project VBAにおいて、期間は「分」単位で保持されている。`Duration / 480` としているのは、デフォルト設定（1日8時間勤務＝480分）を考慮して「日」換算するためだ。この「単位の揺らぎ」を無視する設計は、必ず将来バグを生む。
② 計算フィールドとの競合を避けよ
もしそのフラグフィールドを他の数式（カスタムフィールドの数式など）で使用している場合、VBAで値を上書きすると数式が壊れることがある。「VBAで制御するフィールド」と「数式で制御するフィールド」は、運用ルールとして厳格に分離せよ。
③ データベース連携時のパフォーマンス
ProjectをEPM（Project Online/Server）環境で運用している場合、タスクの更新はサーバーへのリクエストを伴う。数千件のタスクをループで `tsk.Flag1 = True` とする処理は、ネットワーク負荷が激増する。
- 対策: 可能であれば、変更のあったタスクのみにフラグを立てる条件を追加し、無駄な書き込みを抑えること。
—
4. ビューへの適用：可視化の仕上げ
VBAでフラグを立てただけでは、ユーザーには何も見えない。最後に、ビュー側で「フラグがTrueなら赤く表示する」という「条件付き書式」の設定を忘れずに行うこと。
1. 「書式」タブ > 「ガントチャートの書式設定」
2. 「条件付き書式」で `Flag1 が “はい” である場合、色を赤にする` と設定。
これで、君のVBAコードは、プロジェクトの「課題発見器」へと昇華する。
—
最後に：ツールは「思考の補助」に過ぎない
自動化の目的は、楽をすることではない。「人間が本来行うべき判断（＝どのタスクが本当に重要か、どうリソースを調整すべきか）」のための時間を捻出することだ。
このフラグ付けロジックをベースに、君のプロジェクト固有の「リスク要因」をコードに落とし込んでみてほしい。堅牢な設計こそが、現場を救う唯一の道だ。健闘を祈る。
