excel - 停止 VBA Evaluate 调用目标函数两次

Question

我无法让 VBA 的 Evaluate() 函数仅执行一次；它似乎总是运行两次。例如，考虑下面这个简单的例子。如果我们运行 RunEval() 子例程，它将调用 EvalTest() 函数两次。这可以通过立即窗口中打印的两个不同的随机数看出。如果我们使用 Evaluate 而不是函数调用另一个子例程，则行为将是相同的。有人可以解释一下如何让 Evaluate 执行目标函数一次而不是两次吗？谢谢。

Sub RunEval()
    Evaluate "EvalTest()"
End Sub

Public Function EvalTest()
    Debug.Print Rnd()
End Function

Answer 1

这个错误似乎只发生在 UDF 中，而不是内置函数中。您可以通过添加表达式来绕过它:

Sub RunEval()
    ActiveSheet.Evaluate "0+EvalTest()"
End Sub

但是 Evaluate 还存在许多其他限制，请参见此处 http://www.decisionmodels.com/calcsecretsh.htm