通過 VBA 插入 Excel 公式

Question

作為另一個問題的延續，我正在嘗試解決通過 VBA 在宏上插入公式的問題。

這是我的代碼：

Range("F1").Select
ActiveCell.Formula = "=IF(C1=""LPPD"";""MIPRU"";IF(C1=""LPGR"";""DCT"";IF(OR(C1=""LPFL"";C1=""LPCR"");""LADOX"";IF(OR(C1=""LPPI"";C1=""LPSJ"";C1=""LPHR"");""NOTMA"";""ERRO""))))"

出於某種原因，代碼沒有顯示任何錯誤，當我嘗試運行它時，我得到：

運行時錯誤（“應用程序定義或對象定義錯誤”）

值得一提的是，我使用的是 Excel 2003。

希望我能和你們一起找到我的答案！ 提前致謝。

Answer 1

VBA 以 US-EN 為中心，因此使用.Formula公式必須使用,而不是; ：

Range("F1").Formula = "=IF(C1=""LPPD"",""MIPRU"",IF(C1=""LPGR"",""DCT"",IF(OR(C1=""LPFL"",C1=""LPCR""),""LADOX"",IF(OR(C1=""LPPI"",C1=""LPSJ"",C1=""LPHR""),""NOTMA"",""ERRO""))))"

或者你可以使用.FormulaLocal

Range("F1").FormulaLocal = "=IF(C1=""LPPD"";""MIPRU"";IF(C1=""LPGR"";""DCT"";IF(OR(C1=""LPFL"";C1=""LPCR"");""LADOX"";IF(OR(C1=""LPPI"";C1=""LPSJ"";C1=""LPHR"");""NOTMA"";""ERRO""))))"