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

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

विधि 1: सक्रिय कार्यपुस्तिका में शीटों की संख्या की गणना करें

 SubCountSheetsActive ()
   Range(" A1 ") = ThisWorkbook.Worksheets.Count
End Sub

विधि 2: खुली कार्यपुस्तिका में शीटों की संख्या गिनें

 SubCountSheetsOpen ()
    Range(" A1 ") = Workbooks(" my_data.xlsx ").Sheets.Count
End Sub

विधि 3: एक बंद बाइंडर में शीटों की संख्या गिनें

 SubCountSheetsClosed ()
    Application.DisplayAlerts = False
    Set wb = Workbooks.Open(" C:\Users\Bob\Desktop\my_data.xlsx ")
    
    'count sheets in closed workbook and display count in cell A1 of current workbook
    ThisWorkbook.Sheets(1).Range(" A1 ").Value = wb.Sheets.Count

    wb.Close SaveChanges:=True
    Application.DisplayAlerts = True
End Sub

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

उदाहरण 1: एक सक्रिय कार्यपुस्तिका में शीटों की संख्या की गणना करें

मान लीजिए कि हमारे पास निम्नलिखित एक्सेल वर्कबुक खुली है और हम इसे देख रहे हैं:

हम इस कार्यपुस्तिका में शीटों की कुल संख्या की गणना करने और सेल A1 में संख्या प्रदर्शित करने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubCountSheetsActive ()
   Range(" A1 ") = ThisWorkbook.Worksheets.Count
End Sub

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

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

इससे हमें पता चलता है कि इस कार्यपुस्तिका में 6 शीट हैं।

उदाहरण 2: एक खुली बाइंडर में शीटों की संख्या गिनें

मान लीजिए कि हमारे पास my_data.xlsx नामक एक एक्सेल वर्कबुक है जिसमें दो शीट खुली हैं लेकिन हम वर्तमान में इसे नहीं देख रहे हैं।

हम इस कार्यपुस्तिका में शीटों की कुल संख्या की गणना करने और सक्रिय कार्यपुस्तिका के सेल A1 में संख्या प्रदर्शित करने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubCountSheetsOpen ()
    Range(" A1 ") = Workbooks(" my_data.xlsx ").Sheets.Count
End Sub

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

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

यह हमें बताता है कि खुली कार्यपुस्तिका में 2 शीट हैं जिन्हें my_data.xlsx कहा जाता है।

उदाहरण 3: एक बंद बाइंडर में शीटों की संख्या गिनना

मान लें कि हमारे पास my_data.xlsx नामक एक एक्सेल वर्कबुक है जिसमें दो शीट हैं जो वर्तमान में खुली नहीं हैं लेकिन निम्नलिखित फ़ाइल स्थान पर स्थित हैं:

C:\Users\Bob\Desktop\my_data.xlsx

हम इस कार्यपुस्तिका में शीटों की कुल संख्या की गणना करने और सक्रिय कार्यपुस्तिका की पहली शीट के सेल A1 में संख्या प्रदर्शित करने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubCountSheetsClosed ()
    Application.DisplayAlerts = False
    Set wb = Workbooks.Open(" C:\Users\Bob\Desktop\my_data.xlsx ")
    
    'count sheets in closed workbook and display count in cell A1 of current workbook
    ThisWorkbook.Sheets(1).Range(" A1 ").Value = wb.Sheets.Count

    wb.Close SaveChanges:=True
    Application.DisplayAlerts = True
End Sub

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

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

यह हमें बताता है कि बंद कार्यपुस्तिका में 2 शीट हैं जिन्हें my_data.xlsx कहा जाता है।

ध्यान दें : कोड में, एप्लिकेशन.डिस्प्लेअलर्ट्स=गलत वीबीए को बंद कार्यपुस्तिका को खोलने, शीटों की गिनती करने और फिर कार्यपुस्तिका को बंद करने की प्रक्रिया को प्रदर्शित नहीं करने के लिए कहता है।

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

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

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