通过VBA向自定义字段插入公式时遇错误，求技术支援

核心错误分析 #

你的代码报错主要源于两个语法问题：

• Project公式要求使用逗号作为函数参数分隔符，而非代码中的分号；
• VBA字符串中的双引号未正确转义，导致公式解析失败。

修正后的代码 #

CustomFieldSetFormula FieldID:=pjCustomTaskText1, Formula:="format(IIf([Custo]=0, [% trabalho concluído], [COTA]/[Custo]*100), ""0.0"") & ""%"""
CustomFieldPropertiesEx FieldID:=pjCustomTaskText1, Attribute:=pjFieldAttributeFormula, SummaryCalc:=pjCalcFormula, GraphicalIndicators:=False, AutomaticallyRolldownToAssn:=False

关键修改说明 #

• 替换参数分隔符：将公式内的;全部改为,，这是Project公式语法的强制要求，VBA传递公式字符串时必须遵循此规则。
• 转义双引号：在VBA字符串中，若要表示实际的双引号，需连续写两个双引号（""）。因此将原公式中的#0.0改为""0.0""，& %改为& ""%""，确保公式能被Project正确解析。
• 字段名称校验：确认[Custo]、[COTA]和[% trabalho concluído]是Project中已存在的有效任务字段，名称需完全匹配（包括空格和特殊字符）。

额外测试建议 #

你可以先手动在Project的自定义字段设置界面输入该公式，确认能正常运行后，再将其转换为VBA字符串格式（转义双引号），这种方式能快速排查公式本身的逻辑问题。

内容的提问来源于stack exchange，提问作者Walberth Pacheco