Project VBAの深淵へ：プロジェクト開始日を操り、スケジュールを支配する
こんにちは。現場の最前線でVBAと格闘してきた皆さんに、今日は「Project VBA」という、少しだけ難解で、しかし極めて強力な武器の使い方を伝授しましょう。
Excelのマクロは使ったことがあるけれど、Projectは未知の世界……そんな方も多いはず。安心してください。Projectのオブジェクトモデルは、Excelとは比較にならないほど論理的で、かつ「生き物」のように動きます。
今回は、最も基本にして重要な「プロジェクト開始日の制御」というテーマで、VBAの真髄に触れていきましょう。
—
1. なぜ「プロジェクト開始日」の操作が重要なのか？
Projectにおける「プロジェクト情報」ダイアログ。手動で日付を変えると、それに紐づくタスクがガタガタと移動しますよね。あれを自動化できるということは、「納期変更に伴うスケジュール再編を0.1秒で終わらせる」というスーパーパワーを手に入れるのと同じです。
まずは、コードを書く前に、Project VBAの「地図」を頭に入れましょう。
- Application: プロジェクト全体を統括する神。
- ActiveProject: 今、目の前で開いているプロジェクト。
- ProjectStart: プロジェクトの「心臓」。この日付がすべてのスケジュールを決定づけます。
この3つの階層を意識するだけで、あなたのコードは劇的に安定します。
—
2. プロジェクト開始日を更新する極限のコード
さて、早速ですが、こちらがプロジェクトの開始日を安全に更新するためのコードです。
Sub UpdateProjectStartDate()
‘ プロジェクトの開始日を動的に変更するプロシージャ
‘ 適用対象: MS Project 2010以降
Dim proj As Project
Set proj = ActiveProject
‘ 日付を設定する前に、プロジェクトが読み取り専用でないか確認する「守りの技術」
If proj.ReadOnly Then
MsgBox “このプロジェクトは読み取り専用です。変更できません。”, vbCritical
Exit Sub
End If
‘ プロジェクト開始日を更新
‘ ProjectStartプロパティは「日付型」を要求します
On Error Resume Next ‘ 予期せぬ日付設定エラーを回避
proj.ProjectStart = “2024/10/01”
If Err.Number <> 0 Then
MsgBox “日付の設定に失敗しました。カレンダーの設定を確認してください。”, vbExclamation
Else
‘ 変更を反映させるための再計算
‘ これを忘れると画面上の描画が遅れることがあります
CalculateProject
MsgBox “プロジェクト開始日を更新し、全タスクをスライドしました。”
End If
On Error GoTo 0
End Sub
—
3. 初学者が必ず陥る「3つの罠」
このコードを書く際、多くの人が以下のポイントで挫折します。ベテランの視点から「なぜそうなるのか」を紐解きます。
① 「日付の書式」という落とし穴
Project VBAは、OSの地域設定に依存します。`”2024/10/01″`と書けば動きますが、海外の環境ではエラーになることもあります。より堅牢にするなら、`DateSerial(2024, 10, 1)`を使う癖をつけましょう。
② 「再計算」のタイミング
コードで値を書き換えても、Projectの描画エンジンが即座に追いつかないことがあります。`CalculateProject`（または`Application.Calculate`）を呼び出すのは、「計算の強制同期」を行うための儀式だと考えてください。
③ 「リンク済みタスク」の反乱
開始日を変えると、先行タスク・後続タスクの関係（FS関係など）により、予定外のタスクまで動き出します。VBAで制御する際は、「自分の変更が他にどう波及するか」を常にシミュレーションしておく必要があります。
—
4. チーフアーキテクトからのアドバイス
Project VBAを扱う上で最も大切なのは、「Projectはデータベースである」と認識することです。
Excelのセルを塗りつぶす感覚とは全く違います。開始日を変えるということは、プロジェクトという巨大な計算式の「変数」を一つ書き換える行為です。その結果、何千ものタスクが連鎖的に再計算されます。
もし、さらに高度な自動化を目指すなら、次は「タスクの開始日（Task.Start）」を個別に操作するのではなく、「プロジェクト全体の起点」をいかに賢く動かすか、という戦略に時間を割いてください。
—
最後に：ここをクリアすれば、あなたはもう初心者ではない
「開始日をVBAで制御する」。たったこれだけのことですが、これをマスターすれば、プロジェクト管理のボトルネックである「手動更新のミス」を根絶できます。
コードをコピペして終わりにするのではなく、ぜひ`ActiveProject`のプロパティを覗いてみてください。「他にもこんなプロパティがあるのか！」と気づいた時、あなたの自動化スキルは次のステージへと昇華します。
分からないことがあれば、またいつでも聞いてくださいね。現場の戦友として、いつでもバックアップしますよ！
