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

发布时间：2020-12-14 04:51:14 所属栏目：百科来源：网络整理

导读：我试图将以下公式放入UDF中,以便在汇总月度回报时获得累积回报. 在excel中,必须将公式识别为数组,因此当我在其中键入时,按Ctrl Shift Enter以获取公式周围的{}括号. 有谁知道如何做到这一点？我希望能够只输入returns_calc()并选择适合下面的returns变量的

我试图将以下公式放入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

示例屏幕截图

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!