Obsah
Tento tutoriál předvede, jak naplnit pole řadou buněk.
Přiřaďte rozsah poli
Pole Variant můžeme snadno naplnit řadou buněk.
Přiřaďte hodnotu z jednoho sloupce
Tento příklad bude procházet rozsahem („A1: A10“) a přiřadí hodnoty buněk k poli:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Deklarujte pole jako variantní pole.'Dim arRng () jako varianta'Deklarujte celé číslo pro uložení počtu řádků.'Dim iRw As Integer'Přiřaďte rozsah proměnné polearRng = Rozsah ("A1: A10")'smyčka mezi řádky - 1 až 10Pro iRw = 1 až UBound (arRng)'zobrazit výsledek v bezprostředním okněDebug.Print arRng (iRw, 1)Další iRwEnd Sub |
The UBound slouží k nastavení horní hranice pole (např. 10) tak, aby smyčka věděla, že bude smyčka opakovat 10krát.
TheDebug.Print funkce vám ukáže hodnotu obsaženou v poli v bezprostředním okně.
Přiřaďte hodnotu z více sloupců
| 123456789101112131415161718 | Dílčí TestArrayValuesMultiple ()'Deklarujte pole jako variantní pole.'Dim arRng () jako varianta'Deklarováním celého čísla uložte počet řádků.'Dim iRw As Integer'Deklarujte celé číslo pro uložení počtu sloupců.'Dim iCol jako celé číslo'Přiřaďte rozsah proměnné polearRng = Rozsah ("A1: C10")'smyčka mezi řádky - 1 až 10Pro iRw = 1 až UBound (arRng, 1)'now - while in row 1, loop through the 3 columnsPro iCol = 1 až UBound (arRng, 2)'zobrazit výsledek v bezprostředním okněDebug.Print arRng (iRw, iCol)Další iColDalší iRwEnd Sub |
Ve výše uvedeném kódu jsme pole naplnili hodnotami v rozsahu („A1: C10“).
The UBound se znovu používá - ale tentokrát je to potřeba dvakrát - jednou pro smyčku mezi řádky a pak znovu pro smyčku mezi sloupci.
The Debug.Print funkce vám ukáže hodnotu obsaženou v poli v bezprostředním okně.
