वीबीए: यदि सेल में कोई विशिष्ट मान है तो सामग्री को कैसे साफ़ करें

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

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

यह विशेष मैक्रो A2:A11 श्रेणी में प्रत्येक सेल की सामग्री को साफ़ कर देगा जो “Mavs” के बराबर है।

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

उदाहरण: यदि सेल में कोई विशिष्ट मान है तो सामग्री साफ़ करने के लिए VBA का उपयोग करें

मान लीजिए कि हमारे पास विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी वाली एक एक्सेल शीट है:

मान लीजिए कि हम टीम कॉलम में “Mavs” के बराबर प्रत्येक सेल की सामग्री को साफ़ करना चाहते हैं।

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

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

एक बार जब यह मैक्रो निष्पादित हो जाता है, तो टीम कॉलम में “Mavs” मान वाले सभी सेल साफ़ हो जाएंगे:

यदि आप इसके बजाय टीम कॉलम में “Mavs” मान के साथ प्रत्येक पंक्ति में सभी कक्षों को साफ़ करना चाहते हैं, तो आप निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

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

ध्यान दें कि टीम कॉलम में “Mavs” वाली प्रत्येक पंक्ति के सभी सेल साफ़ कर दिए गए हैं।

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

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

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

वीबीए: अंतिम प्रयुक्त पंक्ति कैसे खोजें
वीबीए: अंतिम प्रयुक्त कॉलम कैसे खोजें
वीबीए: सभी शीट कैसे प्रदर्शित करें