VBA ENUM

ENUM är en kort form för uppräkningar, nästan i varje programmeringsspråk har vi uppräkningar, vissa är fördefinierade och andra är användardefinierade uppräkningar, som i VBA är Vbnewline en uppräkning och vi kan göra våra egna uppräkningar med ENUM-uttalande.

VBA-uppräkningar (Enum)

Vi deklarerar vanligtvis variabler och tilldelar datatyper till dem. De vanliga datatyperna vi använder är ”Integer, Long, Single, Double, Variant och String”. Men vi har ytterligare en datatyp, dvs VBA “Enum”. Du måste tänka på vad som är detta och ser en konstig sak ut, men för att rensa alla dina tvivel presenterar vi den här artikeln om "VBA Enumerations"

Vad är VBA Enum?

"Enum" betyder uppräkningar. Enum är en typ av variabel precis som vår sträng eller heltal eller någon annan datatyp men här skapar vi ett listelement med hjälp av Excel VBA Enum-uttalande. Uppräkning betyder "handlingen att nämna ett antal saker en efter en".

I Excel är VBA Enum en typ som innehåller en uppräkning av konstanter. Uppräkningar skapar en lista med objekt och gör dem till en grupp. Till exempel typ av mobiler: ”Redmi, Samsung, Apple, Vivo, Oppo”.

Med hjälp av räkningar kan vi gruppera dem alla under ett enda värde. Enum kan användas som variabler i VBA och det är en numerisk variabeldatatyp LONG.

Formel för VBA Enum

Om du inte förstår någonting, oroa dig inte, du kommer långsamt att få tag på det. Ta nu en titt på VBA Enums formel.

 Enum GroupName Member1 = [Long] Member2 = [Long] Member3 = [Long] Member4 = [Long] Member5 = [Long] End Enum 

Som jag sa i början kan Enum användas som en variabel och det är den numeriska variabeldatatypen Long.

Exempel på VBA Enum

Innan jag börjar med Enum-exemplen, låt mig visa dig ett "konstant" exempel i VBA. Constant är också ett ord som används för att deklarera variabeln i VBA.

Titta på nedanstående koder.

Koda:

 Alternativ Explicit Const Samsung = 15000 Const VIVO = 18000 Const Redmi = 8500 Const Oppo = 18500 Sub Enum_Example1 () End Sub 

Jag har deklarerat variablerna högst upp i modulen med hjälp av Const-ordet.

Const Samsung = 15000

Const VIVO = 18000

Const Redmi = 8500

Const Oppo = 18500

Nu vet jag att alla dessa variabler är en gruppmedlem i Mobile. Om jag vill använda dessa variabler kan vi säga "Vivo" i modulen.

Koda:

 Sub Enum_Example1 () V End Sub 

När jag startar karaktären ”v” kan jag se många andra saker i VBA blandade med dem var de saker som börjar med bokstaven ”v”.

Det är här bilden av VBA “Enumerations” kommer in i bilden.

För bättre förståelse låt oss försöka ändra cellens bakgrundsfärg.

Koda:

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

Som du kan se i ovanstående kod kan vi se alla RGB-färger som finns tillgängliga i VBA. Dessa är alla konstanter med underbara namn med den.

Egentligen är alla dessa RGB-färger en del av familjens uppräkning som kallas " xlRGBColor ".

Koda:

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

Genom att faktiskt använda dessa VBA-uppräkningar kan jag komma åt alla gruppmedlemmarna i denna uppräkning.

Koda:

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

Som vi kan se i bilden ovan ser vi bara färgkombinationer inget annat. Detta är vad den enkla översikten av “VBA Enum”.

Okej, nu återgår vi till vårt ursprungliga exempel på Mobile-gruppmedlemmar. Liksom hur vi har sett gruppmedlemmar i RGB-färg på samma sätt kan vi deklarera variablerna med hjälp av VBA Enum-uttalande.

Koda:

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

Nu har jag deklarerat alla mobilvarumärken under gruppen "Mobiles" med hjälp av "Enum" -uttalanden.

Genom att använda gruppnamnet ”Mobiles” kan jag nu komma åt alla dessa märken i modulen.

Koda:

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

Välj gruppen och sätt en punkt för att se alla medlemmar i gruppen.

Titta, vi kan bara se gruppmedlemmarna i gruppen "Mobiler" inget annat. Så här kan vi använda VBA Enumerations för att gruppera en lista med objekt under ett tak.

Använda VBA-uppräkningsvariabler för att lagra data

Låt oss se ett enkelt exempel på att använda deklarerade Enum-variabler. Förklara Enum-gruppnamn som “Avdelning” och lägg till avdelningens namn som gruppmedlem.

Koda:

 Enum Mobiles Finance = 150000 HR = 218000 Försäljning = 458500 Marketing = 718500 End Enum Sub Enum_Example1 () End Sub 

Jag har deklarerat varje avdelnings lönenummer framför dem.

Nu kommer vi att lagra värdena på dessa siffror till excel-ark. Innan du använder koden skapar du en tabell som nedan.

Gå nu tillbaka till den visuella grundredigeraren och hänvisa cellen B2 med RANGE- objekt.

Koda:

 Sub Enum_Example1 () Range ("B2"). Värde = 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 name “Finance”.

Code:

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

Similarly, for all the other cells select the respective department names.

Code:

 Sub Enum_Example1() Range("B2").Value = Department.Finance Range("B3").Value = Department.HR Range("B4").Value = Department.Marketing Range("B5").Value = Department.Sales End Sub 

Run this VBA code we will get the assigned salary amount for these departments.

This is how we can use VBA Enum.

You can download this VBA Enum Excel here. VBA Enum Excel Template