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

时间:2016-11-18 15:56:29

标签: vba mismatch

我正在创建一个代码来计算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

0 个答案:

没有答案