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