如何使用产品公式聚合excel UDF中的返回

Question

我正在尝试将以下公式放入UDF中，以便在汇总每月回报时获得累积回报。

在excel中，必须将公式识别为数组，因此当我在其中键入时，按 Ctrl + Shift + Enter 以获取公式周围的{}括号。

有谁知道怎么做？

我希望能够输入returns_calc()并选择适合下面的return变量的范围。

{=(PRODUCT(1+returns/100)-1)*100}

Answer 1

您可以使用[ ]中的Application.Evaluate表示法计算VBA中的数组公式。您的上述公式可以在VBA 中仅在一行中调用，如下所示

Sub Sample()
    MsgBox Application.Evaluate(["=(PRODUCT(1+returns/100)-1)*100"])
End Sub

现在修改它以接受函数中的范围，你也可以这样做

Function returns_calc(rng As Range) As Variant
    On Error GoTo Whoa

    Dim frmulaStr As String

    frmulaStr = "=(PRODUCT(1+(" & rng.Address & ")/100)-1)*100"
    returns_calc = Application.Evaluate([frmulaStr])

    Exit Function
Whoa:
    returns_calc = "Please check formula string" 'or simply returns_calc = ""
End Function

示例SCREENSHOT

Answer 2

像这样的东西

Public Function Range_Product(theRange As Variant)
    Dim var As Variant
    Dim j As Long

    var = theRange.Value2
    Range_Product = 1#
    For j = LBound(var) To UBound(var)
        Range_Product = Range_Product * (1 + var(j, 1) / 100)
    Next j

    Range_Product = (Range_Product - 1) * 100
End Function