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

स्ट्रिंग्स की तुलना करने के लिए आप VBA में निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: केस-संवेदी स्ट्रिंग्स की तुलना करना

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i)) = 0
    Next i
End Sub

यह मैक्रो A2:A10 और B2:B10 रेंज में मेल खाने वाले सेल में स्ट्रिंग्स के बीच केस-संवेदी स्ट्रिंग तुलना करेगा और यह इंगित करने के लिए कि स्ट्रिंग बराबर हैं या नहीं , C2:C10 रेंज में TRUE या FALSE लौटाएगा।

विधि 2: केस-असंवेदनशील स्ट्रिंग तुलना

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i), vbTextCompare) = 0
    Next i
End Sub

यह मैक्रो A2:A10 और B2:B10 रेंज में मेल खाने वाले सेल में स्ट्रिंग्स के बीच केस-असंवेदनशील स्ट्रिंग तुलना करेगा।

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में स्ट्रिंग्स की निम्नलिखित सूचियों के साथ अभ्यास में प्रत्येक विधि का उपयोग कैसे करें:

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

हम कॉलम ए और बी में प्रत्येक मिलान स्ट्रिंग के बीच केस-संवेदी स्ट्रिंग तुलना करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i)) = 0
    Next i
End Sub

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

यदि स्ट्रिंग समान हैं और उनका मामला समान है तो कॉलम सी सत्य लौटाता है।

अन्यथा, कॉलम C FALSE लौटाता है।

उदाहरण 2: वीबीए में केस-असंवेदनशील स्ट्रिंग्स की तुलना करना

हम कॉलम ए और बी में प्रत्येक मिलान स्ट्रिंग के बीच केस-असंवेदनशील स्ट्रिंग तुलना करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i), vbTextCompare) = 0
    Next i
End Sub

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

यदि स्ट्रिंग समान हैं, तो कॉलम C TRUE लौटाता है, चाहे कोई भी मामला हो।

कॉलम C FALSE तभी लौटाता है जब तार समान न हों।

नोट : आप VBA में StrComp फ़ंक्शन का पूरा दस्तावेज़ यहां पा सकते हैं।

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

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

वीबीए: स्ट्रिंग में वर्णों को कैसे बदलें
वीबीए: स्ट्रिंग से विशेष वर्ण कैसे हटाएं
वीबीए: स्ट्रिंग को इंट में कैसे बदलें