2

編集:私はそれを修正しました.ReDimとすべてが1ではなく0で始まるので、そこにあるはずのない空のセルがありました! 助けてくれてありがとう!

マトリックスを取得して反転しようとしていますが、何らかの理由で次のエラーが発生します。

WorksheetFunction クラスの MInverse プロパティを取得できません。

私の(関連する)コードは次のとおりです。

Dim covar() As Variant
ReDim covar(UBound(assetNames), UBound(assetNames))
Dim corr() As Double
ReDim corr(UBound(assetNames), UBound(assetNames))

Dim covarTmp As Double
For i = 0 To UBound(assetNames) - 1
    For j = 0 To UBound(assetNames) - 1
        covarTmp = 0
        For t = 1 To wantedT
            covarTmp = covarTmp + (Log((prices(histAmount + 1 - t, i + 1)) / (prices(histAmount - t, i + 1))) - mu(i) * dt) * (Log((prices(histAmount + 1 - t, j + 1)) / (prices(histAmount - t, j + 1))) - mu(j) * dt)
        Next t
        covar(i, j) = covarTmp * (1 / ((wantedT - 1) * dt))
        corr(i, j) = covar(i, j) / (sigma(i) * sigma(j))
    Next j
Next i


Dim covarInv() As Variant
ReDim covarInv(UBound(assetNames), UBound(assetNames))
'ReDim covar(1 To UBound(assetNames), 1 To UBound(assetNames))

covarInv = Application.WorksheetFunction.MInverse(covar)

この最後の行でエラーが発生します。

covar と covarInv を double、variant などとして暗くして、多くのことを試しました。covar と covarInv で ReDims が異なります。

4

1 に答える 1