如何使用产品公式在Excel UDF中汇总回报

我试图把下面的公式放到一个UDF中，这样我可以累计每月收益。

在Excel中，公式必须被识别为一个数组，所以当我input时，按下Ctrl + Shift + Enter可以得到公式周围的{}括号。

有谁知道如何做到这一点？

我想只能inputreturns_calc()并select适合下面的返回variables的范围。

 {=(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 

示例屏幕

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