通過VBA在Excel單元格中設置包含“文本常量”的單元格公式

Question

在實際的單元格公式中，我可以手動設置以下公式。 = IF（MONTH（A15）<7，“ FY”＆YEAR（A15）-1＆“ /”＆RIGHT（YEAR（A15），2），“ FY”＆YEAR（A15）＆“ /”＆RIGHT（YEAR（A15）+ 1,2））

我正在嘗試使用以下代碼通過vba設置此公式。 ActiveCell.formulaR1C1 =“ = IF（MONTH（A15）<7，” FY“＆YEAR（A15）-1＆” /“＆RIGHT（YEAR（AEAR），2），” FY“＆YEAR（A15）＆” /“＆RIGHT（年（A15）+1,2））“

VBA編譯器顯示編譯錯誤：預期：語句結束。 感嘆號似乎有問題。

現在有沒有人如何在VBA代碼設置的單元格公式中包括文本常量？

Answer 1

您需要在字符串中使用雙引號，如下所示：

ActiveCell.formulaR1C1 = "=IF(MONTH(A15)<7,""FY ""&YEAR(A15)-1&""/""&RIGHT(YEAR(A15),2),""FY ""&YEAR(A15)&""/""&RIGHT(YEAR(A15)+1,2))"

Answer 2

僅當您傳遞R1C1格式的引用時才使用FormulaR1C1，但您使用的是A1格式。 您還可以根據需要縮短該公式：

ActiveCell.Formula = "=""FY ""&YEAR(A15)-(MONTH(A15)<7)&""/""&RIGHT(YEAR(A15)+(MONTH(A15)>=7),2)"