Kui teie massiivi suurus suureneb ja te ei soovi massiivi suurust määrata, võite kasutada ReDim märksõna. Exceli VBA seejärel muudab massiivi suurust automaatselt.
Lisage veergu A mõned numbrid.
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
1. Esiteks deklareerime massiivi nimega numbrid. Samuti deklareerige kaks Integer tüüpi muutujat. Üks nimega suurus ja teine nimega i.
Hämarad numbrid () täisarvuna, suurus täisarvuna ja i täisarvuna
Märkus: massiivil pole veel suurust. numbrid, suurus ja mina valitakse siin juhuslikult, võite kasutada mis tahes nimesid. Ärge unustage viidata neile koodidele ülejäänud koodides.
2. Järgmisena määrame massiivi suuruse ja salvestame selle muutuva suurusega. Selleks saate kasutada töölehe funktsiooni CountA. Lisage järgmine koodirida:
size = WorksheetFunction.CountA (Töölehed (1). Veerud (1))
3. Nüüd teame massiivi suurust ja saame seda uuesti mõõta. Lisage järgmine koodirida:
ReDim numbrid (suurus)
4. Järgmisena lähtestame massiivi iga elemendi. Me kasutame silmust.
I = 1 Suuruse järgi
numbrid (i) = lahtrid (i, 1). Väärtus
Edasi i
5. Me kuvame massiivi viimase elemendi, kasutades MsgBoxi.
MsgBoxi numbrid (suurus)
6. Väljuge Visual Basic Editorist ja klõpsake lehel käsunuppu.
Tulemus:
7. Nüüd, et selgelt näha, miks seda nimetatakse dünaamiliseks massiiviks, lisage veergu A number.
8. Klõpsake uuesti käsunuppu.
Järeldus: Excel VBA on selle dünaamilise massiivi suurust automaatselt muutnud.
9. ReDimi märksõna kasutamisel kustutate kõik massiivi salvestatud andmed. Näiteks lisage eelnevalt loodud koodile järgmised koodiridad:
ReDimi numbrid (3)
MsgBoxi numbrid (1)
Tulemus:
Massiiv on tühi.
10. Kui soovite olemasoleva massiivi andmed selle ümbermõtestamisel säilitada, kasutage märksõna Säilita.
ReDim Preserve'i numbrid (3)
MsgBoxi numbrid (1)
Tulemus:
