Excel 2010中VBA错误1004与式

Question

我有这样的代码：

Dim fStrecke As String 
fStrecke = "=A" & z & "*B" & z & "*C" & z 
wks.Cells(z, "L").Formula = fStrecke 

Dim fZeit As String 
fZeit = "=IF(ISBLANK(H" & z & ");((A" & z & "*B" & z & "*I" & z & ")-I" & z & ")+(A" & z & "*B" & z & "*J" & z & ");(A" & z & "*B" & z & "*H" & z & "))" 
wks.Cells(z, "K").Formula = fZeit 

第一个公式是工作，第二我得到一个运行时错误1004什么想法？我已经将用户定义为“m：ss”的K列格式化了。

Answer 1

有你两个选择：

1. 使用.FormulaLocal属性：wks.Cells(z, "K").FormulaLocal = fZeit
2. 使用逗号,作为分隔符代替分号;（即使你的本地设置需要;为非标准的分隔符）：

---

fZeit = "=IF(ISBLANK(H" & z & "),((A" & z & "*B" & z & "*I" & z & ")-I" & z & ")+(A" & z & "*B" & z & "*J" & z & "),(A" & z & "*B" & z & "*H" & z & "))" 
wks.Cells(z, "K").Formula = fZeit