通过VBA插入Excel公式

作为另一个问题的延续，我试图解决通过VBA在macros中插入公式的问题。

这是我的代码：

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。

希望我能和你们一起find我的答案！ 提前致谢。

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