/ एक्सेल वीबीए में पुस्तकें और शीट्स के माध्यम से लूप

एक्सेल वीबीए में पुस्तकें और शीट्स के माध्यम से लूप

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस सभी खुली कार्यपुस्तिकाओं और कार्यपत्रकों के माध्यम से loops, और सभी नाम प्रदर्शित करता है।

परिस्थिति:

पुस्तकें और पत्रक उदाहरण के माध्यम से लूप

कमांड बटन पर निम्न कोड लाइन जोड़ें:

1. सबसे पहले, हम दो वस्तुओं और एक चर घोषित करते हैं। वर्कबुक प्रकार की एक वस्तु जिसे हम पुस्तक कहते हैं, एक ऑब्जेक्ट प्रकार वर्कशीट जिसे हम शीट कहते हैं, और स्ट्रिंग के प्रकार का एक चर जिसे हम टेक्स्ट कहते हैं।

Dim book As Workbook, sheet As Worksheet, text As String

2. हम सभी खुली कार्यपुस्तिकाओं के माध्यम से लूप करना चाहते हैं। इसे प्राप्त करने के लिए, निम्न कोड पंक्ति जोड़ें:

For Each book In Workbooks

3. हम टेक्स्ट "वर्कबुक:", वर्कबुक का नाम और टेक्स्ट "वर्कशीट्स:" टेक्स्ट को वेरिएबल टेक्स्ट में लिखते हैं।

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

नोट: आप तत्वों को जोड़ने (शामिल) करने के लिए और ऑपरेटर का उपयोग कर सकते हैं। एक नई लाइन शुरू करने के लिए, आप vbNewLine का उपयोग कर सकते हैं।

4. कार्यपुस्तिका के सभी कार्यपत्रकों के माध्यम से लूप करने के लिए, निम्न कोड पंक्ति जोड़ें:

For Each sheet In book.Worksheets

5. हम वर्चुअल टेक्स्ट में कार्यपुस्तिका के वर्कशीट के नाम लिखते हैं।

text = text & sheet.Name & vbNewLine

6. दूसरा पाश बंद करें।

Next sheet

7. एक सफेद रेखा जोड़ें।

text = text & vbNewLine

8. पहले लूप को बंद करना न भूलें।

Next book

9। अंत में, हम एक MsgBox का उपयोग कर परिवर्तनीय पाठ प्रदर्शित करते हैं।

MsgBox text

10. कार्यक्रम का परीक्षण करें। कमांड बटन पर क्लिक करने से पहले, अपनी वर्कशीट्स को कुछ वर्णनात्मक नाम दें और एक और खाली कार्यपुस्तिका खोलें।

परिणाम:

एक्सेल वीबीए में पुस्तकें और शीट्स के माध्यम से लूप

यह भी पढ़ें: