配列を返すVBA関数

Question

こんにちは皆さん、このお手伝いをさせていただきたいと思います。 返品を価格に変換する簡単な関数を書いた。それは無用ですが、私はそれを使用して私の問題を説明します。この関数は機能します。それは私が望むことをする。

Function ret2prices(ByVal r As Range) 

    Dim temp() As Variant 
    temp = r 

    Dim prices() As Variant 
    ReDim prices(1 To (UBound(temp, 1) + 1), 1) 
    prices(1, 1) = 1 

    For i = 2 To UBound(prices, 1) 
     prices(i, 1) = 1 + temp(i - 1, 1) 
     prices(i, 1) = prices(i - 1, 1) * prices(i, 1) 
    Next i 

    ret2prices = prices 

End Function 

問題は、私はExcelワークシートで使用するとき、それは常に0 が、私はそれを私はCtrl + Shiftキー+ ENTERでMMULTを使用するのと同じ方法を使用できるようにしたいと思い返すことです。なにか提案を？

ので、VBAで

Answer 1

配列は0ベースのいるお時間をどうもありがとうございました：

ReDim prices(1 To (UBound(temp, 1) + 1), 1) 

は

ReDim prices(1 To (UBound(temp, 1) + 1), 0 To 1) 

に質問返され、期待される結果のコードと等価です、結果配列の2番目の列にあります。 2番目のディメンションの下限を1に変更すると、問題が解決されます。