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

你好！

我正在尝试用If函数填充一些单元格。 在Excel中，这看起来像这样：

= if（B11 =“Apple”;“nice”; if （B11 =“Banana”;“Also nice”，“why？”）

如果我只使用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