Public Function Volatility(Stockinfo As Object)
Dim k As Integer
Dim n As Integer
k = Stockinfo.Rows.Count
n = Stockinfo.Columns.Count
Dim v() As Double
ReDim v(1 To k)
Dim i As Integer
For i = 1 To k
v(i) = Stockinfo(i, 5)
Next i
Volatility = Application.Transpose(v)
End Function
-----------------------------------------------------------
Public Function SqureMatrix(matrix)
Dim k As Integer
Dim n As Integer
Dim m() As Double
k = matrix.Rows.Count
n = matrix.Columns.Count
ReDim m(1 To k, 1 To n)
Dim i As Integer
Dim j As Integer
For i = 1 To k
For j = 1 To n
m(i, j) = matrix(i, j) * matrix(i, j)
Next j
Next i
SqureMatrix = m
End Function
----------------------------------------------------------
請問為什麼無法在excel執行?
={squrematrix(volatility(A1:G7))
是不是volatility所傳出來的陣列在squrematrix中無法辦認
請問要如何解決?
A1:G7={Stockinfo}
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()