VBA Enum - Soli pa solim VBA uzskaitījumu izmantošanas piemēri

Satura rādītājs

VBA uzskaitījumi (Enum)

ENUM ir īsa uzskaites forma, gandrīz katrā programmēšanas valodā mums ir uzskaitījumi, daži no tiem ir iepriekš definēti un daži ir lietotāja noteikti uzskaitījumi, piemēram, VBA Vbnewline ir uzskaitījums, un mēs varam izveidot paši savus uzskaitījumus, izmantojot ENUM paziņojumu.

VBA uzskaitījumi (Enum)

Mēs parasti deklarējam mainīgos un piešķiram tiem datu tipus. Parasti izmantotie datu tipi ir “Integer, Long, Single, Double, Variant un String”. Bet mums ir vēl viens datu tips, ti, VBA “Enum”. Jums ir jādomā, kas tas ir un izskatās dīvaini, taču, lai novērstu visas jūsu šaubas, mēs piedāvājam šo rakstu tēmā “VBA uzskaitījumi”

Kas ir VBA Enum?

“Enum” nozīmē uzskaitījumus. Enum ir mainīgā tips, tāpat kā mūsu virkne vai vesels skaitlis, vai jebkurš cits datu tips, taču šeit mēs izveidojam saraksta elementu, izmantojot Excel VBA Enum paziņojumu. Uzskaitīšana nozīmē “darbību, pieminot vairākas lietas pa vienai”.

Programmā Excel VBA Enum ir tips, kurā ir konstantu uzskaitījums. Uzskaitījumi izveido vienumu sarakstu un izveido tos grupā. Piemēram, mobilo tālruņu veids: “Redmi, Samsung, Apple, Vivo, Oppo”.

Izmantojot uzskaitījumus, mēs varam tos visus grupēt zem vienas vērtības. Enum var izmantot kā mainīgos VBA, un tas ir skaitlisko mainīgo datu tips LONG.

VBA Enum formula

Ja jūs neko nesaprotat, neuztraucieties. Jūs to lēnām sajutīsiet. Tagad ieskatieties VBA Enum formulā.

Enum GroupName Member1 = (Long) Member2 = (Long) Member3 = (Long) Member4 = (Long) Member5 = (Long) End Enum

Kā es teicu sākumā, Enum var izmantot kā mainīgo, un tas ir skaitlisko mainīgo datu tips Long.

VBA Enum piemēri

Pirms sāku Enum piemērus, ļaujiet man parādīt VBA piemēru “Constant”. Konstants ir arī vārds, ko izmanto, lai deklarētu mainīgo VBA.

Apskatiet zemāk redzamos kodus.

Kods:

Opcija Nepārprotama Konst. Samsung = 15000 Const VIVO = 18000 Konst Redmi = 8500 Const Oppo = 18500 Sub Enum_Example1 () End Sub

Esmu deklarējis mainīgos moduļa augšdaļā, izmantojot vārdu Const.

Const Samsung = 15000

Const VIVO = 18000

Const Redmi = 8500

Const Oppo = 18500

Tagad es zinu, ka visi šie mainīgie ir grupas Mobile dalībnieki. Ja es vēlos izmantot šos mainīgos, modulī teiksim “Vivo”.

Kods:

Apakšsumma_piemērs1 () V Beigas apakšgrupa

Sākot rakstzīmi “v”, es redzu, ka daudzas citas VBA lietas ir sajauktas ar tām, kas sākas ar burtu “v”.

Šeit attēlā parādās VBA attēls “Uzskaitījumi”.

Lai labāk izprastu, mēģināsim mainīt šūnas fona krāsu.

Kods:

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

Kā redzat iepriekš minētajā kodā, mēs varam redzēt visas VBA pieejamās RGB krāsas. Tās visas ir konstantes ar brīnišķīgiem nosaukumiem.

Patiesībā visas šīs RGB krāsas ir daļa no ģimenes uzskaites, ko sauc par “ xlRGBColor”.

Kods:

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

Faktiski izmantojot šos VBA uzskaitījumus, es varu piekļūt visiem šī uzskaitījuma grupas dalībniekiem.

Kods:

Sub Enum_Example1 () AcriveCell.Interior.Color = XlRgbColor. Beigu apakšnodaļa

Kā redzam augšējā attēlā, mēs redzam tikai krāsu kombinācijas, neko citu. Tas ir tas, ko vienkāršs pārskats par “VBA Enum”.

Labi, tagad mēs atgriezīsimies pie sava mobilās grupas dalībnieku sākotnējā piemēra. Tāpat kā tas, kā mēs esam redzējuši RGB grupas dalībniekus līdzīgi, mēs varam deklarēt mainīgos, izmantojot VBA Enum paziņojumu.

Kods:

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

Tagad esmu deklarējis visus mobilos zīmolus grupā “Mobiles”, izmantojot “Enum” paziņojumus.

Izmantojot grupas nosaukumu “Mobiles”, tagad es varu piekļūt visiem šiem moduļa zīmoliem.

Kods:

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

Atlasiet grupu un ielieciet punktu, lai redzētu visus grupas dalībniekus.

Paskaties, mēs varam redzēt tikai grupas “Mobiles” grupas dalībniekus, neko citu. Šādi mēs varam izmantot VBA uzskaitījumus, lai grupētu priekšmetu sarakstu zem viena jumta.

VBA uzskaites mainīgo izmantošana datu glabāšanai

Apskatīsim vienkāršu deklarēto Enum mainīgo izmantošanas piemēru. Paziņojiet Enum grupas nosaukumu kā “Departaments” un pievienojiet nodaļas nosaukumus kā grupas dalībnieku.

Kods:

Enum Mobiles Finance = 150000 HR = 218000 Pārdošana = 458500 Mārketings = 718500 Beigas 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:

Apakšsummas_piemērs1 () diapazons ("B2"). Vērtība = nodaļa. Finanses beigu apakšgrupa

Līdzīgi visām pārējām šūnām atlasiet attiecīgo nodaļu nosaukumus.

Kods:

Apakšsummas_piemērs1 () diapazons ("B2"). Vērtība = nodaļa.Finansu diapazons ("B3"). Vērtība = nodaļa.HR diapazons ("B4"). Vērtība = nodaļa.Mārketinga diapazons ("B5"). Vērtība = nodaļa .Pārdošanas beigu apakšnodaļa