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

Question

的Bonjour！

我正在尝试使用If函数填充一些单元格。 在excel中，这将是这样的：

  

= if（B11 =“Apple”;“nice”; if （B11 =“Banana”;“也很好”;“为什么？”）

如果我只使用if语句的第一部分代码运行没有问题

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

然而，如果我得到一个

，我会立即添加另一个

  

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

rng.Formula = "=if(B11=""Apple"",""Nice"",if(B11=""Banana"",""Also nice"",""why?"")"

我如何包含几个

Answer 1

您错过了 parens ：

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