Declaring array and setting bounds : Array « Data Type « VBA / Excel / Access / Word






Declaring array and setting bounds

 

Sub MyTestArray()
    Dim myArray(1 To 4) As String ' Declaring array and setting bounds
    Dim Response As String
    Dim i As Integer
    Dim myFlag As Boolean

    myFlag = False
    myArray(1) = "A"
    myArray(2) = "B"
    myArray(3) = "C"
    myArray(4) = "D"

    Do Until myFlag = True
        Response = InputBox("Please enter your choice: (i.e. A,B,C or D)")
        For i = 1 To 4
            If UCase(Response) = UCase(myArray(i)) Then
                    myFlag = True: Exit For
            End If
        Next i
    Loop
End Sub

 








Related examples in the same category

1.Get the element in an array by index
2.Declaring a static array is similar to declaring a variable
3.Override the Option Base setting by specifically setting the lower bound in the array declaration
4.Declaring and Working with Fixed Arrays
5.Arrays are typically initialized inside a loop
6.Use the For Each...Next to assign value to an array
7.Use count function to count array
8.Use count function to sum array
9.Using a One-Dimensional Array
10.Define and use multidimensional array
11.Create an Array, assign value and use Loop to show its value
12.Use LBound and UBound in for statement
13.Using a Two-Dimensional Array and Reference its elements
14.Understanding Errors in Arrays
15.Function Parameter type: Array
16.Assign range to an array
17.Declaring a static array is similar to declaring a variable, with one small exception
18.To assume that 1 is the lower index for your arrays
19.Multidimensional arrays
20.Sorts the List array in ascending order
21.Sorting an Array
22.Searching through an Array
23.Fill array by using a nested For- Next loop.
24.Referencing Elements in a Multi-dimensional Array
25.Convert number to String by using Array
26.Specifying the Index Range of an Array