Vba में counta फ़ंक्शन का उपयोग कैसे करें (उदाहरण के साथ)

आप किसी विशिष्ट श्रेणी में गैर-रिक्त कोशिकाओं की संख्या की गणना करने के लिए VBA में काउंटए विधि का उपयोग कर सकते हैं।

व्यवहार में इस पद्धति का उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

यह विशेष उदाहरण A1:A10 श्रेणी में गैर-रिक्त कोशिकाओं की संख्या की गणना करता है और परिणाम को सेल C1 में प्रदर्शित करता है।

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

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

उदाहरण 1: श्रेणी में गैर-रिक्त कोशिकाओं की गणना करें और परिणाम को सेल में प्रदर्शित करें

मान लीजिए कि हम A1:A10 श्रेणी में गैर-रिक्त कोशिकाओं की संख्या की गणना करना चाहते हैं और परिणामों को एक विशिष्ट सेल में प्रदर्शित करना चाहते हैं।

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

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

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

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

यह हमें बताता है कि A1:A10 श्रेणी में 7 गैर-रिक्त कोशिकाएँ हैं।

उदाहरण 2: श्रेणी में गैर-रिक्त कक्षों की गणना करें और परिणाम संदेश बॉक्स में प्रदर्शित करें

मान लीजिए कि हम इसके बजाय A1:A10 श्रेणी में गैर-रिक्त कोशिकाओं की संख्या की गणना करना चाहते हैं और परिणामों को एक संदेश बॉक्स में प्रदर्शित करना चाहते हैं।

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

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

संदेश बॉक्स हमें बताता है कि A1:A10 श्रेणी में 7 गैर-रिक्त कक्ष हैं।

ध्यान दें कि यदि आप इसके बजाय पूरे कॉलम में गैर-रिक्त कोशिकाओं की संख्या गिनना चाहते हैं, तो आप इसके बजाय A:A टाइप कर सकते हैं।

यह सभी कॉलम ए में गैर-रिक्त कोशिकाओं की संख्या की गणना करेगा।

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

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

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

वीबीए: AVERAGEIF और AVERAGEIFS फ़ंक्शन कैसे लिखें
वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें