将范围公式更改为包含多个if语句VBA

你好

我试图用If函数填充一些单元格。 在excel中，这将如下所示：

=如果（B11=“苹果”；“不错”；如果（B11=“香蕉”；“也不错”；“为什么？”）

如果我只使用If语句的第一部分，那么代码运行就不会有问题

rng.formula = "=if(B11=""Apple"", ""Nice"", ""why?"")"

但是，如果我得到一个

运行时错误“1004”应用程序定义或对象定义错误

---

我怎样才能包括几个

您缺少一个参数：

Sub dural()
    Set Rng = ActiveCell
    Rng.Formula = "=if(B11=""Apple"",""Nice"",if(B11=""Banana"",""Also nice"",""why?""))"
End Sub

---

您缺少一个参数：

Sub dural()
    Set Rng = ActiveCell
    Rng.Formula = "=if(B11=""Apple"",""Nice"",if(B11=""Banana"",""Also nice"",""why?""))"
End Sub

---

您缺少一个右括号：

rng.Formula=“=if（B11=”“Apple”，“Nice”，“if（B11=”“Banana”，“还不错”，“为什么？”）

当我测试你的代码时，一开始我也遇到了这个错误。下一步和下一步都没问题。我也不知道。只需重新启动你的excel应用程序。提示-当试图通过VBA将公式放入单元格时，将精确的公式字符串直接复制到excel中-如果手动输入时出现错误，它将无法正常工作n VBA。您缺少一个右括号：

rng.Formula=“=if（B11=”“Apple”、“Nice”、“if（B11=”“Banana”、“还不错”、“为什么？”））

当我测试你的代码时，一开始我也遇到了这个错误。下一步和下一步都没问题。我也不知道。只需重新启动你的excel应用程序。提示-当试图通过VBA将公式放入单元格时，将精确的公式字符串直接复制到excel中-如果手动输入时出现错误，它将无法正常工作n VBA。