公式中的Excel VBA錯誤名稱

Question

我正在嘗試將VBA Excel中的一個公式傳遞給單元格，我有此代碼

   atmFecha = "=IF(L" & tmLastRow & "=0," & Chr(34) & " " & Chr(34) & ",'ws2'!$E$3)"    
    .Cells(tmLastRow, "H").Value = atmFecha

該指令在單元格中插入了正確的公式，但顯示#NAME？ 我必須先按“ F2”，然后按“ Enter”鍵才能使Excel識別公式並顯示正確的值。

我使用了公式Formula和FormulaR1C1，但結果相同。

如何自動識別公式的正確值？

Answer 1

在代碼之后，添加以下行：

Application.Calculate

聽起來您已設置為“手動計算”，因此該行將刷新所有內容。 如果要設置多個公式，請等到所有公式都插入后再執行該行。

Answer 2

我不知道它如何解決，但現在可以正常工作，我正在測試第二個文件，我將其作為代碼”

Sub btnCalculate()
    Dim atmFecha As String
    Dim tmLastRow As Integer

    With Worksheets("ws1")
        tmLastRow = 1
        atmFecha = "=IF(C1=0," & Chr(34) & " " & Chr(34) & ",'ws2'!$A$1)"
       .Cells(tmLastRow, "A").Value = atmFecha
    End With
End Sub