excel - 无法从 vba 插入公式

Question

我想使用 vba 插入这些公式，但它给我一个错误应用程序定义的错误

activesheet.range("A4").formula = "=IF(AND($B4>TODAY() -7,$B4 < TODAY()),"ONE WEEK OLD",IF(AND($B4 < TODAY() -7,$B4 > TODAY() - 30),"ONE WEEK TO ONE MONTH OLD",IF(AND($B4 < TODAY()-30,$B4 > TODAY()-90),"1 MONTH TO 90 DAYS OLD","OLDER THAN 90 DAYS")))"

我已经使用了连接并且还使用了字符串变量，但我仍然无法做到这一点。

如果公式中有来自 vba 的双引号，我无法在单元格中插入公式

请帮我解决这些谢谢

Answer 1

您需要转义字符串中的引号。为此，只需将它们加倍:

activesheet.range("A4").formula = "=IF(AND($B4>TODAY() -7,$B4 < TODAY()),""ONE WEEK OLD"",IF(AND($B4 < TODAY() -7,$B4 > TODAY() - 30),""ONE WEEK TO ONE MONTH OLD"",IF(AND($B4 < TODAY()-30,$B4 > TODAY()-90),""1 MONTH TO 90 DAYS OLD"",""OLDER THAN 90 DAYS"")))"

如果这没有帮助，您将需要发布更多代码。