टाइप VBA में एक स्टेटमेंट है, जिसका उपयोग DIM फ़ंक्शन के समान वेरिएबल्स को परिभाषित करने के लिए किया जाता है, इसका उपयोग उपयोगकर्ता-परिभाषित स्तर पर किया जाता है, जहां हमारे पास एक या एक से अधिक मान होते हैं, टाइप स्टेटमेंट के लिए दो नामकरण होते हैं, जो सार्वजनिक या निजी होते हैं ये उपयोग करने के लिए वैकल्पिक हैं, लेकिन चर नाम और तत्व नाम की आवश्यकता है।
एक्सेल VBA में टाइप स्टेटमेंट क्या है?
VBA टाइप स्टेटमेंट का उपयोग एक एकल समूह नाम के तहत चर को परिभाषित करने के लिए किया जाता है, जिसमें प्रत्येक चर के लिए अलग-अलग डेटा प्रकार होते हैं। यह हमें परिभाषित प्रकार के नाम के तहत उनका उपयोग करने के लिए एक ही वस्तु के तहत एक साथ कई चर समूह में मदद करता है।
टाइप स्टेटमेंट घोषित करके, हम VBA में क्लास मॉड्यूल का उपयोग करने से बच सकते हैं। इसे किसी भी स्ट्रिंग मॉड्यूल की आवश्यकता नहीं है क्योंकि इसे पहले से मौजूद मॉड्यूल में एम्बेड किया जा सकता है, जो हमें अंतरिक्ष को बचा सकता है।
पहले के एक लेख में, हमने "VBA ENUM" पर चर्चा करने के लिए एकल समूह नाम के तहत सभी चर को एक साथ समूह में लाने के लिए चर्चा की है।
उदाहरण के लिए, यदि आपके पास "मोबाइल्स" नामक एक समूह का नाम है, तो हमारे पास "रेडमी, ओप्पो, विवो, सैमसंग, एलजी और आदि जैसे समूह के सदस्य हैं।"
Enum मोबाइल्स
रेडमी = 12000
ओप्पो = 18000
विवो = 18000
सैमसंग = 25000
एलजी = 15000
एन्ड एनम
इस तरह, हमने उस लेख में गणनाएँ बनाई हैं। Enum स्टेटमेंट के साथ समस्या यह है कि यह केवल एक LONG डेटा प्रकार पकड़ सकता है। विभिन्न डेटा प्रकारों के साथ एक साथ चर समूह बनाने के लिए, हम "VBA TYPE स्टेटमेंट" का उपयोग कर सकते हैं। इस लेख में, हम आपको दिखाएंगे कि वीबीए में टाइप स्टेटमेंट कैसे बनाया जाए। पढ़ते रहिये…
वाक्य - विन्यास
टाइप स्टेटमेंट का उपयोग करके चर घोषित करने से पहले, सिंटैक्स पर एक नज़र डालें:
प्रकार समूह का नाम (चर 1) चर डेटा प्रकार के रूप में (चर 2) चर डेटा प्रकार के रूप में (चर 3) चर डेटा प्रकार के रूप में (चर 4) चर डेटा प्रकार के रूप में (चर 5) चर डेटा प्रकार अंत प्रकार के रूप में।
इस प्रकार के बयानों को मॉड्यूल के भीतर और साथ ही मॉड्यूल के शीर्ष पर घोषित किया जा सकता है, जैसे VBA में हमारे वैश्विक चर।
VBA प्रकार ऑब्जेक्ट चर को पकड़ सकता है। यह सरणियाँ पकड़ सकता है। हालाँकि, इसमें कार्यविधियाँ, कार्य शामिल नहीं हो सकते हैं।
VBA में टाइप स्टेटमेंट उदाहरण
ठीक है, टाइप स्टेटमेंट के साथ चर घोषित करने की प्रक्रिया शुरू करें। हम मोबाइल ब्रांडों को घोषित करने का एक ही उदाहरण देखेंगे जैसे हमने VBA Enum में कैसे उपयोग किया है।
चरण 1: मॉड्यूल के शीर्ष पर, शब्द "टाइप" शुरू करें और समूह के प्रकार को एक नाम दें।
कोड:
मोबाइलब्रांड अंत प्रकार लिखें
चरण 2: मोबाइल ब्रांड्स में, आमतौर पर हम कौन सी चीजें देखते हैं। हम नाम देखते हैं, इसलिए पहले नाम को स्ट्रिंग के रूप में घोषित करें।
कोड:
MobileBrands का नाम String End प्रकार है
चरण 3: नाम के बाद, हम लॉन्च की तारीख की जांच करते हैं। लॉन्चडेट को दिनांक के रूप में चर घोषित करें।
कोड:
MobileBrands का नाम स्ट्रिंग के रूप में लॉन्च दिनांक तिथि के रूप में लिखें
चरण 4: अगली बात यह है कि हम भंडारण क्षमता की जांच कर रहे हैं। वैरिएबल को इंटेगर के रूप में स्टोरेज घोषित करने के लिए।
कोड:
टाइप करने के लिए लॉन्च संग्रहण के रूप में नाम के रूप में MobileBrands नाम अंतरण भंडारण के रूप में लॉन्च करें
चरण 5: अगली बात यह है कि हम रैम की क्षमता की जांच करते हैं।
कोड:
MobileBrands का नाम String LaunchDate के रूप में दिनांक संग्रहण के रूप में RAM पूर्णांक अंत प्रकार के रूप में है
चरण 6: अंत में, हम मूल्य के बारे में जाँच करते हैं।
कोड:
टाइप करें MobileBrands का नाम String LaunchDate के रूप में दिनांक संग्रहण के रूप में पूर्णांक के रूप में पूर्णांक के रूप में रैम रैम
अब उप प्रक्रिया में वेरिएबल को टाइप, नाम, अर्थात, मोबाइलब्रांड के रूप में घोषित करके, हम इन सभी वैरिएबल डेटा प्रकारों तक पहुँच सकते हैं।
चरण 7: एक उपप्रकार बनाएँ।
कोड:
उप Type_Example1 () सब उप
चरण 8: अब मोबाइल “मोबाइल” के रूप में चर “मोबाइल” की घोषणा करें।
कोड:
Sub Type_Example1 () मंद मोबाइल अस मोब एंड उप
चरण 9: अब, "मोबाइल" के चर नाम के साथ, हम "मोबाइलब्रांड" के सभी चर का उपयोग कर सकते हैं।
कोड:
चरण 10: अब प्रत्येक मूल्य को नीचे की तरह संग्रहीत करें।
कोड:
मोबाइल ब्रैड्स का नाम स्ट्रिंग लॉन्च के रूप में दिनांक भंडारण के रूप में इंटेगर रैम के रूप में इंटर्जर मूल्य के रूप में लंबे समय तक उप प्रकार_Example1 () मोबाइल के रूप में मोबाइलब्रांड Mobile.Name = "Redmi" Mobile.LaunchDad = "10-Jan-2019" Mobile.Storage = 62 Mobile.RAM = 6 Mobile.Price = 16500 MsgBox Mobile.Name & vbNewLine & Mobile.LaunchDate & vbNewLine & _ Mobile.Storage और vbNewLine और Mobile.Ram और vbNewLine और Mobile.Price समाप्ति उप सब
Finally, show the result in a VBA message box like the below one.
Code:
Sub Type_Example1() Dim Mobile As MobileBrands Mobile.Name = "Redmi" Mobile.LaunchDate = "10-Jan-2019" Mobile.Storage = 62 Mobile.RAM = 6 Mobile.Price = 16500 MsgBox Mobile.Name & vbNewLine & Mobile.LaunchDate & vbNewLine & _ Mobile.Storage & vbNewLine & Mobile.RAM & vbNewLine & Mobile.Price End Sub
Now run the code using the F5 key or manually and see the result in a message box.
Like this, we can use the “VBA Type” statement to define new data types in the subprocedure.
VBA Types vs. VBA Class
VBA Type is often compared to VBA Class modules. There are certain differences between them. Below are the common differences.
- अंतर 1: VBA प्रकार में केवल सार्वजनिक चर हो सकते हैं। VBA क्लास में पब्लिक के साथ-साथ प्राइवेट वैरिएबल भी हो सकते हैं।
- अंतर 2: VBA प्रकार में प्रक्रियाएं और कार्य शामिल नहीं हो सकते। VBA क्लास में गुणों के साथ-साथ दोनों शामिल हैं।
- अंतर 3: VBA प्रकार को किसी भी मॉड्यूल और प्रक्रियाओं में घोषित किया जा सकता है। VBA क्लास को केवल समर्पित क्लास मॉड्यूल में घोषित किया जा सकता है।
