I wanted to accumulate the value in my array.

ARR as Variant

I need to check that does array have value before add to my accumulator.

I tried to access using ARR[i] and ARR(i), but no of them works.

Any information is great appreciated,

Sub ABC()

Dim Arr As Variant
ReDim Arr(1 To 10)
For i = 1 To 10
Arr(i) = Int(Rnd() * 100 + 1)
Next
For j = 1 To 10
msg = msg & Arr(j) & IIf(j < 10, ", ", "")
Next
MsgBox msg
End Sub


addresses an array using an index.

--
Regards,
Tom Ogivly

"Souris" wrote in message
...[i]
I wanted to accumulate the value in my array.

ARR as Variant

I need to check that does array have value before add to my accumulator.

I tried to access using ARR and ARR(i), but no of them works.

Any information is great appreciated,

dim ARR as variant
dim k as integer
dim i as integer
ReDim ARR(1 To k)


For i = 1 To k
If ARR(i).Value Is Empty Then ARR(i).Value = 0
Next i


I wanted to fill 0 if the index of array is null or empty.
It seems that above code didi not work.
Can you please tell me where I was wrong?
Thanks millions,



"Tom Ogilvy" wrote:
[i]
Sub ABC()

Dim Arr As Variant
ReDim Arr(1 To 10)
For i = 1 To 10
Arr(i) = Int(Rnd() * 100 + 1)
Next
For j = 1 To 10
msg = msg & Arr(j) & IIf(j < 10, ", ", "")
Next
MsgBox msg
End Sub


addresses an array using an index.

--
Regards,
Tom Ogivly

"Souris" wrote in message
...
I wanted to accumulate the value in my array.

ARR as Variant

I need to check that does array have value before add to my accumulator.

I tried to access using ARR and ARR(i), but no of them works.

Any information is great appreciated,

Souris wrote:
dim ARR as variant
dim k as integer
dim i as integer
ReDim ARR(1 To k)


For i = 1 To k
If ARR(i).Value Is Empty Then ARR(i).Value = 0
Next i


I wanted to fill 0 if the index of array is null or empty.
It seems that above code didi not work.
Can you please tell me where I was wrong?
Thanks millions,


If IsEmpty(ARR(i)) Then ARR(i) = 0

Alan Beban