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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Date Functions » Dynamic Array 




Using a Dynamic Array
 
Sub DynArray()
    Dim counter As Integer
    Dim myArray() As Integer
    ReDim myArray(5)
    Dim myValues As String

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

    ReDim Preserve myArray(10)

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

    Debug.Print myValues
    For counter = 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.
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.