我正在创建一个代码来计算1到40种股票的等权重投资组合的投资组合标准差。投资组合方差的矩阵公式只是w ^ T sigma w其中w =每个股票的列向量权重,sigma =方差协方差矩阵,w ^ T是列向量的转置
我创建了方差协方差矩阵,权重的行向量,我正在运行一个循环来计算投资组合方差。循环的代码如下,但我得到的错误是"无法获取WorksheetFunction类的#mult属性"
有人可以解释一下吗?
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