VBA शब्दकोश - एक्सेल वीबीए शब्दकोशों के साथ काम करने के लिए गाइड

एक्सेल VBA शब्दकोश

VBA डिक्शनरी का उपयोग करके हम एक एकल चर के साथ सभी वस्तुओं तक पहुंच प्राप्त करने के लिए सभी प्रकार के डेटा को एक शब्दकोश में समूहित कर सकते हैं। हम कुंजी-मूल्य संयोजनों का संग्रह बनाने के लिए शब्दकोश का उपयोग कर सकते हैं। एक बार जब ऑब्जेक्ट कुंजियों से जुड़ा होता है, तो बाद में, हम कुंजी नाम का उपयोग करके उन्हें कॉल कर सकते हैं।

वीबीए डिक्शनरी को अंदर लाना बहुत कठिन है, लेकिन हम अपने स्तर पर पूरी कोशिश करेंगे कि आपको समझने में आसानी हो। हम एक ही पैमाने पर शब्दकोश और संग्रह दोनों की तुलना कर सकते हैं, लेकिन वीबीए शब्दकोशों में से कुछ कार्यात्मकताएं प्रदान करते हैं जो वीबीए कलेक्शन ऑब्जेक्ट के साथ उपलब्ध नहीं हैं।

VBA शब्दकोशों के साथ काम करना

VBA डिक्सेस के साथ काम करने के लिए सबसे पहले हमें 'Microsoft स्क्रिप्टिंग रनटाइम' के लिए ऑब्जेक्ट रेफरेंस सेट करना होगा।

नीचे दिए गए चरणों का पालन करने के लिए संदर्भ सेट करें।

चरण 1: उपकरण> संदर्भ पर जाएं।

चरण 2: नीचे स्क्रॉल करें और 'Microsoft स्क्रिप्टिंग रनटाइम' विकल्प चुनें और फिर ठीक पर क्लिक करें।

अब हम VBA डिक्शनरी को स्क्रिप्टिंग लाइब्रेरी के साथ एक्सेस कर सकते हैं।

VBA कोड के साथ शब्दकोश का उदाहरण बनाएँ

'Microsoft स्क्रिप्टिंग रनटाइम' के संदर्भ को सेट करने के बाद, हमें VBA शब्दकोश का एक उदाहरण बनाने की आवश्यकता है। सबसे पहले, वैरिएबल को स्क्रिप्टिंग.शेयर घोषित करें ।

कोड:

उप Dict_Example1 () स्क्रिप्टिंग के रूप में मंद डिक्ट

अब चर "डिक्ट" एक वस्तु चर है। ऑब्जेक्ट चर के लिए, हमें "नया" शब्द का उपयोग करके ऑब्जेक्ट संदर्भ सेट करना होगा।

सेट डिक्ट = नई स्क्रिप्टिंग। छाया

अब हम शब्दकोश के सभी गुणों और विधियों तक पहुँच सकते हैं।

नोट: सभी हरे बटन वाले शब्द मेथड हैं, और अन्य गुण हैं।

अब एक चर को DictResult घोषित करें।

डिम डिक्टास्कुल्ट वेरिएंट के रूप में

अब "डिक्ट" चर का उपयोग करते हुए, हम एक नई कुंजी बनाएंगे।

कुंजी वह शब्द है जिसे हम जोड़ रहे हैं। चलो "Redmi" के रूप में मोबाइल फोन का नाम जोड़ें।

आइटम कुछ भी नहीं है, लेकिन हमने जो शब्द ( कुंजी ) की परिभाषा जोड़ी है। फोन की यह परिभाषा इसकी कीमत है, इसलिए मैं कीमत को 15000 में जोड़ दूंगा।

अब एक अन्य चर "DictResult" के लिए, हम "Dict" चर का उपयोग करके एक कीवर्ड जोड़ेंगे।

कुंजी वह शब्द है जिसे हमने पिछले चरण में बनाया है, फोन का नाम।

अब चर "DictResult" में हमारे द्वारा जोड़ी गई कुंजी का आइटम है। अब VBA संदेश बॉक्स में चर का परिणाम दिखाएं।

कोड:

उप Dict_Example1 () स्क्रिप्टिंग के रूप में डिम डिक्ट। पर सेट डिक्ट = नई स्क्रिप्टिंग।

अब कोड को मैन्युअल रूप से चलाएं या F5 कुंजी का उपयोग करें, और एक संदेश बॉक्स आपको फोन ( कुंजी ) की कीमत ( आइटम ) दिखाएगा जो हमने "डिक्ट" का उपयोग करके जोड़ा है।

प्रमुख और ITEM को समझना

यदि आप KEY और ITEM को नहीं समझ पाए हैं, तो मैं आपको एक सरल उदाहरण के साथ समझाता हूं। एक वास्तविक दुनिया शब्दकोश की कल्पना करो। इस शब्दकोश के साथ, हमारे पास शब्द (चाबियाँ) और उन शब्दों (आइटम) का अर्थ है। इसी तरह, शब्द कुंजी हैं, और परिभाषा या अर्थ आइटम है।

अब, एक शब्दकोश के एक और उदाहरण को देखें। मान लें कि आप किसी विशेष व्यक्ति का फ़ोन नंबर खोज रहे हैं। आप कैसे खोजते हैं?

जाहिर है, नाम का उपयोग करके, हमने फोन नंबर को सहेजते समय उपयोग किया है। यहाँ हमारे पास दो चीजें हैं एक व्यक्ति का नाम है और दूसरा फोन नंबर है।

The name of the Person is Key.

The Phone Number is Item.

If you want the example of Excel, we can give VLOOKUP as an example. We use the formula to look for values based on the LOOKUP VALUE (Key). The result returned by the VLOOKUP function is called Item.

Check Whether the Mobile Phone is there or not.

Imagine you are giving a user form to your customers to check the mobile phone’s price with a simple input box. Below Excel VBA code will present an Input Box in front of the user, and they need to enter the brand of the phone they are looking for. If the brand name is there in the dictionary, it will show the price of the respective phone, or else it will display the message as “Phone You are Looking for Doesn’t Exist in the Library.”

Code:

Sub Dict_Example2 () स्क्रिप्टिंग के रूप में डिम फोनडिक्ट। धीर सेट के रूप में डिम डिक्टिस्कल = नया स्क्रिप्टिंग। छाया फोनडिक्ट। कुंजी: = "Redmi", आइटम: = 15000 फोनडिक्ट। एड कुंजी: = "सैमसंग", आइटम: = 25000 फोनडिक्ट। .Add कुंजी: = "ओप्पो", आइटम: = 20000 PhoneDict.Add कुंजी: = "VIVO", आइटम: = 21000 PhoneDict.Add कुंजी: = "Jio", आइटम: = 2500 DictResult / Application.InputBox (Prompt: =) "कृपया फ़ोन का नाम दर्ज करें") यदि PhoneDict.Exists (DictResult) तो MsgBox "फ़ोन की कीमत" और DictResult & "है:" और PhoneDict (DictResult) Else MsgBox "फ़ोन जिसे आप देख रहे हैं, वह इसमें मौजूद नहीं है" लाइब्रेरी "एंड इफ एंड एंड सब

इस कोड को F5 कुंजी या मैन्युअल रूप से चलाएं और परिणाम देखें।