带等号的Range.Formula赋值触发VBA运行时错误1004求助

别纠结等号啦，这个1004错误的根源其实是公式语法格式不匹配和外部路径拼接错误，我来给你拆解一下：

1. 公式分隔符的坑：.Formula vs .FormulaLocal #

你在公式里用了分号;作为参数分隔符，但VBA的.Formula属性默认遵循美式英语语法，要求用英文逗号,分隔参数。如果你的Excel区域设置是用分号的，应该改用.FormulaLocal属性，它会适配本地语言的公式语法。

2. 外部路径拼接错误 #

看你的路径部分：'U:\folder1\folder\" & ComboBox1.Text & "[" & frmadı & "L.xlsx]NAkım'!C4
这里少了一个关键的反斜杠！如果ComboBox1.Text是子文件夹名称，正确的路径应该是folder\子文件夹\[文件名.xlsx]工作表，所以你需要在ComboBox1.Text后面加个\，否则路径会变成folder\子文件夹[文件名.xlsx]，Excel根本识别不了这个格式。

修正后的代码示例 #

根据你的需求，给两个可行的方案：

方案1：适配本地分号分隔符（用.FormulaLocal）

Range("P46").FormulaLocal = "=IF('U:\folder1\folder\" & ComboBox1.Text & "\[" & frmadı & "L.xlsx]NAkım'!C4<0;0;1)"

方案2：用美式逗号分隔符（保留.Formula）

Range("P46").Formula = "=IF('U:\folder1\folder\" & ComboBox1.Text & "\[" & frmadı & "L.xlsx]NAkım'!C4<0,0,1)"

额外检查点 #

• 确认ComboBox1.Text对应的子文件夹真实存在，路径里没有特殊字符（如果有空格，你用单引号包裹路径的做法是对的）
• 确认外部文件frmadı & "L.xlsx"存在，且工作表NAkım确实存在，单元格C4是有效单元格

之前你移除等号代码能运行，是因为此时只是把纯文本写入单元格，Excel不会去解析公式，自然不会报错；用Chr(61)和直接写=效果完全一样，所以解决不了问题。

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