Excel 立即窗口打印公式值

Question

今天是我编写 Excel 宏的第一天，我接到了一项任务，即修改别人的代码以添加新功能。我了解到 Excel 有一个即时窗口，我发现它非常有用。

我确实有一个问题在最后一小时的搜索中找不到答案。如果您查看下图，您会注意到fstr 是一个字符串变量。

目前，fstr 拥有一个公式。如何打印出这个公式的实际值而不是公式本身？

我尝试过的一件事是fstr.xlPastValues，但它不起作用。我是通过在手动粘贴公式值时录制宏来获得这个想法的。

Answer 1

您可以使用 Evaluate 方法：

Sub Tester()
Dim sFormula As String
    sFormula = "=A1+A2"
    'evaluate in the context of the current worksheet
    '  adjust to suit...
    Debug.Print ActiveSheet.Evaluate(sFormula)
End Sub