Obsah
Tento tutoriál ukáže, ako naplniť pole celým radom buniek.
Priraďte rozsah k poľu
Pole Variant môžeme jednoducho naplniť celým radom buniek.
Priraďte hodnotu z jedného stĺpca
Tento príklad sa bude opakovať v rozsahu („A1: A10“) a priradí hodnoty buniek k poľu:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Deklarujte pole ako variantné poleDim arRng () ako variant'Deklarujte celé číslo na uloženie počtu riadkovDim iRw ako celé číslo'Priradiť rozsah k premennej poľaarRng = rozsah ("A1: A10")'slučku v riadkoch - 1 až 10Pre iRw = 1 až UBound (arRng)'ukážte výsledok v bezprostrednom okneDebug.Print arRng (iRw, 1)Ďalej iRwKoniec pod |
The UBound sa používa na nastavenie hornej hranice poľa (napr. 10) tak, aby slučka vedela, že sa bude slučkovať 10 -krát.
TheDebug.Print funkcia vám ukáže hodnotu obsiahnutú v poli v bezprostrednom okne.
Priraďte hodnotu z viacerých stĺpcov
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Deklarujte pole ako variantné poleDim arRng () ako variant'Deklarujte celé číslo na uloženie počtu riadkovDim iRw ako celé číslo„Deklarujte celé číslo na uloženie počtu stĺpcovDim iCol ako celé číslo'Priradiť rozsah k premennej poľaarRng = rozsah ("A1: C10")'slučku v riadkoch - 1 až 10Pre iRw = 1 až UBound (arRng, 1)'now - while in row 1, loop through the 3 columnsPre iCol = 1 až UBound (arRng, 2)'ukážte výsledok v bezprostrednom okneDebug.Print arRng (iRw, iCol)Ďalej iColĎalej iRwKoniec pod |
Vo vyššie uvedenom kóde sme pole naplnili hodnotami v rozsahu („A1: C10“).
The UBound sa znova používa - ale tentoraz je to potrebné dvakrát - raz na opakovanie v riadkoch a potom na opakovanie v stĺpcoch.
The Debug.Print funkcia vám ukáže hodnotu obsiahnutú v poli v bezprostrednom okne.
