वीबीए: "पसंद नहीं है" का उपयोग कैसे करें? (उदाहरण सहित)

यह निर्धारित करने के लिए कि क्या स्ट्रिंग्स में कोई विशिष्ट पैटर्न नहीं है, आप वीबीए में लाइक स्टेटमेंट के साथ नॉट स्टेटमेंट का उपयोग कर सकते हैं।

उदाहरण के लिए, आप यह जांचने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं कि क्या सेल श्रेणी A2:A10 में प्रत्येक स्ट्रिंग में “हॉट” सबस्ट्रिंग नहीं है और परिणाम B2:B10 श्रेणी में प्रदर्शित कर सकते हैं:

 SubCheckNotLike ()

    Dim i As Integer
    
    For i = 2 To 10
        If Not Range(" A " & i) Like " *hot* " Then
            Range(" B " & i) = " Does Not Contain hot "
        Else
            Range(" B " & i) = " Contains hot "
        End If
    Next i
    
End Sub

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

उदाहरण: VBA में NOT LIKE का उपयोग कैसे करें

मान लीजिए कि हमारे पास एक्सेल के कॉलम ए में खाद्य पदार्थों की निम्नलिखित सूची है:

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

 SubCheckNotLike ()

    Dim i As Integer
    
    For i = 2 To 10
        If Not Range(" A " & i) Like " *hot* " Then
            Range(" B " & i) = " Does Not Contain hot "
        Else
            Range(" B " & i) = " Contains hot "
        End If
    Next i
    
End Sub

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

कॉलम बी इंगित करता है कि कॉलम ए में प्रत्येक मिलान सेल में “हॉट” सबस्ट्रिंग है या नहीं।

ध्यान दें : हमने यह इंगित करने के लिए सबस्ट्रिंग के चारों ओर तारांकन ( * ) का उपयोग किया कि कोई भी वर्ण सेल में “हॉट” स्ट्रिंग से पहले या बाद में आ सकता है।

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

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

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