VBA: ssa olemme rakentaneet kokoelmia tietotyypeistä, funktiomuuttujista ja muista tärkeistä lauseista, mutta vastaavasti meillä on VBA-taulukko, jossa käyttäjä voi muokata ja sijoittaa omia muuttujakokoelmiaan ja käyttäjän määrittelemiä toimintoja taulukkoon. taulukon avainsanat sen suunnittelua varten.
Excel VBA -taulukko
VBA ArrayList on eräänlainen tietorakenne, jota käytämme VBA: ssa tietojen tallentamiseen. ArrayList in Excel VBA on luokka, jota käytetään luomaan joukko arvoja. Tämä, toisin kuin perinteiset taulukot, joissa näillä matriiseilla on kiinteä pituus, mutta Taulukko-luettelossa ei ole kiinteää pituutta.
VAB ArrayList ei ole osa VBA-luetteloa; pikemminkin se on ulkoinen kirjasto tai esine, johon meidän on asetettava viite ennen kuin aloitamme sen käytön.
VBA-taulukot ovat olennainen osa mitä tahansa koodauskieliä. Käyttämällä taulukoita excelissä voimme tallentaa tietoja yhdellä muuttujan nimellä ilmoittamalla "alaraja ja yläraja".
Tavallisilla matriiseilla meidän on päätettävä matriisin alaraja ja yläraja. Meidän on päätettävä hyvissä ajoin muuttujan ilmoittamisen aikana staattisten matriisien tapauksessa, ja dynaamisten matriisien tapauksessa meidän on päätettävä matriisin pituus taulukon ilmoittamisen jälkeen käyttämällä ReDim-lausetta VBA.
Meillä on kuitenkin vielä yksi vaihtoehto, johon voimme tallentaa N-arvojen määrän ilmoittamatta alarajaa ja ylärajaa. Tässä artikkelissa näytämme sinulle tästä vaihtoehdosta, ts. "VBA ArrayList".
Aseta viite VBA ArrayList -objektiin noudattamalla seuraavia ohjeita.
Vaihe 1: Valitse Työkalut> Viitteet.
Vaihe 2: Objektikirjaston viiteikkuna ilmestyy edessäsi. Valitse vaihtoehto “ mscorlib.dll. ”
Vaihe 3: Napsauta myös OK. Nyt voimme käyttää VBA-taulukkoa.
Esimerkkejä VBA ArrayLististä Excelissä
Alla on esimerkkejä Excel VBA ArrayLististä.
Esimerkki # 1 - Luo VBA ArrayList -esiintymä
Koska Excel VBA ArrayList on ulkoinen objekti, meidän on luotava ilmentymä, jotta voimme alkaa käyttää tätä. Voit luoda ilmentymän seuraavasti.
Vaihe 1: Ilmoita muuttuja ArrayListiksi.
Koodi:
Sub ArrayList_Example1 () Dim ArrayValues kuten ArrayList End Sub
Vaihe 2: Koska taulukko on objekti, meidän on luotava uusi ilmentymä.
Koodi:
Sub ArrayList_Example1 () Dim ArrayValues as ArrayList Set ArrayValues = New ArrayList End Sub
Vaihe 3: Nyt voimme jatkaa arvojen tallentamista taulukon muuttujaan käyttämällä Lisää-menetelmää. Olen lisännyt alla olevaan kuvaan kolme arvoa.
Koodi:
Sub ArrayList_Example1 () Dim ArrayValues as ArrayList Set ArrayValues = New ArrayList ArrayValues.Add "Hello" First Value ArrayValues.Add "Good" 'Second Value ArrayValues.Add "Morning"' Three Value End Sub
Nyt olemme määrittäneet kolme arvoa, kuinka tunnistamme ensimmäisen ja kuinka voimme näyttää arvot tai käyttää niitä tarpeisiimme.
Jos muistat perinteisen taulukon tyypin, viittaamme ensimmäiseen taulukon arvoon, kuten tämä "ArrayName (0)"
Vastaavasti voimme käyttää samaa tekniikkaa myös tässä.
ArrayValue (0) = “Hei”
ArrayValue (1) = “Hyvä”
ArrayValue (2) = "Aamu"
Anna näyttää tämän viestikentässä.
Koodi:
Sub ArrayList_Example1 () Dim ArrayValues ArrayList Set ArrayValues = New ArrayList ArrayValues.Add "Hello" First Value ArrayValues.Add "Good" Second Value ArrayValues.Add "Morning" 'Three Value MsgBox ArrayValues (0) & vbNewLine 1) & vbNewLine & ArrayValues (2) Loppuosa
Suorita nyt koodi F5-näppäimellä tai manuaalisesti, sitten näemme VBA-viestiruudussa "Hei", "Hyvä" ja "Aamu".
Like this, we can store any number of values with Array List Object.
Example #2 - Store Values to Cells Using VBA ArrayList
Let’s see the example of storing the assigned values to the cells in the worksheet. Now, look at the below VBA code.
Code:
Sub ArrayList_Example2() Dim MobileNames As ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Names of the mobile MobileNames.Add "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames.Add "VIVO" MobileNames.Add "LG" Set MobilePrice = New ArrayList MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 End Sub
With two array lists, I have stored Names of the Mobile and Prices of the Mobile. Now we need to insert these values to the worksheet for this. We need to use loops. The below loop will do the job for me.
Below is the Overall code to store values to the worksheet.
Code:
Sub ArrayList_Example2 () Himmennä mobiilinimiä ArrayList, MobilePrice kuten ArrayList Dim i kokonaislukuna Dim k As kokonaislukuna Set MobileNames = New ArrayList 'Mobiilin mobiilinimen nimet. Lisää "Redmi" MobileNames.Lisää "Samsung" MobileNames.Add "Oppo" MobileNames. Lisää "VIVO" MobileNames.Add "LG" Set MobilePrice = New ArrayList MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 MobilePrice.Add 17800 k = 0 For i = 1 - 5 solua (i, 1) .Arvo = MobileNames (k) Solut (i, 2) .Arvo = MobilePrice (k) k = k + 1 Seuraava i End Sub
Kun suoritamme koodin manuaalisesti tai sitten F5-näppäintä, saamme alla olevan tuloksen.
