यह आलेख VBA में VarType फ़ंक्शन के उपयोग को प्रदर्शित करेगा।
VarType का अर्थ है वेरिएबल टाइप। हम वेरिएबल के नाम को VarType फ़ंक्शन में आपूर्ति कर सकते हैं, और यह एक पूर्णांक लौटाएगा जो VBA स्थिरांक की सूची के अनुसार उस वेरिएबल में संग्रहीत डेटा के प्रकार को दर्शाता है।
VarType खोजने के लिए वैरिएंट वेरिएबल का उपयोग करना
हम एक वेरिएबल को वेरिएबल वेरिएबल के रूप में घोषित कर सकते हैं। यह हमें इसमें किसी भी प्रकार के अनुमत डेटा को स्टोर करने की अनुमति देगा। फिर हम इस वेरिएबल को पॉप्युलेट कर सकते हैं, और यह देखने के लिए VarType फ़ंक्शन का उपयोग कर सकते हैं कि वेरिएबल में किस प्रकार का डेटा है।
उदाहरण के लिए:
12345 | उप टेस्टवार टाइप ()Dim MyVariable as VariantMyVariable = "हैलो वर्ल्ड"MsgBox "चर का प्रकार है" और VarType(MyVariable)अंत उप |
यह निम्न संदेश बॉक्स लौटाएगा:
इसलिए 8 का मान लौटाया जाता है। यह एक एक्सेल कॉन्स्टेंट में होता है जो वैरिएबल में संग्रहीत डेटा के प्रकार को परिभाषित करता है।
यह स्थिर मान नीचे दी गई तालिका से मेल खाता है:
लगातार | मूल्य | विवरण |
---|---|---|
वीबीखाली | 0 | खाली (प्रारंभिक) |
vbNull | 1 | शून्य (कोई मान्य डेटा नहीं) |
वीबीइंटेगर | 2 | पूर्णांक |
वीबीलांग | 3 | लंबा पूर्णांक |
वीबीएकल | 4 | एकल-सटीक फ़्लोटिंग-पॉइंट नंबर |
वीबीडबल | 5 | डबल-सटीक फ़्लोटिंग-पॉइंट नंबर |
वीबीमुद्रा | 6 | मुद्रा मूल्य |
वीबीडेट | 7 | दिनांक मान |
वीबीस्ट्रिंग | 8 | डोरी |
वीबीऑब्जेक्ट | 9 | वस्तु |
वीबीत्रुटि | 10 | त्रुटि मान |
वीबीबूलियन | 11 | बूलियन मान |
वीबीवेरिएंट | 12 | प्रकार (केवल वेरिएंट की सरणियों के साथ प्रयोग किया जाता है) |
वीबीडेटाऑब्जेक्ट | 13 | एक डेटा एक्सेस ऑब्जेक्ट |
वीबीदशमलव | 14 | दशमलव मान |
वीबीबाइट | 17 | बाइट मान |
वीबीलॉन्गलांग | 20 | LongLong पूर्णांक (केवल 64-बिट प्लेटफॉर्म पर मान्य) |
vbउपयोगकर्ता परिभाषित प्रकार | 36 | वेरिएन्ट जिनमें उपयोगकर्ता-परिभाषित प्रकार होते हैं |
वीबीएरे | 8192 | ऐरे (इस फ़ंक्शन द्वारा लौटाए जाने पर हमेशा दूसरे स्थिरांक में जोड़ा जाता है) |
हम एक और उदाहरण आजमा सकते हैं:
12345 | उप टेस्टवार टाइप ()डिम माईवेरिएबल एज़ वेरियंटMyVariable = 32760MsgBox "चर का प्रकार है" और VarType(MyVariable)अंत उप |
इस बार संदेश बॉक्स 2 लौटाएगा क्योंकि चर में संग्रहीत डेटा का प्रकार पूर्णांक है।
हालाँकि, यदि हम मान को 32780 में बदलते हैं, तो मान वापसी 3 होगी - एक पूर्णांक डेटा प्रकार के रूप में लंबा पूर्णांक का अधिकतम मान 32767 है; जिसके बाद यह एक लंबा पूर्णांक है।
अगर हम एक बार फिर कोड में संशोधन करते हैं:
12345 | उप टेस्टवार टाइप ()डिम माईवेरिएबल एज़ वेरियंटMyVariable = ३२७६०.५२MsgBox "चर का प्रकार है" और VarType(MyVariable)अंत उप |
अब हमें 5 का मान लौटाया जाएगा - दशमलव स्थानों के कारण डेटा प्रकार डबल है।
यदि हम वेरिएबल में वैल्यू को कोट्स में डालते हैं, तो एक बार फिर से 8 वापस कर दिया जाएगा क्योंकि कोट्स में निहित कोई भी वैल्यू स्ट्रिंग वैल्यू के रूप में स्टोर हो जाती है।
12345 | उप टेस्टवार टाइप ()Dim MyVariable as VariantMyVariable = "32760.52"MsgBox "चर का प्रकार है" और VarType(MyVariable)अंत उप |