Vba smo vgradili zbirke podatkovnih tipov, funkcijskih spremenljivk in drugih pomembnih stavkov, vendar podobno temu imamo seznam matrik v VBA, v katerem lahko uporabnik v matriko spremeni in postavi lastne zbirke spremenljivk in uporabniško določene funkcije, obstaja nekaj ključne besede za seznam nizov, da ga oblikujete.
Excel VBA ArrayList
VBA ArrayList je neke vrste podatkovna struktura, ki jo v VBA uporabljamo za shranjevanje podatkov. ArrayList v Excelu VBA je razred, ki se uporablja za ustvarjanje polja vrednosti. To je za razliko od tradicionalnih nizov, kjer imajo ti nizi fiksno dolžino, vendar seznam matrik nima nobene fiksne dolžine.
VAB ArrayList ni del seznama VBA; prej gre za zunanjo knjižnico ali objekt, ki ga moramo nastaviti, preden začnemo dostopati do njega.
Polja v VBA so sestavni del katerega koli kodnega jezika. Z uporabo nizov v Excelu lahko podatke shranimo z enim samim imenom spremenljivke, tako da razglasimo »spodnjo in zgornjo mejo«.
Pri običajnih nizih se moramo odločiti za spodnjo in zgornjo mejo polja. V času razglasitve spremenljivke se moramo v primeru statičnih nizov odločiti precej vnaprej, v primeru dinamičnih nizov pa se moramo dolžino polja odločiti po razglasitvi polja z uporabo stavka »ReDim« v VBA.
Vendar pa imamo še eno možnost, kjer lahko shranimo število “N” vrednosti, ne da bi navedli spodnjo in zgornjo mejo. V tem članku vam bomo predstavili to možnost, tj. "VBA ArrayList."
Če želite nastaviti referenco na objekt VBA ArrayList, sledite spodnjim korakom.
1. korak: Pojdite na Orodja> Reference.
2. korak: Pred vami se prikaže referenčno okno knjižnice predmetov. Izberite možnost » mscorlib.dll. "
3. korak: kliknite tudi V redu. Zdaj lahko dostopamo do VBA ArrayList.
Primeri VBA ArrayList v Excelu
Spodaj so primeri Excel VBA ArrayList.
Primer # 1 - Ustvari primerek VBA ArrayList
Ker je Excel VBA ArrayList zunanji objekt, moramo ustvariti primerek, da ga začnemo uporabljati. Če želite ustvariti primerek, sledite spodnjim korakom.
1. korak: Spremenljivko prijavite kot » ArrayList«.
Koda:
Sub ArrayList_Example1 () Dim ArrayValues kot ArrayList End Sub
2. korak: Ker je seznam matrik objekt, moramo ustvariti nov primerek.
Koda:
Sub ArrayList_Example1 () Dim ArrayValues As ArrayList Set ArrayValues = New ArrayList End Sub
3. korak: Zdaj lahko še naprej shranjujemo vrednosti v spremenljivko polja z uporabo metode »Dodaj«. Na spodnji sliki sem dodal tri vrednosti.
Koda:
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
Zdaj smo dodelili tri vrednosti, kako ugotovimo, katera je prva in kako lahko vrednosti prikažemo ali uporabimo za svoje potrebe.
Če se spomnite tradicionalne vrste matrike, napotimo prvo vrednost matrike, kot je ta »ArrayName (0)«
Podobno lahko tudi tu uporabimo isto tehniko.
ArrayValue (0) = "Pozdravljeni"
ArrayValue (1) = "Dobro"
ArrayValue (2) = "Jutro"
Naj bo to prikazano v polju za sporočila.
Koda:
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) & vbNVVes (&) 1) & vbNewLine & ArrayValues (2) Konec Sub
Zdaj zaženite kodo s tipko F5 ali ročno, nato bomo v polju za sporočila VBA videli »Pozdravljeni«, »Dobro« in »Jutro«.
Tako lahko s predmetom Array List shranimo poljubno število vrednosti.
2. primer - shranite vrednosti v celice z uporabo VBA ArrayList
Oglejmo si primer shranjevanja dodeljenih vrednosti v celice na delovnem listu. Zdaj si oglejte spodnjo kodo VBA.
Koda:
Sub ArrayList_Example2 () Dim MobileNames As ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Imena mobilnih imen.Dodaj "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames. Dodajte "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 As ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Imena mobilnih imen.Dodaj "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames. Dodajte "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 Za i = 1 do 5 celic (i, 1) .Vrednost = MobileNames (k) Celice (i, 2) .Value = MobilePrice (k) k = k + 1 Naslednji i End Sub
Ko zaženemo kodo ročno ali s tipko F5, bomo dobili spodnji rezultat.
