我正在尝试创建一个宏,将组合的估计std dev返回给单元格.然而,作为股票的一部分,他们的covar以及他们的权重将基本上不断变化,并且我想在VBA中使用不同的投资组合(我的最终目标是使我的报告尽可能简单).
我似乎无法理解ctrl+ shift+ enter或sqr部分.
你能看一下我的代码帮帮我吗？
Sub PorteføljeRisiko()
Dim RapportBok As Workbook
Dim RapportArk As Worksheet
Set RapportBok = Workbooks("Rapport kunder")
Set RapportArk = RapportBok.Sheets(1)
Dim Region1 As Long
Dim RegionA As Long
Dim Matrise As Range
(由于股票的数量不同,我在这里找出实际包含一个值的行数(即每股的权重%))
Region1 = Application.WorksheetFunction.CountIf(RapportArk.Range("AC7:AC18"), "<>" & "")
RegionA = Region1 - 1
(获得股票之间的covar矩阵,因为股票的变化与购买和出售股票一起变化.矩阵从单元格开始(3,55)
SisteKolonne = RapportArk.Cells(RegionA + 3, RegionA + 55)
Set Matrise = RapportArk.Range(Cells(3, 55), Cells(3 + RegionA, 55 + RegionA))
Set Region = RapportArk.Range("AC7:AC" & Region1 + …