एक्सेल VBA में COUNTA वर्कशीट फ़ंक्शन
हमारे पहले लेख "एक्सेल कूंटा" में, हमने देखा है कि मानों की श्रेणी से संख्यात्मक मानों को गिनने के लिए COUNT फ़ंक्शन का उपयोग कैसे करें। कोशिकाओं के क्षेत्र में सभी लागतों की गणना कैसे करें? हां, हम इसका अनुमान लगा सकते हैं। कोशिकाओं की श्रेणी में सभी सेल मानों की गणना करने के लिए, हमें एक्सेल VBA में सूत्र "COUNTA" का उपयोग करने की आवश्यकता है। इस लेख में, हम आपको दिखाएंगे कि कैसे VBA में COUNTA फ़ंक्शन का उपयोग करके आपूर्ति सीमा में सभी सेल मानों की गणना करें।
VBA में COUNTA फ़ंक्शन के उदाहरण
सच्चाई में से एक "COUNTA" फ़ंक्शन एक VBA फ़ंक्शन नहीं है। मुझे पता है कि आपका सवाल है, अगर यह VBA फ़ंक्शन नहीं है, तो हम इसका उपयोग कैसे करते हैं? कुछ भी चिंता नहीं है भले ही यह वीबीए फ़ंक्शन नहीं है; फिर भी, हम इसे VBA कोडिंग में वर्कशीट फ़ंक्शन क्लास के तहत उपयोग कर सकते हैं।
ठीक है, चलो एक्सेल VBA COUNTA को लागू करने के लिए कोड लिखें।
चरण 1: एक उपप्रकार नाम बनाएँ।
चरण 2: अब, पहले तय करें कि हम VBA COUNTA फ़ंक्शन के परिणाम को कहाँ संग्रहीत करेंगे। इस उदाहरण में, मैं काम को सेल C2 में रखना चाहता हूं। तो मेरा कोड रेंज ("C2") होगा। मूल्य।
कोड:
सब Counta_Example1 () रेंज ("C2")। मान = अंत उप
चरण 3: सेल C2 में, हमें VBA COUNTA फ़ंक्शन का मान चाहिए। तो एक्सेल VBA COUNTA फ़ंक्शन को लागू करने के लिए, पहले वर्कशीट फ़ंक्शन क्लास का उपयोग करें।
कोड:
उप Counta_Example1 () श्रेणी ("C2")। मान = कार्य समाप्ति उप
चरण 4: वर्कशीट फ़ंक्शन क्लास को लागू करने के बाद, डॉट लगाकर सूत्र COUNTA चुनें।
कोड:
उप Counta_Example1 () रेंज ("C2")। मान = WorksheetFunction.Count समाप्ति उप
चरण 5: अब, हमें गिनने के लिए कोशिकाओं की श्रेणी की आपूर्ति करने की आवश्यकता है। इस उदाहरण में, हमें A1 से A11 तक कोशिकाओं की श्रेणी की गणना करने की आवश्यकता है। VBA RANGE ऑब्जेक्ट का उपयोग करके सेल प्रदान करने के लिए।
कोड:
सब Counta_Example1 () रेंज ("C2")। मान = WorksheetFunction.CountA (रेंज ("A1: A11")) अंतिम उप
ठीक है, चलो सेल C2 में परिणाम प्राप्त करने के लिए कोड चलाते हैं।
तो, VBA COUNTA द्वारा भी वही परिणाम लौटाया गया।
इस तरह, हम COUNTA का उपयोग आपूर्ति की गई सीमा से गैर-रिक्त या गैर-रिक्त कोशिकाओं की गणना के लिए कर सकते हैं।
चर के साथ कोडिंग
VBA वैरिएबल प्रोजेक्ट बनाने की कुंजी है। अब उसी डेटा के लिए, हम VBA चर घोषित कर सकते हैं और परिणाम पर पहुंच सकते हैं।
उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
सब Counta_Example2 () डिम CountaRange रेंज के रूप में Dim CountaResultCell रेंज सेट के रूप में CountaRange = रेंज ("A1: A11") सेट CountaResultCell = रेंज ("C2") CountaResultCell = WorksheetFunction.CountA (काउंटरांगे) अंत उप-सेट
अब उपरोक्त कोड की व्याख्या करते हैं।
सबसे पहले, मैंने चर "CountaRange" को मूल्यों की श्रेणी को संदर्भित करने के लिए एक सीमा के रूप में घोषित किया है।
डिम काउंटारेंज रेंज के रूप में
अगला, मैंने संदर्भ A1 से A11 के रूप में संदर्भित किया है।
काउंटरांगे सेट करें = रेंज ("A1: A11")
दूसरा चर COUNTA परिणाम सेल को संदर्भित करना है।
मंद CountaResultCell रेंज के रूप में
इस चर के लिए, मैंने सेल को C2 के रूप में सेट किया है।
CountaResultCell = श्रेणी ("C2") सेट करें
अब, हमेशा की तरह, मैंने हार्डकोडेड रेंज के बजाय चरों का उपयोग करके COUNTA फ़ंक्शन लागू किया है। अब, पुराने कोड और इस VBA कोड को देखें।
कोड 1:
कोड 2:
कोड 1 में, हमारे पास रेंज सी 2 है। कोड 2 में, हमारे पास चर का नाम "CountaResultCell" है। यहाँ चर "काउंटासेल्टसेल" को C2 सेल के रूप में संदर्भित किया गया है। तो यह चर अब C2 सेल है।
कोड 1 में, COUNTA फ़ंक्शन रेंज A1 से A11 है। विनियमन 2 में, यह "वैरेंजेंज" नामक एक चर है। यह वैरिएबल A1 से A11 तक की रेंज का संदर्भ रखता है।
यह वह है जो चर के साथ पुराने कोड और कोड के बीच अंतर है।
इसलिए, COUNTA फ़ंक्शन हमारे पास मौजूद डेटा की परवाह किए बिना आपूर्ति की गई सभी गैर-रिक्त कोशिकाओं को गिनने में मदद करता है।
