Visual Basic makró példák tömbök használatára

Tömb kitöltése és munkalapra másolása

1. Nyisson meg egy új munkafüzetet, és szúrjon be egy Visual Basic modullapot.

2. Írja be a következő kódot a modullapra.

   Sub Sheet_Fill_Array()
      Dim myarray As Variant
      myarray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
      Range("a1:a10").Value = Application.Transpose(myarray)
   End Sub
   

3. Válassza a Munka1 lehetőséget.

4. Az Eszközök menüben mutasson a Makró elemre, majd kattintson a Makrók elemre.

5. A Makró párbeszédpanelen kattintson a Sheet_Fill_Array, majd a Futtatás gombra.

Értékek felvétele munkalapról és a tömb kitöltése

1. Írja be a Munkalap1 értékeit az A1:A10 cellába.

2. Egy Visual Basic-modullapon írja be a következő kódot:

   Sub from_sheet_make_array()
      Dim thisarray As Variant
      thisarray = Range("a1:a10").Value
   
      counter = 1                'looping structure to look at array
      While counter <= UBound(thisarray)
         MsgBox thisarray(counter, 1)
         counter = counter + 1
      Wend
   End Sub
   

3. Válassza a Munka1 lehetőséget.

4. Az Eszközök menüben mutasson a Makró elemre, majd kattintson a Makrók elemre.

5. A Makró párbeszédpanelen kattintson a from_sheet_make_array, majd a Futtatás gombra.

Tömb átadása és fogadása

1. Egy modullapon írja be a következő kódot:

   Sub pass_array()
      Dim thisarray As Variant
      thisarray = Selection.Value
      receive_array (thisarray)
   End Sub
   
   Sub receive_array(thisarray)
      counter = 1
      While counter <= UBound(thisarray)
         MsgBox thisarray(counter, 1)
         counter = counter + 1
      Wend
   End Sub
   

2. Válassza a Munka1 lehetőséget, és jelölje ki az A1:A10 tartományt.

3. Az Eszközök menüben mutasson a Makró elemre, majd kattintson a Makrók elemre.

4. A Makró párbeszédpanelen kattintson a pass_array, majd a Futtatás gombra.

Két tömb összehasonlítása

1. Hozzon létre két elnevezett tartományt a Munka1 lapon. Nevezze el az egyik tartományt1 és a másik tartományt2.
   
   Jelölje ki például az A1:A10 cellatartományt, és adja neki a tartomány1 nevet; jelölje ki a B1:B10 cellatartományt, és adja neki a tartomány2 nevet.

2. Írja be a következő kódot a modullapra.

   Sub compare_two_array()
      Dim thisarray As Variant
      Dim thatarray As Variant
   
      thisarray = Range("range1").Value
      thatarray = Range("range2").Value
      counter = 1
      While counter <= UBound(thisarray)
         x = thisarray(counter, 1)
         y = thatarray(counter, 1)
         If x = y Then
            MsgBox "yes"
         Else MsgBox "no"
         End If
         counter = counter + 1
      Wend
   End Sub
   

3. Válassza a Munka2 lehetőséget.

4. Az Eszközök menüben mutasson a Makró pontra, majd kattintson a Makró parancsra.

5. A Makró párbeszédpanelen kattintson a compare_two_array, majd a Futtatás gombra.
   
   Minden összehasonlításhoz egy üzenetmező jelenik meg.

Dinamikus tömb kitöltése

1. Egy modullapon írja be a következő kódot:

   Sub fill_array()
   
      Dim thisarray As Variant
      number_of_elements = 3     'number of elements in the array
   
      'must redim below to set size
      ReDim thisarray(1 To number_of_elements) As Integer
      'resizes this size of the array
      counter = 1
      fillmeup = 7
      For counter = 1 To number_of_elements
         thisarray(counter) = fillmeup
      Next counter
   
      counter = 1         'this loop shows what was filled in
      While counter <= UBound(thisarray)
         MsgBox thisarray(counter)
         counter = counter + 1
      Wend
   
   End Sub
   

2. Az Eszközök menüben mutasson a Makró elemre, majd kattintson a Makrók elemre.

3. A Makró párbeszédpanelen kattintson a fill_array, majd a Futtatás gombra.

MEGJEGYZÉS: A "number_of_elements" változó módosítása határozza meg a tömb méretét.