VBA COUNTIF (उदाहरण) - Excel VBA में COUNTIF फ़ंक्शन का उपयोग कैसे करें?

विषय - सूची

VBA COUNTIF

VBA COUNTIF

मानदंड आधारित कार्य गणना में उत्कृष्टता के शासक हैं। एक्सेल के सीखने की शुरुआत में, हमें एक्सेल में COUTNIF प्रक्रिया सीखनी चाहिए। अपने पहले के लेखों में, हमने आपको एक्सेल VBA में COUNTIF फ़ंक्शन के साथ काम करने का तरीका दिखाया है।

Excel VBA में COUNTIF फ़ंक्शन की मूल बातें जानने के लिए Excel में COUNTIF फॉर्मूला पर हमारे लेख का संदर्भ लें। इस लेख में, हम आपको दिखाएंगे कि VBA कोडिंग में समान फ़ंक्शन का उपयोग कैसे करें। अब हम VBA में एक ही सूत्र देखेंगे। सबसे पहली बात, COUNTIF एक VBA फ़ंक्शन नहीं है; इसके बजाय, यह एक वर्कशीट फ़ंक्शन है जिसे वर्कशीट फ़ंक्शन क्लास के तहत एक्सेस किया जा सकता है।

एक्सेल वीबीए काउंटिफ फंक्शन का उदाहरण

ठीक है, चलो सरल उदाहरण देखते हैं।

बहुत से गिनती के मूल्यों के नीचे एक ही उदाहरण देखें।

उपरोक्त छवि में, हमारे पास सेल A1 से A10 तक शहर के नाम हैं। सेल C3 में, हमें यह गिनने की आवश्यकता है कि A1 से A10 तक की रेंज में शहर का नाम "बैंगलोर" कितनी बार दिखाई देगा।

ठीक है, COUNTIF फ़ंक्शन लागू करने के लिए कोड लिखने के लिए नीचे दिए गए चरणों का पालन करें।

चरण 1: उप प्रक्रिया शुरू करें।

कोड:

विकल्प स्पष्ट उप Countif_Example1 () उप उप

चरण 2: चूंकि हमें सेल C3 में परिणाम को स्टोर करने की आवश्यकता है, रेंज ("C3") शुरू करें। मान।

कोड:

सब Countif_Example1 () रेंज ("C3")। मूल्य = अंत उप

चरण 3: सेल C3 में, एक्सेल VBA COUNTIF फ़ंक्शन को लागू करके, हम परिणाम पर पहुंचने का प्रयास कर रहे हैं। इसलिए फ़ंक्शन को एक्सेस करने के लिए, हमें पहले वर्कशीट फंक्शन क्लास का उपयोग करना होगा।

कोड:

सब Countif_Example1 () रेंज ("C3")। मान = WorksheetFunction। अंत उप

चरण 4: खोए हुए चुनिंदा एक्सेल VBA COUNTIF फ़ंक्शन से।

कोड:

सब Countif_Example1 () रेंज ("C3")। मान = WorksheetFunction.CountIf (अंतिम उप)

चरण 5: यदि आप VBA COUNTIF फ़ंक्शन के मापदंडों को देखते हैं, तो हम पैरामीटर को नहीं देखते हैं, जैसा कि हम वर्कशीट में देखते हैं।

जैसा कि हम वर्कशीट में उपरोक्त छवि में देख सकते हैं, हमारे पास सटीक सिंटैक्स है, लेकिन VBA में, हम केवल Arg 1 और Arg 2 देख सकते हैं।

Arg 1 रेंज है, इसलिए A1 से A10 तक की रेंज का चयन करें।

कोड:

सब Countif_Example1 () रेंज ("C3")। मान = WorksheetFunction.CountIf (रेंज ("A1: A10"), एंड सब

चरण 6: Arg 2 वह है जो हमें A1 से A10 तक की श्रेणी में गिनने के लिए आवश्यक है। इस उदाहरण में, हमें "बैंगलोर" की गणना करने की आवश्यकता है।

कोड:

सब Countif_Example1 () रेंज ("C3")। मान = WorksheetFunction.CountIf (रेंज ("A1: A10"), "बैंगलोर") अंतिम उप

ठीक है, हम कर रहे हैं।

सेल C3 में परिणाम देखने के लिए कोड चलाएँ।

हमें परिणाम 4 के रूप में मिला। चूंकि शहर का नाम "बैंगलोर" सेल A1, A4, A7 और A10 VBA COUNTIF फ़ंक्शन में दिखाई देता है, इसलिए इस उत्पाद को 4 के रूप में लौटाया गया।

यदि आप देख सकते हैं कि VBA कोड केवल फॉर्मूला का परिणाम लौटा है, तो हमें फॉर्मूला बार में प्रक्रिया को जानने की जरूरत नहीं है।

सूत्र पर पहुंचने के लिए, हमें कोड को थोड़ा अलग तरीके से लिखना होगा। नीचे आपको सेल पर सूत्र को लागू करने के लिए कोड दिया गया है।

कोड:

सब Countif_Example1 () रेंज ("C3")। फॉर्मूला = "= CountIf (A1: A10," "बैंगलोर" ")" एंड सब

यह सेल C3 के सूत्र को लागू करेगा।

चर के साथ परिणाम आएँ

चर किसी भी कोडिंग भाषा का एक अभिन्न अंग हैं। हमें VBA कोड के साथ कुशलता से काम करने के लिए चर घोषित करने की आवश्यकता है। उदाहरण के लिए, नीचे दिए गए कोड को देखें।

कोड:

Sub Countif_Example2() Dim ValuesRange As Range Dim ResultCell As Range Dim CriteriaValue As String Set ValuesRange = Range("A1:A10") Set ResultCell = Range("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue) End Sub

Let me decode the code for you to understand better.

Firstly I have declared the two variables as Range.

Dim ValuesRange As Range: This is to reference the list of values.

Dim ResultCell As Range: This to reference the result cell.

Then I have set the range of references to both the variables.

Set ValuesRange = Range(“A1: A10”): This is the range where all the city names are there.

Set ResultCell = Range(“C3”): In this cell, we will store the result of the COUNTIF function.

In the meantime, I have declared one more variable to store the criteria value.

स्ट्रिंग के रूप में मंद मानदंड

मानदंड = "बैंगलोर"

तो अब चर "क्रिटेटरियावैल्यू" का मूल्य "बैंगलोर" है।

अगली पंक्ति में, हमेशा की तरह, मैंने COUTNIF फ़ंक्शन लागू किया है।