【入門編】初心者向け：Task.ConstraintTypeの基本操作とEnum定数の正しい使い分け – Project VBA解析バイブル

Project VBA

2026.10.27

こんにちは！Project VBAの世界へようこそ。チーフアーキテクトの私です。

「マクロの記録」ボタンを押してコードを眺めてみたものの、なんだか呪文のようで見慣れないプロパティが並んでいて挫折しそう……そんな経験はありませんか？

今回は、Project VBAにおけるスケジュール制御の肝、`Task.ConstraintType`（制約の種類）について徹底解説します。ここをクリアすれば、あなたも単なる「操作の自動化」から「スケジュールエンジンの制御」へとステップアップできますよ。

それでは、優しく、そして本質的な世界へご案内しましょう！

—

1. なぜ `ConstraintType`（制約条件）が重要なのか？

Microsoft Projectは、タスクとタスクの「依存関係（先行・後続）」だけでなく、「いつから始めるべきか」「いつまでに終わらせるべきか」という個別の制約（Constraint）を組み合わせてスケジュールを自動計算する怪物（エンジン）です。

VBAでこれを操るということは、このスケジューリングエンジンの「思考ルール」を直接書き換えると同義です。

初心者がやりがちな失敗として、「ガントチャート上で適当に日付を動かしたら、VBAで入れたはずの日付が勝手に書き換わった！」という現象があります。これは、`ConstraintType` の特性を理解していないことが原因の大半を占めています。

—

2. 知っておくべき主要なEnum（列挙型）定数たち

VBAで制約条件を指定するとき、マジックナンバー（例: `0` や `4` などの意味不明な数字）を使うのはプログラミングのタブーです。Microsoft Projectには、直感的に意味がわかるEnum（列挙型）定数が用意されています。

まずは、実務で本当によく使う代表的な4つを覚えましょう。

※他にも「〜までに完了 (Finish No Later Than: `pjConstraintFnlt`）」などがありますが、まずはこの基本の4つをマスターすれば十分です。

—

3. 実践！VBAコードで制約条件を操る

それでは、実際にVBAコードを見てみましょう。
以下のコードは、選択している（または指定したIDの）タスクに対して、「これより前には始められない（SNET）」という制約をかけ、日付を設定する基本のサンプルです。

Sub SetTaskConstraintExample()
Dim tsk As Task

‘ エラーハンドリングの基本：選択タスクがない場合の対策
On Error Resume Next
Set tsk = ActiveSelection.Tasks(1)
On Error GoTo 0

If tsk Is Nothing Then
MsgBox “対象となるタスクを選択してください。”, vbExclamation, “警告”
Exit Sub
End If

‘ 【重要】制約日付を設定する前に、必ず「制約の種類」を先に指定します
‘ ここを怠ると、型不一致や意図しない挙動のエラーを引き起こします
tsk.ConstraintType = pjConstraintSnet ‘ 「〜より早く開始」を設定

‘ 制約日（Constraint Date）に具体的な日付を代入
‘ 例として「2023年12月1日」を指定
tsk.ConstraintDate = #12/1/2023#

MsgBox “タスク「” & tsk.Name & “」の制約条件を更新しました。”, vbInformation, “完了”
End Sub

💡 ここがエンジニアの知見：手順の順序が命！

コード内のコメントにも書きましたが、「`ConstraintType`（種類）」と「`ConstraintDate`（日付）」を設定する順番には細心の注意が必要です。
プロジェクトのスケジュールエンジンは、種類と日付の整合性を常にリアルタイムで監視しています。種類が「できる限り早く（ASAP）」のままで無理やり `ConstraintDate` を書き込もうとすると、エンジンが混乱してエラーを吐いたり、勝手に値を上書きしたりします。

必ず 「① 制約の種類を決める」 ➔ 「② 必要に応じて制約日を設定する」 の順番を守りましょう。

—

4. 陥りやすい罠：型不一致エラーの正体と回避策

初学者がProject VBAで最も遭遇しやすいのが、「実行時エラー 13: 型が一致しません。」 です。

特に `ConstraintDate` に日付を代入する際、以下のようなコードを書くとエラーの温床になります。

‘ ❌ 危険な書き方（文字列をそのまま突っ込む）
tsk.ConstraintDate = “2023/12/01”

VBAは柔軟な言語ですが、Microsoft ProjectのCOMオブジェクトの底流にあるC++のスケジュールエンジンは非常に厳格です。

🛡️ 鉄壁の回避策

日付を渡すときは、必ず日付リテラル（`#`で囲む）を使うか、`CDate` 関数を使って明示的に日付型（Date型）にキャストしてあげましょう。

‘ ⭕ 安全な書き方1：日付リテラルを使う
tsk.ConstraintDate = #12/1/2023#

‘ ⭕ 安全な書き方2：変数やCDate関数を使う
Dim targetDate As Date
targetDate = DateSerial(2023, 12, 1)
tsk.ConstraintDate = targetDate

これだけで、謎の型不一致エラーとは永久にオサラバできます。

—

まとめ

今回は、Project VBAにおけるスケジュール制御の第一歩として、`Task.ConstraintType` の基本とEnum定数の正しい使い方、そして初心者がハマるエラーの回避法を解説しました。

1. 制約条件（Constraint）はスケジューリングエンジンの思考ルールそのもの。
2. マジックナンバーではなく、`pjConstraintAsap` などのEnum定数を使う。
3. 設定の順番は「種類（Type）」を先、「日付（Date）」を後に！
4. 日付は明示的にDate型として渡して、型不一致エラーを防ぐ。

ここをクリアできれば、あなたの作るマクロは単なる「お使いツール」から、プロジェクトの複雑なスケジュールを意図通りにコントロールする「高度なエンジニアリングツール」へと生まれ変わります。

ぜひ、お手元の開発環境で試してみてくださいね。それでは、次回の極限知見でお会いしましょう！