Šī apmācība parādīs, kā izveidot un izmantot objektu masīvus VBA.
VBA masīvi ir mainīgie, kas saglabā vairākas vērtības. Jūs varat saglabāt VBA objektus masīvos tāpat kā citus datus.
Objektu masīva deklarēšana
Šajā piemērā mēs deklarēsim VBA darblapu masīvu:
1 | Dim arWks (3) Kā darblapa |
Statiska objekta masīva aizpildīšana
Atzīstiet objektu masīvu par statisku, un pēc tam varat aizpildīt masīvu ar darbgrāmatā atlasītajām lapām.
12345678 | ApakšpārbaudeObjArray ()'definējiet masīvu kā darblapas masīvuDim arWks (1 līdz 3) kā darblapa'masīvā pievienojiet 3 lapasiestatīt arWks (1) = loksnes (1)iestatīt arWks (2) = loksnes (2)Iestatīt arWks (3) = loksnes (3)Beigu apakš |
Dinamisku objektu masīva aizpildīšana
Jūs varat pasludināt objektu masīvu par dinamisku un pēc tam saskaitīt lapas darbgrāmatā, pirms piešķirt masīva lielumu objektam.
1234567891011121314 | ApakšpārbaudeObjArray ()'definējiet masīvu kā darblapas masīvuDim arWks () kā darblapa'saskaitiet, cik darblapu ir failā, un atkārtoti aptumšojiet masīvuDim n Kā vesels skaitlisDim i As Integer'saskaitiet lapas un mīnus viens, lai iestatītu masīva robežasn = Lietojumprogramma. Loksnes. Skaits - 1ReDim arWks (n)'aizpildiet darblapu masīvu ar visām darbgrāmatas lapāmAttiecībā uz i = LBound (arWks) līdz UBound (arWks)Iestatīt arWks (i) = ActiveWorkbook. Lapas (i + 1)Tālāk iBeigu apakš |
Iepriekš minētajā piemērā mēs vispirms deklarējam darblapas masīvu. Pēc tam mēs saskaitām lapu skaitu darbgrāmatā un piešķiram šo vērtību mīnus viens masīva UBound. Tas ir saistīts ar faktu, ka masīva LBound sākas kā 0. Visbeidzot, mēs cilpojam lapas un pievienojam katru lapu masīvam.
Objektu masīva izmantošana VBA kodā
Kad esam aizpildījuši darblapas masīvu, mēs varam izmantot VBA, lai veiktu masīvu.
123456789101112131415161718 | ApakšpārbaudeObjArray ()'definējiet masīvu kā darblapas masīvuDim arWks () kā darblapa'saskaitiet, cik darblapu ir failā, un atkārtoti aptumšojiet masīvuDim n Kā vesels skaitlisDim i As Integer'saskaitiet lapas un mīnus viens, lai iestatītu masīva robežasn = Lietojumprogramma. Loksnes. Skaits - 1ReDim arWks (n)'aizpildiet darblapu masīvu ar visām darbgrāmatas lapāmAttiecībā uz i = LBound (arWks) līdz UBound (arWks)Iestatīt arWks (i) = ActiveWorkbook. Lapas (i + 1)Tālāk i'dariet kaut ko katrai masīva loksneiAttiecībā uz i = LBound (arWks) līdz UBound (arWks)arWks (i). Diapazons ("A1: H1"). Fonts. Trekns = TrueTālāk iBeigu apakš |
Iepriekš minētajā piemērā mēs veicam masīvu un izceļam katra masīva lapas pirmo rindu.