वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें

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

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

यह विशेष उदाहरण श्रेणी A2:A13 में उन कक्षों की संख्या की गणना करता है जिनमें “avs” शामिल हैं, फिर परिणाम को कक्ष D2 को निर्दिष्ट करता है।

ध्यान दें : काउंटिफ़ फ़ंक्शन में तारांकन ( * ) का उपयोग वाइल्डकार्ड के रूप में किया जाता है।

यदि आप इसके बजाय किसी संदेश बॉक्स में कक्षों की संख्या प्रदर्शित करना चाहते हैं, तो आप निम्न सिंटैक्स का उपयोग कर सकते हैं:

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
    cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), "* avs* ")
    
    'Display the result
    MsgBox "Cells that contain avs : " & cellCount
End Sub

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में निम्नलिखित डेटासेट के साथ अभ्यास में इनमें से प्रत्येक विधि का उपयोग कैसे किया जाए जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी शामिल है:

उदाहरण 1: वीबीए का उपयोग करके विशिष्ट पाठ वाले सेल की गणना करें और सेल में परिणाम प्रदर्शित करें

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

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

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

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

ध्यान दें कि सेल D2 में मान 5 है।

यह हमें बताता है कि A2:A13 श्रेणी में 5 सेल हैं जिनमें टीम के नाम में “avs” शामिल है।

उदाहरण 2: वीबीए का उपयोग करके विशिष्ट पाठ वाले कक्षों की गणना करें और संदेश बॉक्स में परिणाम प्रदर्शित करें

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

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

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
    
    'Display the result
MsgBox "Cells that contain avs : " & cellCount
End Sub

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

संदेश बॉक्स हमें बताता है कि 5 सेल हैं जिनमें टीम के नाम में “avs” शामिल है।

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

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

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