Excel立即窗口打印公式值

Question

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

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

目前，fstr 包含一个公式。如何打印该公式的实际值而不是公式本身？

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

Answer 1

您可以使用评估方法：

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