वीबीए का उपयोग करके तालिका में पंक्तियों की गणना कैसे करें (उदाहरण के साथ)

आप VBA का उपयोग करके Excel में किसी तालिका में पंक्तियों की संख्या गिनने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

यह विशेष उदाहरण Table1 नामक सक्रिय शीट पर तालिका के लिए पंक्तियों की निम्नलिखित संख्या की गणना करता है:

• पंक्तियों की कुल संख्या
• हेडर पंक्तियों की कुल संख्या
• शरीर रेखाओं की कुल संख्या

हम एक संदेश बॉक्स बनाने के लिए MsgBox फ़ंक्शन का उपयोग करते हैं जो इनमें से प्रत्येक मान को एक संदेश बॉक्स में प्रदर्शित करता है।

ध्यान दें : हम नई लाइनें डालने और कई लाइनों के साथ एक संदेश बॉक्स बनाने के लिए vbNewLine स्टेटमेंट का उपयोग करते हैं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

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

मान लीजिए कि हमारे पास तालिका 1 नामक निम्नलिखित तालिका है जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:

हम इस तालिका में पंक्तियों की संख्या गिनने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

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

संदेश बॉक्स हमें बताता है कि तालिका में कुल 10 पंक्तियाँ हैं।

इससे हमें यह भी पता चलता है कि 1 हेडर पंक्ति और 9 बॉडी पंक्तियाँ हैं।

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

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

VBA का उपयोग करके श्रेणी में अद्वितीय मानों की गणना कैसे करें
VBA का उपयोग करके किसी श्रेणी में पंक्तियों की संख्या की गणना कैसे करें
VBA का उपयोग करके विशिष्ट पाठ वाले कक्षों की गणना कैसे करें