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

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 šaubas, mēs piedāvājam šo rakstu “VBA uzskaitījumi”

Kas ir VBA Enum?

“Enum” nozīmē uzskaitījumus. Enum ir mainīgā veids, 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 sagrupēt vienā vērtībā. Enum var izmantot kā mainīgos VBA, un tas ir skaitlisko mainīgo datu tips LONG.

VBA Enum formula

Ja 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 jums parādīt “nemainīgu” piemēru VBA. 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ī var pateikt “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š

Kā redzams iepriekš redzamajā attēlā, mēs redzam tikai krāsu kombinācijas, neko citu. Tas ir vienkāršs “VBA Enum” pārskats.

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 locekļus, 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 mobilo ierīču zīmolus grupā “Mobiles”, izmantojot “Enum” paziņojumus.

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

Kods:

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

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

Paskaties, mēs redzam 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 

Esmu deklarējis katras nodaļas algu numurus viņu priekšā.

Tagad mēs saglabāsim šo skaitļu vērtības Excel lapā. Pirms koda izmantošanas izveidojiet tabulu, piemēram, zemāk.

Tagad atgriezieties vizuālā pamata redaktorā un norādiet šūnu B2, izmantojot objektu RANGE .

Kods:

 Apakšsummas_piemērs1 () diapazons ("B2"). Vērtība = Beigas apakšgrupa 

A2 šūnā mums ir Finanšu nodaļa, un tāpēc B2 šūnā mēs glabāsim šīs nodaļas algu. Tāpēc vispirms piekļūstiet grupas nosaukumam “ Departaments ”.

Kods:

 Apakšsummas_piemērs1 () diapazons ("B2"). Vērtība = Dep End Sub 

Tagad šajā grupā mēs varam redzēt tikai deklarētos nodaļu nosaukumus .

Kods:

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

Atlasiet nodaļas nosaukumu “ Finanses ”.

Kods:

 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 

Palaist šo VBA kodu, mēs saņemsim piešķirto algu summu šiem departamentiem.

Šādi mēs varam izmantot VBA Enum.

Šo VBA Enum Excel varat lejupielādēt šeit. VBA Enum Excel veidne


$config[zx-auto] not found$config[zx-overlay] not found