VBA Enum - Примери стъпка по стъпка за използване на VBA изброявания

Съдържание

VBA изброявания (Enum)

ENUM е кратка форма за изброяване, почти във всеки програмен език имаме изброявания, някои са предварително дефинирани, а други са дефинирани от потребителя изброявания, като във VBA Vbnewline е изброяване и можем да направим свои собствени изброявания с помощта на оператора ENUM.

VBA изброявания (Enum)

Обикновено декларираме променливи и им присвояваме типове данни. Често използваните типове данни са „Integer, Long, Single, Double, Variant и String“. Но имаме още един тип данни, т.е. VBA „Enum“. Сигурно си мислите какво е това и изглежда странно нещо, но за да изчистите всичките си съмнения, представяме тази статия на тема „Изброявания на VBA“.

Какво е VBA Enum?

„Enum“ означава изброявания. Enum е тип променлива точно като нашия низ или цяло число или всеки друг тип данни, но тук ние създаваме елемент на списък, използвайки Excel VBA Enum израз. Изброяването означава „действието на споменаване на редица неща едно по едно“.

В Excel VBA Enum е тип, който съдържа изброяване на константи. Изброяванията създават списък с елементи и ги правят в група. Например тип мобилни устройства: „Redmi, Samsung, Apple, Vivo, Oppo.“

Използвайки изброявания, можем да ги групираме заедно под една стойност. Enum може да се използва като променливи в VBA и е числова променлива тип данни LONG.

Формулата на VBA Enum

Ако не разбирате нищо, не се притеснявайте. Бавно ще го разберете. Сега погледнете формулата на VBA Enum.

Enum GroupName Член1 = (Long) Член2 = (Long) Член3 = (Long) Член4 = (Long) Член5 = (Long) End Enum

Както казах в началото, Enum може да се използва като променлива и това е числовият променлив тип данни на Long.

Примери за VBA Enum

Преди да започна примерите на Enum, позволете ми да ви покажа примера „Constant“ във VBA. Constant е също дума, използвана за деклариране на променливата във VBA.

Вижте кодовете по-долу.

Код:

Опция Изрично Const Samsung = 15000 Const VIVO = 18000 Const Redmi = 8500 Const Oppo = 18500 Sub Enum_Example1 () End Sub

Декларирах променливите в горната част на модула, използвайки думата Const.

Конст Samsung = 15000

Const VIVO = 18000

Const Redmi = 8500

Const Oppo = 18500

Сега знам, че всички тези променливи са член на групата на Mobile. Ако искам да използвам тези променливи, нека кажем „Vivo“ в модула.

Код:

Sub Enum_Example1 () V Край Sub

Докато стартирам знака „v“, виждам, че много други неща от VBA, смесени с тях, са нещата, които започват с буквата „v.“

Тук се появява картината на VBA „Изброявания“.

За по-добро разбиране, нека се опитаме да променим цвета на фона на клетката.

Код:

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

Както можете да видите в горния код, можем да видим всички RGB цветове, налични във VBA. Това са всички константи с прекрасни имена с него.

Всъщност всички тези RGB цветове са част от семейното изброяване, наречено „ xlRGBColor“.

Код:

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

Като всъщност използвам тези изброявания на VBA, мога да получа достъп до всички членове на групата на това изброяване.

Код:

Sub Enum_Example1 () AcriveCell.Interior.Color = XlRgbColor. Крайна под

Както виждаме на горното изображение, виждаме само цветови комбинации, нищо друго. Ето какво е простият преглед на „VBA Enum“.

Добре, сега ще се върнем към нашия оригинален пример за членове на мобилна група. Подобно на това как видяхме членовете на групата с RGB цвят по подобен начин, можем да декларираме променливите, като използваме оператора VBA Enum.

Код:

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

Сега съм декларирал всички мобилни марки в групата „Мобилни телефони“, като използвам изявленията „Enum“.

Използвайки името на групата „Мобилни телефони“, вече мога да получа достъп до всички тези марки в модула.

Код:

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

Изберете групата и поставете точка, за да видите всички членове на групата.

Вижте, можем да видим само членовете на групата на групата „Мобилни телефони“, нищо друго. Ето как можем да използваме VBA Enumerations, за да групираме списък с елементи под един покрив.

Използване на променливи за изброяване на VBA за съхраняване на данните

Нека видим прост пример за използване на декларирани променливи Enum. Декларирайте името на групата Enum като „Отдел“ и добавете имената на отделите като член на групата.

Код:

Enum Mobiles Finance = 150000 HR = 218000 Продажби = 458500 Маркетинг = 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 () Диапазон ("B2"). Стойност = отдел. Финансиране Край Sub

По същия начин за всички останали клетки изберете съответните имена на отдели.

Код:

Sub Enum_Example1 () Обхват ("B2"). Стойност = Отдел. Обхват на финансиране ("B3"). Стойност = Отдел. Обхват на HR ("B4"). Стойност = Отдел. Обхват на маркетинг ("B5"). Стойност = Отдел .Продаж Край Sub