VBA Enum - VBA गणना का उपयोग करने के लिए कदम उदाहरण के लिए कदम

विषय - सूची

VBA एन्युमरेशंस (Enum)

ईएनयूएम एन्यूमरेशन्स के लिए एक संक्षिप्त रूप है, लगभग हर प्रोग्रामिंग लैंग्वेज में हमारे पास एन्यूमरेशंस हैं, कुछ पूर्व-परिभाषित हैं और कुछ यूज़र-डिफ़ाइंड एन्यूमरेशंस हैं, जैसे VBA Vbnewline एक एन्यूमरेशन है और हम ENUM स्टेटमेंट का उपयोग करके अपने एन्यूमरेशन कर सकते हैं।

VBA एन्युमरेशंस (Enum)

हम आमतौर पर चर घोषित करते हैं और उन्हें डेटा प्रकार असाइन करते हैं। हमारे द्वारा उपयोग किए जाने वाले सामान्य डेटा प्रकार "इंटेगर, लॉन्ग, सिंगल, डबल, वेरिएंट और स्ट्रिंग" हैं। लेकिन हमारे पास एक और डेटा प्रकार है, VBA "Enum।" आप सोच रहे होंगे कि यह क्या है और एक अजीब बात लगती है, लेकिन आपके सभी संदेहों को दूर करने के लिए, हम इस लेख को "VBA Enumerations" पर प्रस्तुत कर रहे हैं।

VBA Enum क्या है?

"Enum" का अर्थ है Enumerations। एनम हमारे स्ट्रिंग या पूर्णांक या किसी अन्य डेटा प्रकार की तरह ही एक प्रकार का चर है, लेकिन यहां हम एक्सेल वीबीए एनम स्टेटमेंट का उपयोग करके एक सूची तत्व बनाते हैं। गणना का अर्थ है "एक के बाद एक कई चीजों का उल्लेख करने की क्रिया।"

एक्सेल में, VBA Enum एक प्रकार है जिसमें स्थिरांक की गणना होती है। एन्यूमरेशन आइटमों की एक सूची बनाते हैं और उन्हें एक समूह में बनाते हैं। उदाहरण के लिए, मोबाइल के प्रकार: "Redmi, Samsung, Apple, Vivo, Oppo।"

गणना का उपयोग करते हुए, हम सभी को एक ही मूल्य के तहत एक साथ समूहित कर सकते हैं। Enum को VBA में चर के रूप में उपयोग किया जा सकता है, और यह LONG का एक संख्यात्मक चर डेटा प्रकार है।

VBA Enum का सूत्र

यदि आप कुछ भी नहीं समझते हैं, तो चिंता न करें। आपको धीरे-धीरे इसका लटकना शुरू हो जाएगा। अब VBA Enum के सूत्र पर एक नज़र डालें।

Enum GroupName Member1 = (Long) Member2 = (Long) Member3 = (Long) Member4 = (Long) Member5 = (Long) End Enum

जैसा कि मैंने शुरुआत में बताया था कि Enum को एक वैरिएबल के रूप में इस्तेमाल किया जा सकता है, और यह न्यूमेरिक वैरिएबल डेटा टाइप ऑफ लॉन्ग है।

VBA Enum के उदाहरण

इससे पहले कि मैं Enum उदाहरणों को शुरू करूँ, मैं आपको VBA में "लगातार" उदाहरण दिखाता हूँ। लगातार एक शब्द भी है जिसका उपयोग VBA में चर घोषित करने के लिए किया जाता है।

नीचे दिए गए कोड देखें।

कोड:

विकल्प स्पष्ट कॉन्स्टेंट सैमसंग = 15000 कांस्टेबल VIVO = 18000 कांस्ट रेडमी = 8500 कांस्ट विपक्ष = 18500 उप Enum_Example1 () उप सब

मैंने कॉन्स्टेबल शब्द का उपयोग करके मॉड्यूल के शीर्ष पर चर घोषित किया है।

कांस्टेबल सैमसंग = 15000

कॉन्स्ट विवो = 18000

कॉन्स्ट रेडमी = 8500

कास्ट ओप्पो = 18500

अब मुझे पता है कि ये सभी चर मोबाइल के एक समूह सदस्य हैं। अगर मैं इन चरों का उपयोग करना चाहता हूं, तो आइए हम मॉड्यूल में "विवो" कहें।

कोड:

उप Enum_Example1 () वी एंड सब

जैसा कि मैंने चरित्र "v" शुरू किया, मैं देख सकता हूं कि VBA की कई अन्य चीजें उनके साथ मिली हुई थीं, वे चीजें थीं जो अक्षर "v" से शुरू होती हैं।

यहीं पर VBA "Enumerations" की तस्वीर आती है।

बेहतर समझ के लिए, आइए सेल की पृष्ठभूमि का रंग बदलने का प्रयास करें।

कोड:

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

जैसा कि आप उपरोक्त कोड में देख सकते हैं, हम VBA में उपलब्ध सभी RGB रंगों को देख सकते हैं। ये सभी इसके साथ अद्भुत नाम वाले निरंतर हैं।

असल में, ये सभी RGB रंग " xlRGBColor " कहे जाने वाले परिवार के गणन का हिस्सा हैं ।

कोड:

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

वास्तव में इन VBA गणनाओं का उपयोग करके, मैं इस गणना के सभी समूह सदस्य तक पहुँच सकता हूँ।

कोड:

उप 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 () एंड सब

Now I have declared all the mobile brands under the “Mobiles” group by using “Enum” statements.

By using the group name “Mobiles,” now I can access all these brands in the module.

Code:

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

Select the group and put a dot to see all the members of the group.

Look, we can see only the group members of the group “Mobiles,” nothing else. This is how we can use VBA Enumerations to group a list of items under one roof.

Using VBA Enumeration Variables to Store the Data

Let’s see a simple example of using declared Enum variables. Declare Enum group name as “Department” and add department’s names as the group member.

Code:

Enum Mobiles Finance = 150000 HR = 218000 Sales = 458500 Marketing = 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:

उप Enum_Example1 () रेंज ("बी 2")। मान = विभाग। विभाग अंत उप

इसी तरह, अन्य सभी कोशिकाओं के लिए, संबंधित विभाग के नामों का चयन करें।

कोड:

उप Enum_Example1 () रेंज ("बी 2")। मान = विभाग। विभाग रेंज ("बी 3")। मूल्य = विभाग। एचआर रेंज ("बी 4")। मूल्य = विभाग। मार्केटिंग रेंज ("बी 5")। मूल्य = विभाग। .Sales अंत उप