編集:私はそれを修正しました.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 が異なります。