Write 1st and 2nd dimension array values to cells
 

I am trying to write out the 2 dimension of my arry into a range in
excel but not having luck. I can write out the first dimension with
'Range("L5:L2000") = aSMA' which I assume is dimension '0', but how do
i get dimension '1'?

thx



Dim lngCtr As Long
Dim dblAns As Double
Dim dblSum As Double
Dim lngDivider As Long
Dim lngCount As Long
Dim lngStartPoint As Long
Dim j As Long


lngStartPoint = 1

lngDivider = SMACounter
lngCount = SMACounter




For j = 0 To (intLoopSMAcounter - SMACounter)

For lngCtr = (lngStartPoint) To (lngCount)
dblSum = dblSum + aROC(lngCtr - 1, 0)
Next

dblAns = dblSum / lngDivider
aSMA(j, 1) = dblAns
dblSum = 0


lngCount = lngCount + 1
lngStartPoint = lngStartPoint + 1
Next

intTotaltradingdays = j - 1

Range("L5:L2000") = aSMA

Write 1st and 2nd dimension array values to cells
 

You need to write to two columns:

Range("L5:M2000") = aSMA

" wrote:

I am trying to write out the 2 dimension of my arry into a range in
excel but not having luck. I can write out the first dimension with
'Range("L5:L2000") = aSMA' which I assume is dimension '0', but how do
i get dimension '1'?

thx



Dim lngCtr As Long
Dim dblAns As Double
Dim dblSum As Double
Dim lngDivider As Long
Dim lngCount As Long
Dim lngStartPoint As Long
Dim j As Long


lngStartPoint = 1

lngDivider = SMACounter
lngCount = SMACounter




For j = 0 To (intLoopSMAcounter - SMACounter)

For lngCtr = (lngStartPoint) To (lngCount)
dblSum = dblSum + aROC(lngCtr - 1, 0)
Next

dblAns = dblSum / lngDivider
aSMA(j, 1) = dblAns
dblSum = 0


lngCount = lngCount + 1
lngStartPoint = lngStartPoint + 1
Next

intTotaltradingdays = j - 1

Range("L5:L2000") = aSMA

Write 1st and 2nd dimension array values to cells
 

thanks