【Project VBAの深淵へ】カスタムフィールドの数式を制する者が、自動化を制する。
こんにちは。プロジェクト管理の自動化という、果てなき旅路を進む同志の皆さん。
「マクロの記録」から一歩踏み出し、自分の手でコードを書き始めた皆さんは、すでにエンジニアとしての第一歩を力強く踏み出しています。
しかし、Microsoft Project VBAの世界には、初心者にとって非常に「厄介な壁」が存在します。それが、カスタムフィールド（TaskやResource）への「数式（Formula）」の動的な書き込みです。
「マクロの記録では動いていたのに、VBAで書き換えた途端にエラーが出る……」
「ダブルクォーテーションが多すぎて、自分でも何を書いているのか分からなくなった……」
もしあなたが今、そんな悩みに直面しているなら、安心してください。それはあなたが「データの操作」から「ロジックの構築」へとステップアップしようとしている、成長の証なのです。
今日は、この「数式の壁」をスマートに、そしてエレガントに乗り越えるための知見を共有しましょう。ここをクリアすれば、Project VBAの基本はバッチリですよ。
1. なぜ「数式の書き込み」は難しいのか？
まず、根本的な原因を理解しましょう。
Project VBAにおけるカスタムフィールドの `Formula` プロパティは、単なる「文字列」ではありません。それは「Projectというエンジンに対して送る、命令書（コード）」なのです。
ここが最大の落とし穴です。
「文字列の中の文字列」という二重構造
例えば、カスタムフィールドに `[Text1] & ” (完了)”` という数式を入れたいとしましょう。
1. Projectが理解する数式（命令書）: `[Text1] & ” (完了)”`
2. VBAが扱うコード（伝書鳩）: `” [Text1] & “” (完了)”” “`
見ての通り、VBAからProjectへ命令を送る際、「文字列の中に、さらに文字列（ダブルクォーテーションを含む命令）を閉じ込める」という二重構造が発生します。
この「二重の壁」を正しく突破できないと、VBAは「どこで文字列が終わるのか分からない！」とパニックを起こし、構文エラー（Syntax Error）を吐き出してしまうのです。
2. 鉄則：ダブルクォーテーションのエスケープ処理
VBAにおいて、文字列の中に `”` （ダブルクォーテーション）を含めたい場合、`””`（2つ連続）と書くのが鉄則です。これを「エスケープ処理」と呼びます。
図解的にイメージしてみましょう。
【失敗例】直感に頼った書き方
' ❌ これはエラーになります
' 理由：VBAは [Text1] & " の部分で文字列が終わったと勘違いしてしまうため
TaskField.Formula = "[Text1] & " (完了)"" "【成功例】エンジニアの書き方
' ✅ これが正解です
' 理由："" と書くことで、Projectに対して「これは文字としての " なんだよ」と伝えています
TaskField.Formula = "[Text1] & "" (完了)"""3. 実践：カスタムフィールドを動的に設定する黄金テンプレート
それでは、実際に現場で使えるコードを見ていきましょう。
今回は、タスクの「Text1」フィールドの内容に、特定の文字列を結合して「Text2」に表示させる、というシナリオで実装します。
Sub SetupCustomFieldFormula()
' ==========================================================================
' プロジェクト: カスタムフィールド数式の動的設定
' 概要: Text1の内容に接尾辞を付けた数式をText2にセットする
' ==========================================================================
Dim pj As Project
Set pj = ActiveProject
Dim tf As TaskField
Dim targetFieldName As String
Dim suffix As String
' 設定したいフィールド名と、追加したい文字列
targetFieldName = "Text2"
suffix = " [重要]"
On Error GoTo ErrorHandler
' 1. 対象となるフィールドを特定する
' ※ TaskFieldオブジェクトを使用して、プロジェクト全体の定義にアクセスします
Set tf = pj.TaskFields(targetFieldName)
' 2. 数式の組み立て
' ここが心臓部です。
' 最終的にProjectに入れたい形: [Text1] & " [重要]"
' これをVBAの文字列として表現するために、suffixの中のダブルクォーテーションを
' VBAのルールに従ってエスケープする必要があります。
' 💡 技巧的な書き方：
' 文字列を直接書くのではなく、変数を使うことで可読性を高めます。
' 連結後の数式を組み立てるイメージです。
tf.Formula = "[Text1] & """ & suffix & """"
' ※ 解説:
' tf.Formula = "[Text1] & " <- ここまでは通常の文字列
' & """ <- 文字列としてのダブルクォーテーションを開始
' & suffix <- 変数の中身 ([重要])
' & """" <- 文字列としてのダブルクォーテーションを閉じ、VBAの文字列も閉じる
MsgBox "カスタムフィールド '" & targetFieldName & "' に数式を適用しました。", vbInformation
Exit Sub
ErrorHandler:
MsgMsgBox "エラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"エラー内容: " & Err.Description, vbCritical
End Subプロの視点：なぜ `tf.Formula = “[Text1] & “”” & suffix & “”””` なのか？
上記のコードでは、数式を組み立てる際に `suffix` という変数を使っています。
直接 `”[Text1] & “” [重要]”””` と書いても動きますが、実務では「接尾辞がユーザーの入力によって変わる」ケースが多々あります。
変数を介して数式を組み立てることで、「ロジック（数式）」と「データ（接尾辞）」を分離でき、コードのメンテナンス性が劇的に向上します。これが、単なる「マクロの記録」から「ソフトウェア開発」へと昇華させる鍵です。
4. 陥りやすい「3つの罠」を回避せよ
最後に、私がこれまで数多くのプロジェクトで見てきた、初心者が陥りやすい罠をまとめておきます。
1. フィールド名の指定ミス
`TaskFields(“Text2”)` と書くべきところを、誤って `Tasks(“Task1”).Text2` のようにタスク単位で設定しようとしていませんか？ `Formula` はプロジェクト全体の定義（フィールドそのもの）に対して設定するものです。
2. 計算負荷の無視
複雑すぎる数式（If文を多用した巨大な数式など）を大量のタスクに適用すると、Projectの再計算が走り、動作が極端に重くなります。数式は「必要最小限」に留めるのが、優れたアーキテクトの流儀です。
3. データ型の不一致
`[Duration]`（期間）は時間型であり、`[Text1]` は文字列型です。これらを結合しようとすると、Project側で計算エラーが発生します。結合する際は、型の違いを意識しましょう。
まとめ：次なるステップへ
いかがでしたでしょうか。
`Formula` プロパティの操作は、一見すると「ダブルクォーテーションの迷路」のように感じられるかもしれません。しかし、その構造を理解し、エスケープのルールをマスターすれば、あなたはProjectに対して自由自在に「知的な計算」を命じることができるようになります。
「文字列の中に、命令としての文字列を閉じ込める」
この感覚を掴めたあなたは、もう初級者ではありません。
この調子で、業務の自動化という素晴らしい世界を、さらに深く、広く探求していってください。
応援していますよ。次回の記事でお会いしましょう！
