Question

我正在创建一个代码来计算1到40种股票的等权重投资组合的投资组合标准差。投资组合方差的矩阵公式只是w ^ T sigma w其中w =每个股票的列向量权重，sigma =方差协方差矩阵，w ^ T是列向量的转置

我创建了方差协方差矩阵，权重的行向量，我正在运行一个循环来计算投资组合方差。循环的代码如下，但我得到的错误是＆＃34;无法获取WorksheetFunction类的#mult属性＆＃34;

有人可以解释一下吗？

Sub StandardDeviation()

    Dim i As Integer, j As Integer


    Worksheets("Trial 1").Activate
    Range("B80").Select

    For i = 1 To 40



    Cells(80, i + 1) = Application.WorksheetFunction.MMult(Application.WorksheetFunction.MMult(Range(Cells(124 + i, 2).Address & ":" & Cells(124 + i, 1 + i).Address), Range(Cells(83, 2).Address & ":" & Cells(83 + i, 1 + i).Address)), Application.WorksheetFunction.Transpose(Range(Cells(124 + i, 2).Address & ":" & Cells(124 + i, 1 + i).Address)))



    Next



End Sub

使用mmult循环时，在VBA中键入不匹配错误

0 个答案: