Using a Dynamic Array : Dynamic Array « Date Functions « VBA / Excel / Access / Word

Using a Dynamic Array

Sub DynArray()
    Dim counter As Integer
    Dim myArray() As Integer
    ReDim myArray(5)
    Dim myValues As String

    For counter = 1 To 5
        myArray(counter) = counter + 1
        myValues = myValues & myArray(counter) & Chr(13)

    ReDim Preserve myArray(10)

    For counter = 6 To 10
        myArray(counter) = counter * 8
        myValues = myValues & myArray(counter) & Chr(13)
    Next counter

    Debug.Print myValues
    For counter = 1 To 10
        Debug.Print myArray(counter)
    Next counter
End Sub


Related examples in the same category

1.Dynamic Arrays
2.Declaring and Working with Dynamic Arrays
3.Use ReDim to create dynamic array
4.There's a potential problem when you try to resize the array:
5.A destroying the old values by using the Preserve keyword
6.Use the Preserve keyword to keep the values
7.Transpose() sub procedure is using a dynamic array that is re-dimensioned with two dimensions.