Ši pamoka išmokys jus, kaip pereiti per masyvus VBA.
Yra du pagrindiniai būdai, kaip peržiūrėti masyvus naudojant VBA:
- Už kiekvieną kilpą - „For For For Loop“ („Už kiekvieną kilpą“) perkelia kiekvieną masyvo elementą.
- Dėl kitos kilpos - „For Next Loop“ veiks per nurodytas masyvo pradžios ir pabaigos pozicijas (mes galime naudoti „UBound“ ir „LBound“ funkcijas, norėdami peržvelgti visą masyvą).
Už kiekvieną masyvo elementą
The Už kiekvieną kilpą leidžia jums peržiūrėti kiekvieną masyvo elementą.
| 12345678910111213141516171819 | Sub LoopForArrayStatic ()“paskelbti masyvo variantąDim strNames (nuo 1 iki 4) kaip eilutė'užpildyti masyvąstrNames (1) = "Bobas"strNames (2) = "Petras"strNames (3) = "Keitas"strNames (4) = "Semas"“paskelbti variantą masyvo elementui laikytiPritemdyti elementą kaip variantą“kilpą per visą masyvąKiekvienam „strNames“ elementui“rodyti elementą derinimo lange.Derinimas. Spausdinti elementąKilpaPabaiga Sub |
Aukščiau aprašyta procedūra atliks visus masyvo pavadinimus.
Dėl kitos kilpos
„For Next Loop“ („Kitas ciklas“) eis per kiekvieną elementą tam tikroje masyvo pradžios ir pabaigos vietoje.
Keliaukite per masyvo dalį
Galite rankiniu būdu nurodyti ciklo pradžios ir pabaigos pozicijas. Tai gali būti tinkama, jei žinote savo masyvo dydį ir (arba) norite peržvelgti tik dalį masyvo.
| 12345678910111213141516 | Sub LoopForNextStatic ()“paskelbti masyvo variantąDim strNames (nuo 1 iki 4) kaip eilutė'užpildyti masyvąstrNames (1) = "Bobas"strNames (2) = "Petras"strNames (3) = "Keitas"strNames (4) = "Semas"“paskelbti sveiką skaičiųDim i As Integer'kilpą iš 2 masyvo į 3 vietą masyveJei i = nuo 2 iki 3“rodyti vardą tiesioginiame langeDerinimas. Spausdinti strNames (i)Kitas I.Pabaiga Sub |
Aukščiau pateiktame pavyzdyje mes peržiūrėjome 2 ir 3 masyvo pozicijas. Tiesioginis langas grąžins pavadinimus taip.
Keliaukite per visą masyvą
Toliau mes naudosime „UBound“ ir „LBound“ funkcijas, norėdami peržvelgti visą masyvą. Tai labai naudinga, jei masyvo pradžios ir pabaigos pozicijos gali pasikeisti (pvz., Dinaminis masyvas):
| 123456789101112131415161718 | Sub LoopForNextDynamic ()“paskelbti masyvo variantąDim strNames () kaip eilutė“inicijuoti masyvą„ReDim strNames“ (nuo 1 iki 4)'užpildyti masyvąstrNames (1) = "Bobas"strNames (2) = "Petras"strNames (3) = "Keitas"strNames (4) = "Semas"“paskelbti sveiką skaičiųDim i As Integer'kilpa nuo apatinės masyvo ribos iki viršutinės masyvo ribos - visas masyvasI = LBound (strNames) iki UBound (strNames)“rodyti vardą tiesioginiame langeDerinimas. Spausdinti strNames (i)Kitas I.Pabaiga Sub |
