पूर्णांक VBA में एक डेटा प्रकार है जो पूर्णांक मान रखने के लिए किसी भी चर को दिया जाता है, पूर्णांक चर की संख्या के लिए सीमाएं या ब्रैकेट धारण कर सकते हैं VBA के समान है अन्य भाषाओं के रूप में, किसी भी चर को पूर्णांक के रूप में परिभाषित किया गया है VBA में DIM स्टेटमेंट या कीवर्ड का उपयोग करके परिवर्तनशील।
एक्सेल वीबीए इंटेगर
किसी भी कोडिंग भाषा में डेटा प्रकार इतने महत्वपूर्ण होते हैं क्योंकि सभी वैरिएबल घोषणा को उन वेरिएबल्स को असाइन करने वाले डेटा प्रकार का पालन करना चाहिए। हमारे पास काम करने के कई डेटा प्रकार हैं, और प्रत्येक डेटा प्रकार के अपने फायदे और इसके साथ जुड़े नुकसान हैं। जब हम घोषित कर रहे हैं चर विशेष डेटा प्रकार के बारे में जानकारी जानना महत्वपूर्ण है। यह VBA में "पूर्णांक" डेटा प्रकार के लिए समर्पित लेख है। हम आपको "पूर्णांक" डेटा प्रकार की पूरी तस्वीर दिखाएंगे।
Integer Data Type क्या है?
पूर्णांक पूर्णांक हैं, जो सकारात्मक, नकारात्मक और शून्य हो सकते हैं, लेकिन एक भिन्नात्मक संख्या नहीं है। वीबीए के संदर्भ में, "इंटेगर" एक डेटा प्रकार है जिसे हम चर के लिए असाइन करते हैं। यह एक संख्यात्मक डेटा प्रकार है जो दशमलव पदों के बिना पूरे संख्याओं को पकड़ सकता है। पूर्णांक डेटा प्रकार 2 बाइट्स का संग्रहण, जो VBA LONG डेटाटाइप का आधा है अर्थात 4 बाइट्स।
एक्सेल VBA इंटेगर डेटा टाइप के उदाहरण
नीचे VBA Integer Data प्रकार के उदाहरण दिए गए हैं।
उदाहरण 1
जब हम एक वैरिएबल की घोषणा करते हैं, तो इसके लिए एक डेटा प्रकार निर्दिष्ट करना आवश्यक है और उनमें से एक को पूर्णांक करना होता है, जो आमतौर पर सभी उपयोगकर्ताओं द्वारा आवश्यकताओं के आधार पर उपयोग किया जाता है।
जैसा कि मैंने कहा, एक पूर्णांक केवल पूर्ण संख्याओं को पकड़ सकता है, किसी अंश को नहीं। VBA पूर्णांक डेटा प्रकार का उदाहरण देखने के लिए नीचे दिए गए चरणों का पालन करें।
चरण 1: चर को पूर्णांक के रूप में घोषित करें।
कोड:
उप Integer_Example () Dim k As Integer End Sub
चरण 2: चर "k" के लिए 500 का मान निर्दिष्ट करें।
कोड:
उप Integer_Example1 () Dim k As Integer k = 500 End उप
चरण 3: VBA संदेश बॉक्स में मान दिखाएं।
कोड:
उप Integer_Example1 () Dim k As Integer k = 500 MsgBox k End Sub
जब हम F5 कुंजी या मैन्युअल का उपयोग करके कोड चलाते हैं, तो हम संदेश बॉक्स में 500 देख सकते हैं।
उदाहरण # 2
अब मैं "k" चर के लिए मान 500 के रूप में निर्दिष्ट करूँगा।
कोड:
उप Integer_Example2 () Dim k As Integer k = -500 MsgBox k End Sub
इस कोड को मैन्युअल रूप से चलाएँ या F5 दबाएँ। फिर, यह संदेश बॉक्स में -500 का मान भी दिखाएगा।
उदाहरण # 3
जैसा कि मैंने वीबीए को बताया, इंटेगर डेटा टाइप केवल पूर्ण संख्याओं को पकड़ सकता है, न कि अंश संख्याओं जैसे 25.655 या 47.145 को।
हालाँकि, मैं अंश संख्या को VBA Integer data type में निर्दिष्ट करने का प्रयास करूंगा। उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
उप Integer_Example3 () Dim k As Integer k = 85.456 MsgBox k End Sub
मैंने "k" चर को 85.456 दिया है। परिणाम देखने के लिए मैं यह VBA कोड चलाऊंगा।
- यह परिणाम 85 के रूप में लौटा है, भले ही मैंने अंश संख्या का मान असाइन किया हो। इसका कारण VBA के पास संख्याओं को निकटतम पूर्णांक में गोल करना है।
- सभी अंश संख्याएं, जो 0.5 से कम हैं, को निकटतम पूर्णांक तक गोल किया जाएगा। एक उदाहरण के लिए 2.456 = 2, 45.475 = 45।
- सभी अंश संख्याएं, जो 0.5 से अधिक हैं, को निकटतम पूर्णांक तक गोल किया जाएगा। उदाहरण के लिए 10.56 = 11, 14.789 = 15।
राउंडअप पूर्णांक पर एक और नज़र डालने के लिए "k" का मूल्य 85.58 है।
कोड:
उप Integer_Example3 () Dim k As Integer k = 85.58 MsgBox k End Sub
जब मैं F5 कुंजी या मैन्युअल का उपयोग करके इस कोड को चलाता हूं, तो यह 86 वापस आ जाएगा क्योंकि 0.5 से अधिक कुछ भी अगले पूर्णांक संख्या तक गोल होगा।
एक्सेल VBA में इंटेगर डेटा टाइप की सीमाएँ
अतिप्रवाह त्रुटि: पूर्णांक डेटा प्रकार तब तक ठीक काम करना चाहिए जब तक कि असाइन किया गया मान -32768 से 32767 के बीच न हो। जिस क्षण यह दोनों ओर की सीमा को पार कर जाता है, यह आपके लिए त्रुटि का कारण होगा।
उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
उप Integer_Example4 () Dim k As Integer k = 40000 MsgBox k End Sub
मैंने चर "k" को 40000 का मान दिया है।
चूँकि मुझे निश्चित रूप से पूर्णांक डेटा प्रकार का ज्ञान है, मुझे पता है कि यह काम नहीं करता है क्योंकि पूर्णांक डेटा प्रकार 326767 से अधिक मूल्य नहीं रख सकता है।
आइए कोड को मैन्युअल रूप से या F5 कुंजी के माध्यम से चलाएं और देखें कि क्या होता है।
उफ़ !!!
मुझे "अतिप्रवाह" के रूप में त्रुटि मिली क्योंकि पूर्णांक डेटा प्रकार सकारात्मक संख्याओं के लिए 32767 से अधिक और नकारात्मक संख्याओं के लिए -32768 से अधिक कुछ भी नहीं पकड़ सकता है।
प्रकार बेमेल त्रुटि: पूर्णांक डेटा केवल -32768 से 32767 के बीच संख्यात्मक मान रख सकता है। मान लीजिए कि इन संख्याओं से अधिक असाइन की गई कोई भी संख्या अतिप्रवाह त्रुटि दिखाएगी।
अब मैं इसे पाठ या स्ट्रिंग मान निर्दिष्ट करने का प्रयास करूंगा। नीचे दिए गए उदाहरण कोड में, मैंने "हैलो" के रूप में मान असाइन किया है।
कोड:
उप Integer_Example4 () Dim k As Integer k = "हैलो" MsgBox k End Sub
मैं इस कोड को रन विकल्प या मैन्युअल रूप से चलाऊंगा और देखूंगा कि क्या होता है।
यह "टाइप मिसमैच" के रूप में त्रुटि दिखा रहा है क्योंकि हम चर "पूर्णांक डेटा प्रकार" के लिए कोई पाठ मान निर्दिष्ट नहीं कर सकते हैं।
