I vba har vi innebygd samlinger av datatyper, funksjonsvariabler og andre viktige utsagn, men i likhet med dette har vi matriseliste i VBA der en bruker kan endre og sette egne samlinger av variabler og brukerdefinerte funksjoner i en matrise, det er visse nøkkelord for matriselisten for å designe den.
Excel VBA ArrayList
VBA ArrayList er en slags datastruktur vi bruker i VBA for å lagre dataene. ArrayList i Excel VBA er en klasse som brukes til å lage en rekke verdier. Dette, i motsetning til tradisjonelle matriser, der disse matriser har en fast lengde, men Array List ikke har noen fast lengde.
VAB ArrayList er ikke en del av VBA-listen; snarere er det et eksternt bibliotek eller objekt som vi trenger for å sette referansen før vi begynner å få tilgang til den.
Matriser i VBA er en integrert del av ethvert kodingspråk. Ved å bruke matriser i excel kan vi lagre data med et enkelt variabelnavn ved å erklære "nedre grense og øvre grense."
Med vanlige matriser må vi bestemme nedre og øvre grense for matrisen. Vi må bestemme i god tid på tidspunktet for deklarering av variabelen når det gjelder statiske matriser, og når det gjelder dynamiske matriser, må vi bestemme lengden på matrisen etter å ha deklarert matrisen ved å bruke "ReDim" -uttalelsen i VBA.
Imidlertid har vi ett alternativ der vi kan lagre "N" antall verdier uten å oppgi nedre og øvre grense. I denne artikkelen vil vi vise deg om det alternativet, dvs. "VBA ArrayList."
For å sette referansen til VBA ArrayList-objektet, følg trinnene nedenfor.
Trinn 1: Gå til Verktøy> Referanser.
Trinn 2: Referansevinduet for objektbiblioteket vises foran deg. Velg alternativet “ mscorlib.dll. ”
Trinn 3: Klikk også på OK. Nå kan vi få tilgang til VBA ArrayList.
Eksempler på VBA ArrayList i Excel
Nedenfor er eksemplene på Excel VBA ArrayList.
Eksempel nr. 1 - Opprett forekomst av VBA ArrayList
Siden Excel VBA ArrayList er et eksternt objekt, må vi opprette en forekomst for å begynne å bruke dette. Følg trinnene nedenfor for å opprette en forekomst.
Trinn 1: Erklær variabelen som " ArrayList."
Kode:
Sub ArrayList_Example1 () Dim ArrayValues As ArrayList End Sub
Trinn 2: Siden Array List er et objekt, må vi opprette en ny forekomst.
Kode:
Sub ArrayList_Example1 () Dim ArrayValues As ArrayList Set ArrayValues = New ArrayList End Sub
Trinn 3: Nå kan vi lagre verdier til arrayvariabelen ved å bruke "Legg til" -metoden. I bildet nedenfor har jeg lagt til tre verdier.
Kode:
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
Nå har vi tilordnet tre verdier, hvordan identifiserer vi hvilke som er de første, og hvordan kan vi vise verdiene eller bruke dem til våre behov.
Hvis du husker tradisjonell matchtype, refererer vi til den første matriseverdien som denne "ArrayName (0)"
På samme måte kan vi også bruke den samme teknikken her.
ArrayValue (0) = “Hei”
ArrayValue (1) = “Bra”
ArrayValue (2) = “Morgen”
La dette vises i meldingsboksen.
Kode:
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 MsgBox ArrayValues (0) & vbNewLues 1) & vbNewLine & ArrayValues (2) End Sub
Kjør nå koden ved hjelp av F5-tasten eller manuelt, så ser vi "Hei", "Bra" og "Morgen" i VBA-meldingsboksen.
Slik kan vi lagre et hvilket som helst antall verdier med Array List Object.
Eksempel 2 - Lagre verdier til celler ved hjelp av VBA ArrayList
La oss se eksemplet på å lagre de tildelte verdiene til cellene i regnearket. Se nå på VBA-koden nedenfor.
Kode:
Sub ArrayList_Example2 () Dim MobileNames As ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Navn på mobile MobileNames. Legg til "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames. Legg til "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 () Dim MobileNames Som ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Navn på mobile MobileNames.Add "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames. Legg til "VIVO" MobileNames.Add "LG" Set MobilePrice = New ArrayList MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 k = 0 For i = 1 til 5 celler (i, 1) .Value = MobileNames (k) Cells (i, 2) .Value = MobilePrice (k) k = k + 1 Next i End Sub
Når vi kjører koden manuelt eller bruker F5-tasten da, får vi resultatet nedenfor.
