Tartalomjegyzék
Ez az oktatóanyag bemutatja, hogyan lehet tömböt feltölteni cellák sorával.
Tartomány hozzárendelése tömbhöz
Könnyen feltölthetjük az A Variant tömböt egy cellával.
Érték hozzárendelése egyetlen oszlopból
Ez a példa végigmegy a tartományon („A1: A10”), és a cellaértékeket egy tömbhöz rendeli:
12345678910111213 | Sub TestArrayValuesSingle ()'Nyilvánítsa a tömböt változatos tömbnekDim arRng () mint változat'Adja meg az egész számot a sorok tárolásáhozDim iRw mint egész'Tartomány hozzárendelése egy tömbváltozóhozarRng = Tartomány ("A1: A10")'ciklus a sorokban - 1-10For iRw = 1 to UBound (arRng)'mutassa meg az eredményt a közvetlen ablakbanHibakeresés. Nyomtatás arRng (iRw, 1)Következő iRwEnd Sub |
Az UBound arra szolgál, hogy a tömb felső korlátját (pl. 10) úgy állítsa be, hogy a hurok 10 -szer tudja a hurkot.
AzHibakeresés. Nyomtatás függvény megmutatja a tömbben található értéket a közvetlen ablakban.
Érték hozzárendelése több oszlopból
123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Nyilvánítsa a tömböt változatos tömbnekDim arRng () mint változat'Adja meg az egész számot a sorok tárolásáhozDim iRw mint egész'Adja meg az egész számot az oszlopok számának tárolásáhozDim iCol egész számként'Tartomány hozzárendelése egy tömbváltozóhozarRng = Tartomány ("A1: C10")'ciklus a sorokban - 1-10IRw = 1 UBound (arRng, 1) esetén'most - míg az 1. sorban ciklusozzon a 3 oszloponICol esetén = 1 - UBound (arRng, 2)'mutassa meg az eredményt a közvetlen ablakbanHibakeresés. Nyomtatás arRng (iRw, iCol)Következő iColKövetkező iRwEnd Sub |
A fenti kódban a tömböt a Range („A1: C10”) értékekkel töltöttük fel.
Az UBound ismét használatos - de ezúttal kétszer van rá szükség - egyszer a sorok, majd ismét az oszlopok közötti ciklushoz.
Az Hibakeresés. Nyomtatás függvény megmutatja a tömbben található értéket a közvetlen ablakban.