如何使用 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”应该是“for each”）。但是当我将 =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