Question

我正在尝试将一个公式从vba excel传递给我有此代码的单元格

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

此指令在单元格中插入正确的公式，但显示 #NAME？我必须按“F2”，然后按“Enter”键才能识别公式并显示正确的值。

我使用说明公式和公式R1C1，但结果是一样的。

我该如何自动识别公式的正确值？

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

公式中的Excel vba错误名称

2 个答案: