VBA एक्सेल में गणना फ़ंक्शन
में VBA गणना समारोह गिनती करने के लिए कैसे कोशिकाओं के कई संख्या में यह मान है, तो हम आपको याद रखना चाहिए कि प्रयोग किया जाता है कि जो नंबर या पाठ जो डबल उद्धरण में संलग्न कर रहे हैं कोशिकाओं या उन कोशिकाओं जिनके मान सीधे लिखे जाने पर गिने जाते हैं, उन कोशिकाओं जिसके पास रैंडम डेटा है जिसे एक्सेल द्वारा अनुवादित नहीं किया जा सकता है।
VBA में, COUNT एक वर्कशीट फ़ंक्शन है जिसे वर्कशीट फ़ंक्शन क्लास के माध्यम से लागू किया जा सकता है। यह बिल्ट-इन फ़ंक्शन नहीं है। VBA COUNT फ़ंक्शन मानों की आपूर्ति की गई श्रेणी से सभी संख्यात्मक मानों की गणना कर सकता है।
इस लेख में, हम आपको दिखाएंगे कि VBA में COUNT फ़ंक्शन का उपयोग कैसे करें।
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba.png.webp)
VBA काउंट फंक्शन के उदाहरण
आइए इसके काम को समझने के लिए VBA काउंट फंक्शन के कुछ व्यावहारिक उदाहरण लेते हैं।
VBA गणना उदाहरण # 1
एक्सेल VBA में इस COUNT फ़ंक्शन को लागू करने के लिए अपने आप कोड लिखें।
चरण 1: उप प्रक्रिया शुरू करके मैक्रो प्रारंभ करें।
कोड:
उप गणना_उपकरण 1 () उप उप
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_2.png.webp)
चरण 2: अब, हम सेल C2 में COUNT फ़ंक्शन का परिणाम संग्रहीत करेंगे। तो हमारा कोड "रेंज (" C2 ") होना चाहिए। मान =
कोड:
सब Count_Example1 () रेंज ("C2")। मान = अंत उप
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_3.png.webp)
चरण 3: चूंकि यह वीबीए बिल्ट-इन फ़ंक्शन नहीं है, इसलिए हमें वर्कशीट फंक्शन क्लास के माध्यम से आवेदन करना होगा। तो वर्कशीट फ़ंक्शन क्लास के माध्यम से पहुंचें।
कोड:
सब Count_Example1 () रेंज ("C2")। मान = Worksheetfunction.ount (अंतिम उप)
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_4.png.webp)
चरण 4: अब A1 से A7 के रूप में रेंज की आपूर्ति करें।
कोड:
सब काउंट_Example1 () रेंज ("C2")। मान = कार्यपत्रक का कार्य ।ाउंट (रेंज ("A1: A7")) अंतिम उप
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_5.png.webp)
ठीक है, ये परिणाम आने के तीन सरल चरण हैं।
अब सेल C2 में परिणाम देखने के लिए कोड चलाएं।
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba.gif)
हमेशा की तरह, हमें एक वर्कशीट में VBA COUNT फ़ंक्शन लागू करने के दौरान हमें 3 जैसा परिणाम मिला।
यदि हम सूत्र पट्टी का निरीक्षण करते हैं, तो हमें सूत्र नहीं मिला है। बल्कि हमें सिर्फ सूत्र का फल मिला। सेल C2 के सूत्र को लागू करने के लिए, हमें अपना कोड बदलने की आवश्यकता है। नीचे सूत्र को लागू करने के लिए कोड है।
कोड:
सब Count_Example1 () रेंज ("C2")। मान = "= गणना (A1: A7)" अंत उप
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_6.png.webp)
इस VBA कोड को F5 कुंजी या मैन्युअल रूप से चलाएं। उसके बाद, यह सूत्र C2 सेल पर लागू होगा।
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_2.gif)
VBA गणना उदाहरण # 2
अब, COUNT फ़ंक्शन के साथ एक और उदाहरण देखें। इस उदाहरण के लिए, नीचे दिए गए डेटा को देखें।
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_7.png.webp)
हमारे पास A1 से A11 तक कुछ संख्यात्मक और गैर-संख्यात्मक मूल्य हैं। अब मैं A1 से A11 तक के संख्यात्मक मानों को गिनने के लिए नीचे दिए गए कोड को लागू करूंगा।
कोड:
सब Count_Example2 () रेंज ("C2")। मान = "= गणना (A1: A11)" अंत उप
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_8.png.webp)
जब हम उपरोक्त कोड को मैन्युअल रूप से निष्पादित करते हैं या F5 कुंजी का उपयोग करते हैं, तो हमें परिणाम 5 के रूप में मिला।
![](https://cdn.know-base.net/1465160/vba_count_count_numerical_values_using_count_function_in_excel_vba_3.gif)
हालाँकि, जब हम A1 से A11 तक के डेटा को देखते हैं, तो हमारे पास A1, A2, A3, A4, A5, A7 और A11 कोशिकाओं के संख्यात्मक मान हैं। तो कुल मिलाकर, हमारे पास 7 कोशिकाओं में संख्यात्मक मान हैं, लेकिन सूत्र ने परिणाम को केवल 5 के रूप में वापस किया है।
इसका कारण यह है जब हम सेल A5 और A7 में प्रत्येक सेल को करीब से देखते हैं, तो मान पाठ के रूप में संग्रहीत किए जाते हैं, न कि संख्या के रूप में। इसलिए COUNT फ़ंक्शन ने केवल 5 के रूप में परिणाम लौटाया है क्योंकि यह उन कोशिकाओं को मानता है जो स्वरूपित या पाठ के रूप में गैर-संख्यात्मक मानों के रूप में संग्रहीत होते हैं और संख्यात्मक गणना से अनदेखा करते हैं।
इस तरह, हम सूची से संख्यात्मक कार्यों को गिनने के लिए एक्सेल में COUNT फ़ंक्शन का उपयोग दोनों वर्कशीट और VBA फ़ंक्शंस के हिस्से के रूप में कर सकते हैं।