如何在 VBA Sub 中应用 SumIf 公式？收到错误 1004

Question

我正在尝试创建一个在单元格中放置 SUMIF 公式的 Sub。我已将问题简化为简单的设置：

Private Sub CommandButton1_Click()
Cells(2, 3).Formula = "=SUMIF(A1:A5;D1;B1:B5)"
End Sub

我收到了1004 Error。

我可以运行相同的代码，但使用 SUM 函数：

"=SUM(B1:B5)"

这不会产生错误。因此我怀疑我的公式中的分号。

Answer 1

.Formula 接受英文公式。
英文参数分隔符为,。

如果您想使用 Excel 安装语言中的公式，请使用 .FormulaLocal。

但是，为了确保您的代码可以在任何 Excel 上运行，请将您的公式修正为符合 en-us 语言环境。