vba - 製品式を使用してExcelUDFで収益を集計する方法

Question

毎月の収益を集計したときに累積収益が得られるように、以下の式をUDFに入れようとしています。

Excelでは、数式を配列として認識する必要があるため、数式を入力するときにCtrl+ Shift+Enterを押し{}て、数式を角かっこで囲みます。

誰かがこれを行う方法を知っていますか？

returns_calc()以下のreturns変数に収まる範囲を入力して選択できるようにしたいと思います。

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

Answer 1

[ ]の表記を使用してApplication.Evaluate、VBAの配列数式を計算できます。上記の数式は、以下に示すように、VBAで1行で呼び出すことができます

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