वीबीए में एक स्ट्रिंग को लॉन्ग में कैसे बदलें (उदाहरण के साथ)

आप टेक्स्ट स्ट्रिंग को लंबे डेटा प्रकार में बदलने के लिए VBA में CLng फ़ंक्शन का उपयोग कर सकते हैं।

व्यवहार में इस सुविधा का उपयोग करने के दो सामान्य तरीके यहां दिए गए हैं:

विधि 1: वीबीए में स्ट्रिंग को लॉन्ग में बदलें

 Sub ConvertStringToLong ()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CLng(Range(" A " & i))
    Next i

End Sub

यह विशेष मैक्रो प्रत्येक स्ट्रिंग को श्रेणी A2:A11 में एक लंबे डेटा प्रकार में बदल देगा और श्रेणी B2:B11 में लंबे मान प्रदर्शित करेगा।

विधि 2: वीबीए में एक स्ट्रिंग को लॉन्ग में बदलें (केवल यदि स्ट्रिंग एक संख्या है)

 Sub ConvertStringToLong()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CLng(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

यह विशेष मैक्रो प्रत्येक स्ट्रिंग को श्रेणी A2:A11 में केवल एक लंबे डेटा प्रकार में परिवर्तित करेगा यदि स्ट्रिंग एक संख्या है। अन्यथा, स्ट्रिंग को शून्य मान में बदल दिया जाएगा।

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में प्रत्येक विधि का उपयोग कैसे करें।

उदाहरण 1: वीबीए में एक स्ट्रिंग को लॉन्ग में बदलें

मान लें कि हमारे पास एक्सेल में मानों का निम्नलिखित कॉलम है, जो वर्तमान में टेक्स्ट स्ट्रिंग्स के रूप में स्वरूपित है:

मान लीजिए कि हम प्रत्येक स्ट्रिंग को एक लंबे डेटा प्रकार में परिवर्तित करना चाहते हैं और इसे कॉलम बी में प्रदर्शित करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub ConvertStringToLong ()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CLng(Range(" A " & i))
    Next i

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि कॉलम ए में प्रत्येक टेक्स्ट स्ट्रिंग को एक लंबे डेटा प्रकार में परिवर्तित कर दिया गया है और कॉलम बी में प्रदर्शित किया गया है।

उदाहरण 2: वीबीए में एक स्ट्रिंग को लॉन्ग में बदलें (केवल अगर स्ट्रिंग एक संख्या है)

मान लें कि हमारे पास एक्सेल में मानों का निम्नलिखित कॉलम है, जो वर्तमान में टेक्स्ट स्ट्रिंग्स के रूप में स्वरूपित है:

मान लीजिए कि हम प्रत्येक स्ट्रिंग को एक लंबे डेटा प्रकार में परिवर्तित करना चाहते हैं , यदि स्ट्रिंग एक संख्या है और उन्हें कॉलम बी में प्रदर्शित करें।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub ConvertStringToLong()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CLng(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि कॉलम ए में केवल टेक्स्ट स्ट्रिंग जो संख्याएं हैं, कॉलम बी में लंबे डेटा प्रकारों में परिवर्तित हो जाती हैं।

अन्यथा, टेक्स्ट स्ट्रिंग्स को बस शून्य मान में बदल दिया जाता है।

नोट : आप VBA CLng फ़ंक्शन के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: स्ट्रिंग से रिक्त स्थान कैसे हटाएं
वीबीए: एक स्ट्रिंग में वर्णों की घटनाओं की गणना कैसे करें
वीबीए: कैसे जांचें कि एक स्ट्रिंग में दूसरी स्ट्रिंग है या नहीं