VBA पंक्ति गणना - VBA में प्रयुक्त पंक्तियों की संख्या की गणना कैसे करें?

एक्सेल VBA रो काउंट

वीबीए प्रोग्रामिंग में पंक्तियों का जिक्र सबसे महत्वपूर्ण होता है और पंक्तियों को गिनना उन चीजों में से एक है जिनके बारे में आपको पता होना चाहिए जब यह VBA कोडिंग की बात आती है। बहुत सारे मूल्य हैं जो हमें मिल सकते हैं यदि हम उन पंक्तियों की गिनती के महत्व को समझ सकते हैं जिनके पास कार्यपत्रक में डेटा है। इस लेख में, हम आपको दिखाएंगे कि वीबीए कोडिंग का उपयोग करके पंक्तियों को कैसे गिनें।

VBA में पंक्तियों की गणना कैसे करें?

उदाहरण 1

पंक्तियों की गणना करने के लिए, हमें RANGE ऑब्जेक्ट का उपयोग करने की आवश्यकता है, इस ऑब्जेक्ट में, हमें ROWS ऑब्जेक्ट का उपयोग करने की आवश्यकता है, और इसमें हमें COUNT संपत्ति का उपयोग करने की आवश्यकता है।

उदाहरण के लिए, एक्सेल में नीचे दिए गए डेटा को देखें।

उपरोक्त डेटा से, हमें यह पहचानने की आवश्यकता है कि A1 से लेकर A8 तक कितनी पंक्तियाँ हैं। इसलिए पहले चर को संख्याओं को संग्रहीत करने के लिए पूर्णांक के रूप में परिभाषित करें।

कोड:

सब काउंट_Rows_Example1 () Dim No_Of_Rows इंटेगर एंड सब के रूप में

इस चर के लिए, हम पंक्ति संख्याएँ निर्दिष्ट करेंगे, इसलिए चर नाम दर्ज करें और बराबर चिह्न बाहर करें।

कोड:

सब काउंट_रोज़_ एक्सप्लोस 1 () डिम नू_ऑफ_रोज़ एज़ इंटेगर नाउ_ऑफ_रोज़ = उप सब

हमें कोशिकाओं की एक श्रृंखला प्रदान करने की आवश्यकता है, इसलिए रेंज को खोलें और "A1: A8" के रूप में सीमा की आपूर्ति करें। कोड:

सब काउंट_रोज़_एक्सप्लोम 1 () डिम नू_ऑफ_रोज़ एंगर नो_ऑफ_रोज़ = रेंज ("ए 1: ए 8") एंड सब

एक बार रेंज की आपूर्ति करने के बाद हमें पंक्तियों की संख्या गिनने की आवश्यकता होती है, इसलिए RANGE ऑब्जेक्ट की ROWS प्रॉपर्टी चुनें।

RANGE ऑब्जेक्ट की ROWS प्रॉपर्टी में हम कई पंक्तियों की गिनती कर रहे हैं, इसलिए अब "COUNT" प्रॉपर्टी चुनें।

अब मैसेज बॉक्स में वैरिएबल का मान दिखाते हैं।

कोड:

सब Count_Rows_Example1 () Dim No_Of_Rows इंटगर No_Of_Rows = रेंज ("A1: A8") के रूप में। पंक्तियाँ। MsgBox No_Of_Rows अंत उप

अब कोड चलाएं और आपूर्ति की गई रेंज की पंक्तियों की गिनती देखें।

ठीक है, रेंज के लिए 8 पंक्तियों की आपूर्ति की जाती है, इसलिए संदेश बॉक्स में पंक्तियों की संख्या 8 है।

उदाहरण # 2

हमारे पास पंक्तियों की गिनती के अन्य तरीके भी हैं, उपरोक्त विधि के लिए, हमें कोशिकाओं की एक श्रृंखला की आपूर्ति करने की आवश्यकता है, और इस श्रेणी की कोशिकाओं में, यह चयनित पंक्तियों की संख्या को दर्शाता है।

लेकिन उस परिदृश्य की कल्पना करें जहां हमें किसी भी कॉलम का अंतिम उपयोग खोजने की आवश्यकता है, उदाहरण के लिए, ऊपर देखे गए समान डेटा लें।

सेल A1 से अंतिम उपयोग किए गए सेल में जाने के लिए, हम शॉर्टकट एक्सेल कुंजी "Ctrl + डाउन एरो" दबाते हैं , इसलिए यह आपको खाली सेल से पहले अंतिम सेल में ले जाएगा।

सबसे पहले, RANGE ऑब्जेक्ट का उपयोग करके A1 के रूप में सेल की आपूर्ति करें।

कोड:

सब काउंट_Rows_Example2 () Dim No_Of_Rows इंटेगर No_Of_Rows = रेंज ("A1") MsgBox No_Of_Rows अंत उप के रूप में

इस सेल से, हमें नीचे जाने की आवश्यकता है, और वर्कशीट में, हम Ctrl + डाउन एरो का उपयोग करते हैं, लेकिन VBA में हम END प्रॉपर्टी का उपयोग करते हैं, विकल्प देखने के लिए यह प्रॉपर्टी और ओपन ब्रैकेट चुनें।

END कुंजी के साथ देखें हम "xlDown" विकल्प का उपयोग करने की आवश्यकता के बाद से "xlDown, xlToLeft, xlToRight, और xlUp" जैसी सभी तीर कुंजी देख सकते हैं।

कोड:

सब Count_Rows_Example2 () Dim No_Of_Rows के रूप में पूर्णांक No_Of_Rows = Range ("A1")। End (xlDown) MsgBox No_Of_Rows अंत उप

यह आपको किसी भी ब्रेक से पहले अंतिम सेल में ले जाएगा, अब सक्रिय सेल में हमें पंक्ति संख्या की आवश्यकता है, इसलिए ROW प्रॉपर्टी का उपयोग करें।

कोड:

सब Count_Rows_Example2 () मंद No_Of_Rows के रूप में पूर्णांक No_Of_Rows = Range ("A1")। End (xlDown) .Row MsgBox No_Of_Rows अंत उप।

ठीक है हो गया। अब, यह अंतिम पंक्ति संख्या दिखाएगा, और यह कई पंक्तियों की गिनती होगी।

इसलिए पंक्तियों में, हमारे पास डेटा है।

उदाहरण # 3 - अंतिम प्रयुक्त पंक्ति खोजें

अंतिम उपयोग की गई पंक्ति को खोजना इतना महत्वपूर्ण है कि लूप को कितनी बार चलाना है और उपरोक्त विधि में भी अंतिम पंक्ति रूकती है यदि कोई ब्रेकपॉइंट सेल है, तो इस पद्धति में, हम अंतिम उपयोग की गई पंक्ति को बिना खोजे कोई समस्या।

CELL प्रॉपर्टी खोलें।

कोड:

सब काउंट_रोज़_एक्सप्लोम 3 () डिम नू_ऑफ_रोज़ इन्टर्गर नाउ_ऑफ_रोज़ = सेल (MsgBox No_Of_Rows अंत उप

अब हमें शुरू करने के लिए पंक्ति संख्या का उल्लेख करने की आवश्यकता है, यहाँ समस्या यह है कि हमें यकीन नहीं है कि हमारे पास डेटा की कितनी पंक्तियाँ हैं, इसलिए हम क्या कर सकते हैं हम सीधे कार्यपत्रक की अंतिम पंक्ति पर जाते हैं, इस उल्लेख के लिए ROWS .COUNT संपत्ति

कोड:

उप गणना_Rows_Example3 () Dim No_Of_Rows पूर्णांक के रूप में No_Of_Rows = कक्ष (पंक्तियाँ), MsgBox No_Of_Rows अंत उप

अगला, हमें यह उल्लेख करने की आवश्यकता है कि हम किस कॉलम में अंतिम उपयोग की गई पंक्ति को खोज रहे हैं, इसलिए इस मामले में, हम पहले कॉलम में खोज रहे हैं, इसलिए 1 का उल्लेख करें।

कोड:

सब काउंट_Rows_Example3 () Dim No_Of_Rows के रूप में पूर्णांक No_Of_Rows = कक्ष (पंक्तियाँ, 1) MsgBox No_Of_Rows अंत उप

इस समय, यह आपको पहले कॉलम के अंतिम सेल में ले जाएगा, वहाँ से हमें अंतिम उपयोग किए जाने वाले सेल पर जाने के लिए ऊपर की ओर जाने की आवश्यकता है, इसलिए End (xlUp) प्रॉपर्टी का उपयोग करें।

कोड:

सब Count_Rows_Example3 () Dim No_Of_Rows के रूप में पूर्णांक No_Of_Rows = कक्ष (पंक्तियाँ, 1)। और (xlUp) MsgBox No_Of_Rows अंत उप।

तो यह आपको कॉलम 1 के अंतिम उपयोग किए गए सेल में ले जाएगा, और इस सेल में, हमें पंक्ति संख्या की आवश्यकता है, इसलिए पंक्ति संख्या प्राप्त करने के लिए ROW संपत्ति का उपयोग करें।

कोड:

सब Count_Rows_Example3 () Dim No_Of_Rows के रूप में पूर्णांक No_Of_Rows = कक्ष (पंक्तियाँ, 1)। और (xlUp) .Row MsgBox__Of_Rows अंत उप।

याद रखने वाली चीज़ें

• COUNT, वर्कशीट में कई पंक्तियाँ देगा।
• यदि आपके पास एक सीमा है, तो यह सीमा में चयनित कई पंक्तियों को देगा।
• ROW संपत्ति सक्रिय सेल पंक्ति संख्या वापस कर देगी।