एक्सेल VBA डबल डेटा प्रकार
वीबीए डबल एक प्रकार का डेटा प्रकार है जिसे हम वैरिएबल घोषित करने के लिए असाइन करते हैं, जो "सिंगल" डेटा टाइप वेरिएबल का एक उन्नत या लंबा संस्करण है और आमतौर पर लंबे दशमलव स्थानों को संग्रहीत करने के लिए उपयोग किया जाता है।
VBA पूर्णांक डेटा प्रकार हमेशा दशमलव मानों को निकटतम पूर्णांक मान में परिवर्तित करता है। एकल डेटा प्रकार दशमलव स्थानों के दो अंकों तक दिखा सकता है। दूसरी ओर "डबल" डेटा प्रकार नकारात्मक मूल्यों के लिए -1.79769313486231E308 से -4.94065645841247E324 तक मूल्यों को संग्रहीत कर सकता है और सकारात्मक संख्याओं के लिए यह 4.9406564541247E-324 से 1.797613486232E308 तक मूल्यों को संग्रहीत कर सकता है ।
इससे भी महत्वपूर्ण बात, यह 8 बाइट्स मेमोरी की खपत करता है।
VBA डबल डेटा प्रकार का उपयोग करने के उदाहरण
उदाहरण 1
इससे पहले कि हम "डबल" डेटा प्रकार का उदाहरण देखें, हम VBA में "इंटेगर" और "सिंगल" डेटा प्रकार के उदाहरण कोड देखें। नीचे VBA कोड देखें।
कोड:
Sub Integer_Ex () Dim k As Integer k = 2.569999947164 MsgBox k End Sub
मैंने चर "k" को पूर्णांक घोषित किया है, और इस चर के लिए, मैंने मान को 2.569999947164 के रूप में निर्दिष्ट किया है।
VBA में संदेश बॉक्स में अंतिम मान देखने के लिए, हम इस कोड को मैन्युअल रूप से चलाते हैं या एक्सेल शॉर्टकट कुंजी F5 का उपयोग करते हैं।
परिणाम 2.569999947164 की आपूर्ति संख्या के बजाय 3 के रूप में दिखा रहा है। VBA का कारण संख्या को निकटतम पूर्णांक मान यानी 3 में बदल दिया गया है।
जब दशमलव मान 0.5 से अधिक है, तो यह अगले पूर्णांक मान में बदल जाएगा, और जब दशमलव मान 0.51 से कम है, तो यह पूर्णांक मान से नीचे में बदल जाएगा।
अब मैं Integer से Single में डेटा टाइप बदलूंगा।
कोड:
Sub Integer_Ex () डिम k as सिंगल k = 2.569999947164 MsgBox k End Sub
शॉर्टकट कुंजी F5 के माध्यम से कोड चलाएं, और देखें कि हमें इस समय किस संख्या में मिलता है।
इस बार हमें 2.57 के रूप में परिणाम मिला, इसलिए इस बार हमें दो दशमलव स्थान मिले। हमने जो मूल मान दिया है, वह 2.569999947164 था, इसलिए इस मामले में, तीसरा, रखा गया दशमलव मान 9 है, इसलिए चूंकि यह 5 से अधिक है, इसलिए इसने दूसरे स्थान के दशमलव मान को 6 से 7 में बदल दिया है।
अब डेटा टाइप को सिंगल से डबल में बदलें।
कोड:
Sub Integer_Ex () डिम k अस डबल के = 2.569999947164 MsgBox k End Sub
अब कोड को मैन्युअल रूप से चलाएं और देखें कि हमें संदेश बॉक्स परिणाम में कितने अंक मिलते हैं।
इस बार सभी दशमलव मान मिले। हम डबल डेटा प्रकार के तहत दशमलव स्थानों के 14 अंकों की आपूर्ति कर सकते हैं।
मान लीजिए कि आप 14 दशमलव से अधिक किसी भी मूल्य की आपूर्ति करते हैं, निकटतम मूल्य में परिवर्तित हो जाएगा। उदाहरण के लिए, नीचे दी गई छवि देखें।
मैंने 14. के बजाय 15 दशमलव स्थान टाइप किए हैं। अगर मैं एंटर कुंजी दबाता हूं, तो यह केवल 14 अंकों में वापस आ जाएगा।
59 (अंतिम दो अंक) के बजाय, हमें 6 मिला, क्योंकि अंतिम अंक 9 है, जो 5 से अधिक है, पिछले संख्या 5 अगले पूर्णांक मान में परिवर्तित हो गया है, अर्थात 6
उदाहरण # 2
अब मैं दिखाऊंगा कि कैसे एक वर्कशीट में सेल संदर्भ के साथ काम करना है। नीचे वर्कशीट में मेरे द्वारा दर्ज किए गए नंबर हैं।
आइए हम INTEGER डेटा प्रकार, SINGLE डेटा प्रकार और DOUBLE प्रकार का उपयोग करके अगले मान कैप्चर करें ।
नीचे INTEGER डेटा प्रकार का उपयोग करके स्तंभ A से B तक मान बनाए रखने के लिए कोड है।
कोड:
Sub Double_Ex () Dim k As Integer Dim CellValue As Integer as k = 1 To 6 CellValue = Cells (k, 1) .Value Cells (k, 2) .Value = CellValue Next k End Sub Sub।
कॉलम बी में हमें कौन से मूल्य मिलते हैं यह देखने के लिए शॉर्टकट कुंजी F5 के माध्यम से कोड चलाते हैं।
जब हमने इंटेगर को डेटा प्रकार के रूप में उपयोग किया है, तो हमें सभी पूरे नंबर मिल गए, यानी बिना दशमलव के।
अब मैं पूर्णांक से एकल के VBA डेटा प्रकार को केवल चर में बदलूंगा।
कोड:
Sub Double_Ex () Dim k As Integer Dim CellValue As Single for k = 1 To 6 CellValue = Cells (k, 1) .Value Cells (k, 2) .Value = CellValue अगला k End Sub उप।
यह कोड नीचे रिजल्ट देगा।
इस बार हमें केवल दो दशमलव स्थान मिले।
अब डेटा टाइप को सिंगल से डबल में बदलता है।
कोड:
Sub Double_Ex () Dim k as Integer Dim CellValue As Double for k = 1 To 6 CellValue = Cells (k, 1) .Value Cells (k, 2) .Value = CellValue अगला k End उप उप।
यह नीचे दिए गए परिणाम को लौटाएगा।
हमें स्तंभ A से सटीक मान मिले हैं
याद रखने वाली चीज़ें
- डबल एकल डेटा प्रकार का एक बेहतर डेटा प्रकार है।
- यह 14 दशमलव स्थानों तक पकड़ सकता है।
- यह सिस्टम मेमोरी के 8 बाइट्स का उपभोग करता है।
