Ez az oktatóanyag bemutatja, hogyan lehet objektumtömböket létrehozni és használni a VBA -ban.
A VBA -ban a tömbök több értéket tároló változók. A VBA objektumokat tömbökben ugyanúgy tárolhatja, mint bármely más adatot.
Az objektum tömb deklarálása
Ebben a példában a VBA munkalapok tömbjét deklaráljuk:
| 1 | Dim arWks (3) Munkalapként |
Statikus objektum tömb feltöltése
Nyilvánítsa az objektum tömböt statikusnak, majd feltöltheti a tömböt a munkafüzetből kiválasztott lapokkal.
| 12345678 | Sub TestObjArray ()'definiálja a tömböt munkalap tömbkéntArWks (1–3) dimenziója munkalapként'adjunk hozzá 3 lapot a tömbhözset arWks (1) = Lapok (1)set arWks (2) = Lapok (2)ArWks beállítása (3) = Lapok (3)End Sub |
Dinamikus objektum tömb feltöltése
Nyilváníthatja az objektum tömböt dinamikusnak, majd megszámolhatja a munkafüzet lapjait, mielőtt hozzárendeli a tömb méretét az objektum tömbhöz.
| 1234567891011121314 | Sub TestObjArray ()'definiálja a tömböt munkalap tömbkéntDim arWks () mint munkalap'számolja meg, hány munkalap van a fájlban, és halványítsa újra a tömbötDim n Mint egészDim i As Integer'számolja meg a lapokat és mínusz eggyel a tömb határainak beállításáhozn = Alkalmazás. Táblázatok. Szám - 1ReDim ArWks (n)'töltse ki a munkalap tömbjét a munkafüzet összes lapjávalI = LBound (arWks) - UBound (arWks) eseténArWks (i) beállítása = ActiveWorkbook. Táblázatok (i + 1)Következő iEnd Sub |
A fenti példában először deklaráljuk a munkalap tömböt. Ezután megszámoljuk a munkafüzet lapjainak számát, és ezt az értéket mínusz eggyel rendeljük a tömb UBound -jához. Ez annak köszönhető, hogy a tömb LBound értéke 0 -val kezdődik. Végül végiglapozzuk a lapokat, és minden lapot hozzáadunk a tömbhöz.
Az objektum tömb használata a VBA kódban
Miután feltöltöttük a Munkalap tömböt, használhatjuk a VBA -t a tömb ciklusához.
| 123456789101112131415161718 | Sub TestObjArray ()'határozza meg a tömböt munkalap tömbkéntDim arWks () mint munkalap'számolja meg, hány munkalap van a fájlban, és halványítsa újra a tömbötDim n Mint egészDim i As Integer'számolja meg a lapokat és mínusz eggyel a tömb határainak beállításáhozn = Alkalmazás. Táblázatok. Szám - 1ReDim arWks (n)'töltse ki a munkalap tömbjét a munkafüzet összes lapjávalI = LBound (arWks) - UBound (arWks) eseténArWks (i) beállítása = ActiveWorkbook. Táblázatok (i + 1)Következő i'tegyen valamit a tömb minden lapjávalI = LBound (arWks) - UBound (arWks) eseténarWks (i). Tartomány ("A1: H1"). Betűtípus. Félkövér = IgazKövetkező iEnd Sub |
A fenti példában végigmegyünk a tömbön, és a tömb minden lapjának első sorát félkövérrel írjuk.
