公式中的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