VBA Enum

Enum е съкратено като изброяване. Това е процес, в който споменаваме нещо едно по едно. По подобен начин имаме изброявания във всеки език за програмиране, било то JAVA, C или excel VBA. В VBA имаме някои вградени изброявания, които започват с VB като VBnewLine се използва за вмъкване на нов ред. Това е изброяване. В Excel VBA можем да създадем и собствени собствени изброявания.

В VBA, Enum всъщност е променлива, точно като цяло число или низ и други. Можем да направим списък с елементи в VBA и да използваме променливите. Енумите са направени, за да улеснят или лесно да се намерят нещата. Например за компания с мотоциклети като изброяването на Bajaj ще бъде списък с велосипеди, които произвеждат като pulsar, Avenger, dominar и др. Единственото, което трябва да имаме предвид, е, че enum е като числова променлива, която може да се използва като представяне на една интерпретация. Има и друг начин за използване на съобщения за състояние чрез използване на константа, но те могат да бъдат уморителни, тъй като не са групирани и идват заедно с всички останали изброени променливи на VBA. Но с помощта на VBA ENUM можем да групираме изброенията си в една група и да ги използваме, когато пожелаем.

Синтаксис на Enum в Excel VBA

Синтаксисът за използване на ENUM в excel VBA е следният:

 Enum EnumName EnumValue (= LongValue) EnumValue (= LongValue) ((_EnumValue)) (= LongValue) End Enum

Важно нещо, което трябва да запомните е, че стойностите, посочени в ENUM, трябва да имат конкретни стойности, но ако не му предоставим никаква стойност, VBA автоматично дава първата стойност на enum като 0, а следващата като 1 и така нататък.

И както по-горе казах за мотоциклетна компания, която произвежда мотоциклети, изброяването за нея ще бъде следното.

 ENUM Велосипеди Pulsar Avenger = 4 Dominar End ENUM

Сега в горната извадка enum, съм задал стойности само на Avenger, така че по подразбиране pulsar е нула, а dominar е 5, както предишната стойност на списъка беше 4. Ето как стойностите се присвояват на ENUM стойности.

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

За демонстрация във VBA код опитайте да се обърнете към клетка А1 и веднага щом използваме оператора на точки, можем да видим, че изскачат много други изброявания, които могат или не са необходими за нас. Погледнете екрана по-долу.

Можем да видим, че в горната снимка на екрана има много изброявания, започващи от A. Това са вградени VBA изброявания.

Сега нека се научим как да правим персонализирани изброявания в VBA чрез няколко примера за себе си.

Забележка: За да използвате Excel VBA, осигурете активирането на раздела на програмиста от раздела с файлове и опции.

Как да направите персонализирани изброявания в Excel VBA

Ще научим как да правим персонализирани изброявания (Enum) с няколко примера в Excel VBA.

Можете да изтеглите този шаблон на VBA Enum Excel тук - VBA Enum Excel шаблон

Excel VBA Enum - Пример №1

Нека първо направим много просто изброяване. В този пример ще определим поздравите за деня като някои числа и ще ги покажем като персонализирано съобщение.

Следвайте стъпките по-долу, за да използвате VBA Enum:

Стъпка 1: В раздела на програмиста щракнете върху Visual Basic, за да отворите VB Editor.

Стъпка 2: Поставете нов модул от раздела за вмъкване в редактора на VB.

Стъпка 3: Декларирайте функцията Enum с име enum.

Код:

 Enum поздрави End Enum

Стъпка 4: Декларирайте стойностите на enum, както следва,

Код:

 Enum Поздрави Утро = 1 следобед = 2 Вечер = 3 Нощ = 4 Край Enum

Стъпка 5: Сега декларирайте подфункция под функцията enum, за да използвате enum.

Код:

 Enum Поздрави Утро = 1 следобед = 2 Вечер = 3 Нощ = 4 Край Enum Sub UseEnum () End Sub

Стъпка 6: Показване на персонализирано съобщение с помощта на функцията msgbox.

Код:

 Enum Поздрави Утро = 1 следобед = 2 Вечер = 3 Нощ = 4 Край Enum Sub UseEnum () MsgBox "Поздравителен номер" Край Sub

Стъпка 7: За да покажем поздравителния номер, използваме enum както следва,

Код:

 Enum Поздрави сутрин = 1 следобед = 2 вечер = 3 нощ = 4 Край Enum Sub UseEnum () MsgBox "Поздравителен номер" и поздрави. Край Sub

Стъпка 8: Изберете някоя от стойностите на поздравите, както следва.

Код:

 Enum Поздрави Утро = 1 следобед = 2 Вечер = 3 Нощ = 4 Край Enum Sub UseEnum () MsgBox "Поздравителен номер" & Поздрави.

Стъпка 9: След като сте готови, компилирайте и стартирайте пълния код, като кликнете върху бутона за възпроизвеждане, който се намира точно под лентата с менюта. Когато стартираме кода виждаме следния резултат.

Много лесно беше да се създаде изброяване и да се използва това, става ясно от горния пример.

Excel VBA Enum - Пример №2

Сега в този пример нека използваме изброяване, за да съхраняваме данните в Excel лист. Ще използваме примера на мотоциклети, използвани в раздела за въвеждане.

Имаме някакво предварително написано изчисление в лист 1, както следва.

Ще попълним клетките на брой мотоциклети, използвайки изброявания и които ще изчислим общата цена на тези мотори.

За това следвайте стъпките по-долу, за да използвате VBA Enum:

Стъпка 1: Отидете в раздела на програмиста, за да кликнете върху визуално основно, за да отворите редактора на VB.

Стъпка 2: Поставете нов модул от раздела за вмъкване в редактора на VB.

Стъпка 3: Декларирайте функцията enum като мотоциклети.

Код:

 Enum Мотоциклети End Enum

Стъпка 4: Декларирайте списъка с enum, както следва,

Код:

 Enum Мотоциклети Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum

Стъпка 5: Сега декларирайте подфункция, за да използвате тези изброявания.

Код:

 Enum Мотоциклети Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum Sub TotalCalculation () End Sub

Стъпка 6: Ние знаем, за да използваме свойствата на лист 1, трябва първо да активираме листа със следния код.

Код:

 Enum Мотоциклети Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum Sub TotalCalculation () Работни листове ("Sheet1"). Активиране на End Sub

Стъпка 7: Сега задайте стойностите на клетката, като използвате изброяване, както следва,

Код:

 Enum Мотоциклети Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum Sub TotalCalculation () Работни листове ("Sheet1"). Активиране на диапазона ("B2"). .Avenger Range ("B4"). Стойност = Мотоциклети.Доминален диапазон ("B5"). Стойност = Мотоциклети.Platina End Sub

Стъпка 8: Стартирайте горния код чрез бутона за стартиране или натиснете F5 и вижте следния резултат в лист 1.

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

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

Неща, които трябва да запомните

  • ENUM е числова променлива, която може да бъде изградена по поръчка, но също така е вградена в VBA.
  • Ако не присвоим никакви стойности на ENUM стойности, VBA автоматично им присвоява стойности.
  • За да използваме изброенията VBA в нашия код, ние ги препращаме по име.

Препоръчителни статии

Това е ръководство за VBA Enum. Тук обсъдихме как да правим персонализирани изброявания в excel VBA заедно с практически примери и шаблон за Excel, който може да се сваля. Можете да разгледате и другите ни предложени статии -

  1. Обхват на VBA | Уроци по Excel
  2. Групиране на колони в Excel
  3. VBA Active Cell
  4. Урок за VLOOKUP в Excel

Категория:

VBA