我试图将以下公式放入UDF中,以便在汇总月度回报时获得累积回报.
在excel中,必须将公式识别为数组,因此当我在其中键入时,按Ctrl Shift Enter以获取公式周围的{}括号.
有谁知道如何做到这一点？
我希望能够只输入returns_calc()并选择适合下面的returns变量的范围.
{=(PRODUCT(1+returns/100)-1)*100}
解决方法
您可以使用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
示例屏幕截图
