वीबीए: "यदि सेल में शामिल है" के लिए एक सरल सूत्र

आप वीबीए में “यदि सेल में शामिल है” के लिए सूत्र का उपयोग करने के लिए निम्नलिखित मूल वाक्यविन्यास का उपयोग कर सकते हैं:

 Sub IfContains()
    Dim i As Integer

    For i = 2 To 8
        If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then
        Result = " Contains Turtle "
        Else
        Result = “ Does Not Contain Turtle ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

यह विशेष उदाहरण जाँचता है कि क्या श्रेणी A2:A8 में प्रत्येक कोशिका में “कछुआ” है, फिर श्रेणी B2:B8 में प्रत्येक मेल खाने वाली कोशिका को “कछुआ शामिल है” या “कछुआ शामिल नहीं है” निर्दिष्ट करता है।

ध्यान दें : इंस्ट्र विधि जांच करती है कि क्या एक स्ट्रिंग में कोई अन्य स्ट्रिंग है और LCase विधि केस-असंवेदनशील खोज करने के लिए टेक्स्ट को लोअरकेस में परिवर्तित करती है।

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

उदाहरण: वीबीए में “यदि सेल शामिल है” का उपयोग कैसे करें

मान लीजिए कि हमारे पास एक्सेल में सेल की निम्नलिखित सूची है, जिनमें से प्रत्येक में अलग-अलग टेक्स्ट हैं:

मान लीजिए हम यह जांचना चाहते हैं कि श्रेणी A2:A8 में प्रत्येक सेल में “कछुआ” टेक्स्ट है या नहीं और श्रेणी B2:B8 में संबंधित कोशिकाओं में परिणाम प्रदर्शित करें।

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

 Sub IfContains()
    Dim i As Integer

    For i = 2 To 8
        If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then
        Result = " Contains Turtle "
        Else
        Result = “ Does Not Contain Turtle ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

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

कॉलम बी हमें बताता है कि कॉलम ए में संबंधित कोशिकाओं में पाठ में कहीं “कछुआ” है या नहीं।

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

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

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

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