Šī apmācība iemācīs jums, kā VBA izmantot cilpas.
Ir divi galvenie veidi, kā veikt masīvus, izmantojot VBA:
- Katrai cilpai - Par katru cilpu cilpa caur katru masīva vienumu.
- Nākamajai cilpai - Nākamajai cilpai būs cilpa caur norādītajām masīva sākuma un beigu pozīcijām (mēs varam izmantot funkcijas UBound un LBound, lai cilpu cauri visam masīvam).
Katram masīva vienumam
The Katrai cilpai ļauj jums iziet cauri katram masīva elementam.
12345678910111213141516171819 | Sub LoopForArrayStatic ()'deklarēt masīva variantuDim strNames (no 1 līdz 4) kā virkne'aizpildīt masīvustrNames (1) = "Bobs"strNames (2) = "Pēteris"strNames (3) = "Kīts"strNames (4) = "Sems"'deklarējiet variantu, lai turētu masīva elementuAptumšot preci kā variantu'cilpa cauri visam masīvamKatram vienumam strNames"parādīt elementu atkļūdošanas logā.Atkļūdošana. Drukāt vienumuCilpaBeigu apakš |
Iepriekš minētā procedūra parādīs visus masīva nosaukumus.
Nākamajai cilpai
Nākamā cilpa pārvietosies pa katru vienumu noteiktā masīva sākuma un beigu pozīcijā.
Atkārtota masīva daļa
Jūs varat manuāli norādīt cilpas sākuma un beigu pozīcijas. Tas var būt lietderīgi, ja zināt sava masīva lielumu un/vai vēlaties pārvietoties tikai caur masīva daļu.
12345678910111213141516 | Sub LoopForNextStatic ()'deklarēt masīva variantuDim strNames (no 1 līdz 4) kā virkne'aizpildīt masīvustrNames (1) = "Bobs"strNames (2) = "Pēteris"strNames (3) = "Kīts"strNames (4) = "Sems"'deklarējiet veselu skaitliDim i As Integer'cilpa no masīva 2. pozīcijas līdz 3. pozīcijaiAttiecībā uz i = 2 līdz 3"parādiet vārdu tiešajā logāAtkļūdot. Drukāt strNames (i)Tālāk iBeigu apakš |
Iepriekš minētajā piemērā mēs esam veikuši masīva 2. un 3. pozīciju. Tūlītējais logs atgriezīs nosaukumus šādi.
Apkārt visu masīvu
Tālāk mēs izmantosim funkcijas UBound un LBound, lai cilpu cauri visam masīvam. Tas ir ļoti noderīgi, ja masīva sākuma un beigu pozīcijas var mainīties (piemēram, dinamiskā masīva):
123456789101112131415161718 | Sub LoopForNextDynamic ()'deklarēt masīva variantuDim strNames () kā virkne'inicializēt masīvuReDim strNames (no 1 līdz 4)'aizpildīt masīvustrNames (1) = "Bobs"strNames (2) = "Pēteris"strNames (3) = "Kīts"strNames (4) = "Sems"'deklarējiet veselu skaitliDim i As Integer'cilpa no masīva apakšējās robežas līdz masīva augšējai robežai - viss masīvsI = LBound (strNames) līdz UBound (strNames)"parādiet vārdu tiešajā logāAtkļūdot. Drukāt strNames (i)Tālāk iBeigu apakš |