|
|
 | Redim Preserve et multidimesionelt array
Fra : Tom Rosenkrans |
Dato : 11-10-03 12:02 |
|
Hej hajer
Hvordan ReDimmer OG Preserveer (ReDim Preserve) man et flerdimensionelt
array i VBA?
eks.
Sub RedimPreserve()
Dim betingelse As Boolean
ReDim MyArray(0, 1)
Do
MyArray(i, 0) = i * 2
MyArray(i, 1) = i * 3
i = i + 1
ReDim Preserve MyArray(i, 1) ' <--- giver "subscript out of range"
fejl!
Loop Until betingelse = True
End Sub
| |
 Harald Staff (11-10-2003)
| Kommentar
Fra : Harald Staff |
Dato : 11-10-03 13:13 |
|
Hei Tom
Så vidt jeg vet kan man bare redimme den siste dimensjonen med preserve, med i som
variabel er dette ok
ReDim Preserve MyArray(12, i)
og dette ikke
ReDim Preserve MyArray(i, 12)
--
HTH. Beste hilsen Harald
Followup to newsgroup only please.
"Tom Rosenkrans" <tom@rosenkrans.dk> wrote in message
news:3f87e240$0$54779$edfadb0f@dread11.news.tele.dk...
> Hej hajer
>
> Hvordan ReDimmer OG Preserveer (ReDim Preserve) man et flerdimensionelt
> array i VBA?
>
> eks.
>
> Sub RedimPreserve()
> Dim betingelse As Boolean
> ReDim MyArray(0, 1)
> Do
> MyArray(i, 0) = i * 2
> MyArray(i, 1) = i * 3
> i = i + 1
> ReDim Preserve MyArray(i, 1) ' <--- giver "subscript out of range"
> fejl!
> Loop Until betingelse = True
> End Sub
>
>
>
>
| |
|
|