VBA „Enum“ Žingsnis po žingsnio pavyzdžiai, kaip naudoti VBA sąrašus

Turinys

VBA sąrašai (Enum)

ENUM yra trumpa išvardijimų forma, beveik kiekvienoje programavimo kalboje turime išvardijimus, kai kurie yra iš anksto apibrėžti, o kiti yra vartotojo apibrėžti sąrašai, pvz., VBA, „Vbnewline“ yra išvardijimas ir mes galime susisteminti patys naudodami ENUM sakinį.

VBA sąrašai (Enum)

Paprastai deklaruojame kintamuosius ir priskiriame jiems duomenų tipus. Dažniausiai naudojami duomenų tipai yra „Sveikasis skaičius, Ilgasis, Vienvietis, Dvivietis, Variantas ir Stygos“. Bet mes turime dar vieną duomenų tipą, ty VBA „Enum“. Jūs tikriausiai galvojate, kas tai yra ir atrodo keistas dalykas, tačiau norėdami pašalinti visas abejones, pateikiame šį straipsnį „VBA sąrašai“.

Kas yra „VBA Enum“?

„Enum“ reiškia surašymus. „Enum“ yra kintamojo tipas, kaip ir mūsų eilutė, sveikasis skaičius arba bet kuris kitas duomenų tipas, tačiau čia mes sukuriame sąrašo elementą naudodami „Excel VBA Enum“ sakinį. Surašymas reiškia „veiksmą, kai paminimi keli dalykai po vieną“.

Programoje „Excel“ VBA Enum yra tipas, kuriame yra konstantų sąrašas. Surašymai sukuria elementų sąrašą ir sudaro juos grupėje. Pvz., Mobiliųjų telefonų tipas: „Redmi“, „Samsung“, „Apple“, „Vivo“, „Oppo“.

Naudodami išvardijimus, galime juos visus sugrupuoti į vieną vertę. „Enum“ gali būti naudojamas kaip kintamieji VBA, ir tai yra skaitinių kintamųjų duomenų tipas „LONG“.

VBA Enum formulė

Jei nieko nesuprantate, nesijaudinkite. Pamažu sužinosite. Dabar pažvelkite į „VBA Enum“ formulę.

Enume GroupName Member1 = (ilgas) narys2 = (ilgas) narys3 = (ilgas) narys4 = (ilgas) narys5 = (ilgas) pabaigos sąrašas

Kaip sakiau pradžioje, „Enum“ gali būti naudojamas kaip kintamasis, ir tai yra „Long“ skaitmeninio kintamojo duomenų tipas.

VBA Enum pavyzdžiai

Prieš pradėdamas „Enum“ pavyzdžius, leiskite jums parodyti „Constant“ pavyzdį VBA. Pastovus taip pat yra žodis, naudojamas deklaruoti kintamąjį VBA.

Pažvelkite į žemiau pateiktus kodus.

Kodas:

Variantas Aiškus Const Samsung = 15000 Const VIVO = 18000 Const Redmi = 8500 Const Oppo = 18500 Sub Enum_Example1 () End Sub

Deklaravau kintamuosius modulio viršuje, naudodamas žodį „Const“.

Const Samsung = 15000

Const VIVO = 18000

Const Redmi = 8500

Const Oppo = 18500

Dabar žinau, kad visi šie kintamieji yra „Mobile“ grupės narys. Jei noriu naudoti šiuos kintamuosius, modulyje pasakykime „Vivo“.

Kodas:

Sub Enum_Pavyzdys1 () V End Sub

Pradėdamas rašyti „v“, matau, kad su jais susimaišė daugybė kitų VBA dalykų, kurie prasideda raide „v“.

Čia atsiranda VBA paveikslėlis „Surašymai“.

Norėdami geriau suprasti, pabandykime pakeisti langelio fono spalvą.

Kodas:

Sub Enum_Example1 () AcriveCell.Interior.Color = RGB End Sub

Kaip matote aukščiau pateiktame kode, galime pamatyti visas RBA spalvas, galimas VBA. Tai visos konstantos su nuostabiais pavadinimais.

Tiesą sakant, visos šios RGB spalvos yra šeimos sąrašo, vadinamo „ xlRGBColor“, dalis.

Kodas:

Sub Enum_Example1 () AcriveCell.Interior.Color = xlrg End Sub

Iš tikrųjų naudodamas šias VBA sąrašus, aš galiu pasiekti visus šio surašymo grupės narius.

Kodas:

Sub Enum_Example1 () AcriveCell.Interior.Color = XlRgbColor. Pabaigos sub

Kaip matome aukščiau esančiame paveikslėlyje, matome tik spalvų derinius, nieko daugiau. Tai yra paprasta „VBA Enum“ apžvalga.

Gerai, dabar grįšime prie pirminio „Mobile“ grupės narių pavyzdžio. Kaip ir tai, kaip mes matėme grupės RGB narius panašiai, mes galime deklaruoti kintamuosius naudodami „VBA Enum“ teiginį.

Kodas:

Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Eample1 () End Sub

Now I have declared all the mobile brands under the “Mobiles” group by using “Enum” statements.

By using the group name “Mobiles,” now I can access all these brands in the module.

Code:

Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Example1() Mob End Sub

Select the group and put a dot to see all the members of the group.

Look, we can see only the group members of the group “Mobiles,” nothing else. This is how we can use VBA Enumerations to group a list of items under one roof.

Using VBA Enumeration Variables to Store the Data

Let’s see a simple example of using declared Enum variables. Declare Enum group name as “Department” and add department’s names as the group member.

Code:

Enum Mobiles Finance = 150000 HR = 218000 Sales = 458500 Marketing = 718500 End Enum Sub Enum_Example1() End Sub

I have declared each department’s salary numbers in front of them.

Now we will store the values of these numbers to excel sheet. Before applying the code, create a table like below.

Now go back to the basic visual editor and refer the cell B2 by using the RANGE object.

Code:

Sub Enum_Example1() Range("B2").Value = End Sub

In A2 cell, we have the Finance department, and so in B2 cell, we will store the salary of this department. So first, access the group name “Department.”

Code:

Sub Enum_Example1() Range("B2").Value = Dep End Sub

Now in this group, we can see only declared department names.

Code:

Sub Enum_Example1() Range("B2").Value = Department. End Sub

Select the department named “Finance.”

Code:

Sub Enum_Example1 () Range ("B2"). Reikšmė = Department.Finance End Sub

Panašiai visoms kitoms langeliams pasirinkite atitinkamus skyrių pavadinimus.

Kodas:

Sub Enum_Pavyzdys1 () Diapazonas ("B2"). Reikšmė = Departamentas. Finansų diapazonas ("B3"). Reikšmė = Departamentas.HR Diapazonas ("B4"). Reikšmė = Skyrius.Rinkodaros diapazonas ("B5"). Vertė = Skyrius .Pardavimo pabaigos antrinis