वीबीए: उपयोग किए गए कॉलमों की संख्या कैसे गिनें

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

यह विशेष उदाहरण शीट1 नामक शीट में प्रयुक्त स्तंभों की संख्या की गणना करता है और परिणाम को सेल A10 में प्रदर्शित करता है।

यदि आप इसके बजाय किसी संदेश बॉक्स में कॉलम की संख्या प्रदर्शित करना चाहते हैं, तो आप निम्न सिंटैक्स का उपयोग कर सकते हैं:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में निम्नलिखित डेटासेट के साथ अभ्यास में इनमें से प्रत्येक विधि का उपयोग कैसे किया जाए जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी शामिल है:

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

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

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

ध्यान दें कि सेल A10 में मान 4 है।

यह हमें बताता है कि 4 कॉलम का उपयोग किया गया है।

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

मान लीजिए कि हम इसके बजाय उपयोग किए गए कॉलमों की संख्या गिनना चाहते हैं और परिणामों को एक संदेश बॉक्स में प्रदर्शित करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

संदेश बॉक्स हमें बताता है कि इसमें 4 कॉलम का उपयोग किया गया है।

ध्यान दें : यदि डेटा वाले कॉलम के बाद खाली कॉलम हैं, तो VBA गणना में खाली कॉलम को “प्रयुक्त” के रूप में गिनेगा।

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

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

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें