无法从vba插入公式

我想使用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")))" 

我已经使用串联，也使用stringvariables，但仍然无法做到这一点。

如果公式中有双引号，则无法在单元格中插入公式

请帮助我这些谢谢

Answer 1

您需要转义string中的引号。 要做到这一点，只需加倍：

 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"")))" 

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