Project VBAの深淵：なぜ「開始日」の変更でスケジュールが崩壊するのか？
Project VBAを扱うエンジニア諸君。プロジェクトの「開始日」を動かすという単純なタスクに対し、GUIをポチポチ操作している、あるいは安易なコードで整合性を破壊していないだろうか？
プロジェクト管理において、プロジェクト開始日の変更は「全タスクへの波及」という地雷を孕んでいる。これをシステムとして制御するには、MS Projectのオブジェクトモデル、特に`Project`オブジェクトのライフサイクルを深く理解せねばならない。
今日は、場当たり的なスクリプトではなく、堅牢なプロダクション環境で耐えうる「プロジェクト開始日更新ロジック」の極意を伝授する。
—
1. なぜ「ProjectStart」の直接変更は危険なのか？
初心者は往々にして、`ActiveProject.ProjectStart = NewDate` と記述して満足する。しかし、これは危険だ。
- 制約条件の衝突: 手動タスクや、「開始日以降」等の制約が設定されたタスクが存在する場合、開始日をずらすとスケジュールが予期せぬ挙動を起こす。
- カレンダーとの不整合: プロジェクトカレンダーの稼働時間設定と矛盾する日時を指定した場合、Projectのエンジンは妥協した解を出し、計算結果が「思っていたもの」とズレる。
我々エンジニアが目指すべきは、「計算エンジンを信頼しつつ、制御を強制する」ことだ。
—
2. 堅牢なプロジェクト開始日更新コード
以下のコードは、単に日付を代入するだけでなく、エラーハンドリングと整合性維持を考慮した設計となっている。
‘ ==============================================================================
‘ 機能: プロジェクトの開始日を安全に更新し、全タスクのスケジュールを再計算する
‘ 備考: 変更不可な制約やカレンダーの整合性を考慮した実戦的実装
‘ ==============================================================================
Public Sub UpdateProjectStartDate(ByVal targetDate As Date)
Dim proj As Project
Set proj = ActiveProject
‘ 1. プロジェクトロックの確認
‘ 外部連携や共有モード時の排他制御を考慮
On Error GoTo ErrorHandler
‘ 2. 開始日の更新
‘ ProjectStartプロパティはProjectSummaryTaskにも影響を与える基点である
If proj.ProjectStart <> targetDate Then
proj.ProjectStart = targetDate
‘ 3. 強制再計算のトリガー
‘ スケジュールエンジンに対し、全タスクの再計算を明示的に要求する
Application.CalculateAll
End If
Debug.Print “プロジェクト開始日を ” & targetDate & ” に更新しました。”
Exit Sub
ErrorHandler:
MsgBox “更新中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
3. 実務で「事故らない」ための3つの鉄則
① 「手動タスク」という爆弾
MS Projectには「手動タスク」と「自動タスク」がある。プロジェクト開始日を移動させても、手動タスクは原則として動かない。これが「予定がズレた！」という悲鳴の正体だ。
解決策は、プロジェクト開始日更新後に全タスクの`TaskMode`をチェックし、自動スケジュールへ一括変換するロジックを噛ませることだ。
② データベース連携時の「日付のシリアル値」
外部DBから日付を取得する場合、データ型には細心の注意を払え。
- DB側の型: `YYYY-MM-DD`
- VBA側の型: `Date`（内部的には浮動小数点）
この変換時に時刻成分（00:00:00）が欠落したり、予期せぬタイムゾーン補正が入ることで、数分のズレが発生する。必ず `DateValue()` 関数で時刻成分をクリアしてから代入するのが、バグを生ませないプロの流儀だ。
③ 「Application.CalculateAll」の重みを知る
大規模なプロジェクトファイル（数千行規模）では、`CalculateAll` は非常に重い処理だ。ループ内で何度も実行するのは自殺行為である。必ず更新ロジックの最後に「1回だけ」実行するように設計せよ。
—
最後に：ツールを作るのではなく「仕組み」を作れ
VBAは、単なる自動化ツールではない。プロジェクト管理という複雑な業務をコードの形に落とし込み、人為的ミスを排除するための「フレームワーク」である。
「開始日を更新する」という単純な一行に、これだけの知見を込めること。それが、君を単なるオペレーターから、真の業務自動化エンジニアへと押し上げる唯一の道だ。
コードをコピペするだけでなく、なぜその実装が必要なのか。その背景にあるProjectの設計思想を常に想像してほしい。諸君の健闘を祈る。
