Ha a tömb mérete növekszik, és nem szeretné javítani a tömb méretét, használhatja a ReDim kulcsszó. Excel VBA majd automatikusan megváltoztatja a tömb méretét.
Adjon hozzá néhány számot az A oszlophoz.
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először deklaráljuk a tömb nevű számokat. Deklaráljon két Integer típusú változót is. Egy elnevezett méret és egy i.
Halvány számok () egész számként, méret egészként, i egész számként
Megjegyzés: a tömbnek még nincs mérete. a számokat, a méretet és az i -t véletlenszerűen választjuk ki, bármilyen nevet használhat. Ne felejtse el hivatkozni ezekre a nevekre a kód többi részében.
2. Ezután meghatározzuk a tömb méretét, és eltároljuk a változó méretben. Ehhez használhatja a CountA munkalap függvényt. Adja hozzá a következő kód sort:
size = WorksheetFunction.CountA (Munkalapok (1). Oszlopok (1))
3. Most már tudjuk a tömb méretét, és átméretezhetjük. Adja hozzá a következő kód sort:
ReDim számok (méret)
4. Ezután inicializáljuk a tömb minden elemét. Hurkot használunk.
I = 1 méretre
számok (i) = cellák (i, 1). Érték
Következő i
5. A tömb utolsó elemét egy MsgBox használatával jelenítjük meg.
MsgBox számok (méret)
6. Lépjen ki a Visual Basic Editor programból, és kattintson a parancsikonra a lapon.
Eredmény:
7. Most, hogy világosan lássa, miért hívják ezt dinamikus tömbnek, adjon hozzá egy számot az A oszlophoz.
8. Kattintson ismét a parancsgombra.
Következtetés: Az Excel VBA automatikusan megváltoztatta ennek a dinamikus tömbnek a méretét.
9. A ReDim kulcsszó használatakor törli a tömbben jelenleg tárolt meglévő adatokat. Például adja hozzá a következő kódsorokat a korábban létrehozott kódhoz:
ReDim számok (3)
MsgBox számok (1)
Eredmény:
A tömb üres.
10. Ha meg szeretné őrizni az adatokat a meglévő tömbben, amikor átméretezi azt, használja a Megőrzés kulcsszót.
ReDim Preserve számok (3)
MsgBox számok (1)
Eredmény: