vba - VBA代码中的IF AND公式

Question

最近，你们通过在数据透视表旁边插入动态公式并自动填充来帮助我解决了数据透视表的循环问题。

'formula
 frml = "=if(" & myrange.Address(0, 0) & ">0.3%," & myrange2.Address(0, 0) & ","""")"

'where i want the formula to go
pt.ColumnRange.End(xlToRight).Offset(1, 0).End(xlToLeft).Offset(1, 1).formula = frml

ActiveSheet.range("P7:P36588").FillDown

我尝试通过添加来更新此公式

"=if(and("

然后也在另一个范围内添加。问题是额外的 (永远不会出现。我也试过添加 "("因为它是自己的部分，但接下来的部分(“公式所在的位置”)停止工作，这对我来说毫无意义。

有人可以帮我将这个公式转换为 ifand 语句，并解释为什么“公式应该去哪里”部分突然停止工作吗？

编辑 :

总的来说，新添加的内容如下所示:

"if(and(" & myrange.address(0,0) & ">0.3%," & myrange3.address(0,0) & ">$100," & myrange2.address(0,0) & ","""")

通过数据透视表在相应单元格中输出此公式

=if(and(c3>.3%,d3>$100),a3,""

现在的问题是添加 and公式的一部分，这将是 d3。如果这 2 个语句有效，那么它应该带出 a3，否则它不会返回任何内容。

Answer 1

几点注意事项:

@Jeeped 已经回答了您的错误原因 - 您需要添加右括号 )给您的AND .

我喜欢用Chr(34)写下"在公式字符串中。

我喜欢避免比较单元格内的格式，只比较值。所以而不是myrange.address(0,0) & ">0.3%"我喜欢使用 myrange.address(0,0) & ">0.003" .

代码

frml = "=IF(AND(" & myrange.Address(0, 0) & ">0.003," & myrange3.Address(0, 0) & ">100)," & myrange2.Address(0, 0) & "," & Chr(34) & Chr(34) & ")"