Tämä opetusohjelma osoittaa, miten luodaan ja käytetään VBA: n objektiryhmiä.
VBA: ssa taulukot ovat muuttujia, jotka tallentavat useita arvoja. Voit tallentaa VBA -objekteja matriiseihin samalla tavalla kuin muita tietoja.
Objektitaulukon ilmoittaminen
Tässä esimerkissä ilmoitamme joukon VBA -laskentataulukoita:
| 1 | Dim arWks (3) laskentataulukkona |
Staattisen objektiryhmän täyttäminen
Ilmoita objektijoukosta staattinen ja voit sitten täyttää taulukon työkirjasta valitsemillasi arkeilla.
| 12345678 | AlatestiObjArray ()'määrittele taulukko laskentataulukon taulukkonaDim arWks (1 - 3) laskentataulukkona'Lisää 3 arkkia taulukkoonset arWks (1) = Arkit (1)set arWks (2) = Arkit (2)Aseta arWks (3) = Arkit (3)End Sub |
Dynaamisen objektimatriisin täyttäminen
Voit julistaa objektijoukon dynaamiseksi ja laskea sitten työkirjan arkit ennen taulukon koon määrittämistä objektijoukolle.
| 1234567891011121314 | AlatestiObjArray ()'määrittele taulukko laskentataulukon taulukkonaDim arWks () laskentataulukkona'laske, kuinka monta laskentataulukkoa tiedostossa on, ja himmennä taulukko uudelleenDim n kokonaislukunaDim i Kuten kokonaisluku'laske taulukot ja miinus yksi asettaaksesi taulukon rajatn = Application.Sheets.Count - 1ReDim arWks (n)'Täytä laskentataulukkojoukko kaikilla työkirjan arkkeillaI = LBound (arWks) - UBound (arWks)Aseta arWks (i) = ActiveWorkbook.Sheets (i + 1)Seuraavaksi minäEnd Sub |
Yllä olevassa esimerkissä julistamme ensin laskentataulukon taulukon. Laskemme sitten työkirjan arkkien lukumäärän ja annamme arvon miinus yksi taulukon UBoundille. Tämä johtuu siitä, että taulukon LBound alkaa 0. Lopuksi kierrämme arkkien läpi ja lisäämme jokaisen taulukon taulukkoon.
Objektitaulukon käyttäminen VBA -koodissa
Kun olemme täyttäneet laskentataulukon taulukon, voimme käyttää VBA: ta kiertämään taulukon läpi.
| 123456789101112131415161718 | AlatestiObjArray ()'määrittele taulukko laskentataulukon taulukkonaDim arWks () laskentataulukkona'laske, kuinka monta laskentataulukkoa tiedostossa on, ja himmennä taulukko uudelleenDim n kokonaislukunaDim i Kuten kokonaisluku'laske taulukot ja miinus yksi asettaaksesi taulukon rajatn = Application.Sheets.Count - 1ReDim arWks (n)'Täytä laskentataulukkojoukko kaikilla työkirjan arkkeillaI = LBound (arWks) - UBound (arWks)Aseta arWks (i) = ActiveWorkbook.Sheets (i + 1)Seuraavaksi minä'tee jotain jokaiselle taulukon taulukolleI = LBound (arWks) - UBound (arWks)arWks (i). Alue ("A1: H1"). Font.Bold = TosiSeuraavaksi minäEnd Sub |
Yllä olevassa esimerkissä selaamme taulukon läpi ja lihavoimme taulukon jokaisen taulukon ensimmäisen rivin.
