如何使用 VBA 从 Excel 中的公式获取单元格值？

Question

我在工作表中的一系列单元格中有一个公式，其计算结果为数值。 如何从传递给函数的范围中获取 VBA 中的数值？

假设工作表中 A 列的前 10 行包含 rand()，我将其作为参数传递给我的函数...

public Function X(data as Range) as double

    for c in data.Cells
        c.Value    'This is always Empty
        c.Value2   'This is always Empty
        c.Formula  'This contains RAND()
    next

end Function

我从单元格调用该函数...

=X(a1:a10)

我如何获取单元格值，例如0.62933645？

Excel 2003、VB6

Answer 1

从 VBA (Excel 2003) 运行时，以下代码适用于我：

Public Function X(data As Range) As Double

For Each c In data.Cells
    a = c.Value     'This works
    b = c.Value2    'This works too (same value)
    f = c.Formula   'This contains =RAND()
Next

End Function

a 和 b 相同且等于我传入的内容（这是其中包含 Rand() 的单元格范围）。 我不确定这里还发生了什么。

啊哈！ 你需要设置X，不是吗？ 我不确定您到底希望这个函数做什么，但您需要将 X （函数的名称）设置为您想要返回的值。 添加这一行：

X = a

Answer 2

我无法使用您发布的布局复制问题。 我注意到您发布的代码中存在一些语法错误（即：“for”应该是“foreach”）。 但是，当我将 =RAND() 放入 A1:A10 和 =X(A1:A10) 中时，我得到了一个很好的回报：

Public Function X(data As Range) As Double
    Dim c As Excel.Range
    Dim sum As Double
    For Each c In data.Cells
        sum = sum + c.Value
    Next
    X = sum
End Function

但是，只是为了进一步扩展您遇到的其他一些问题。 您可以像这样计算结果的公式：

Public Function X(data As Range) As Double
    Dim c As Excel.Range
    Dim sum As Double
    For Each c In data.Cells
        sum = sum + Excel.Evaluate(c.Formula)
    Next
    X = sum
End Function

但一般来说您不会想要，因为这基本上是计算相同的值两次。

Answer 3

确保在请求该值之前进行计算。

为了加速宏，通常会执行如下所示的操作。

'Set Reasonable default
Application.CutCopyMode = False
Application.ScreenUpdating = False
Application.Interactive = False
Application.Calculation = xlCalculationManual

在这种状态下，您必须在值可用之前强制计算。

Public Function X(data As Range) As Double
    'You may need the following as well
    'Application.Calculate
    Dim c As Range
    For Each c In data.Cells
        c.Calculate
        c.Value    'This is now has a value
        c.Value2   'This is now has a value
        c.Formula  'This contains RAND()
    Next
End Function