Vba में एक स्ट्रिंग को पूर्णांक में कैसे बदलें (उदाहरण के साथ)

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

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

विधि 1: VBA में स्ट्रिंग को पूर्णांक में बदलें

 Sub ConvertStringToInteger()

    Dim i As Integer

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

End Sub

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

विधि 2: VBA में स्ट्रिंग को पूर्णांक में बदलें (केवल यदि स्ट्रिंग एक संख्या है)

 Sub ConvertStringToInteger()

    Dim i As Integer

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

End Sub

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

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

उदाहरण 1: VBA में स्ट्रिंग को पूर्णांक में बदलें

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

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

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

 Sub ConvertStringToInteger()

    Dim i As Integer

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

End Sub

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

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

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

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

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

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

 Sub ConvertStringToInteger()

    Dim i As Integer

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

End Sub

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

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

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

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

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

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

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