विषय - सूची
निम्न मैक्रो एक कार्यपुस्तिका में प्रत्येक शीट के माध्यम से लूप करता है और प्रत्येक शीट का टैब नाम क्रमिक रूप से आपके द्वारा चुनी गई शीट पर लिखता है। यह कई शीट वाली कार्यपुस्तिका में प्रत्येक शीट की त्वरित सूची के लिए उपयोगी हो सकता है।
कार्यपुस्तिका में सभी कार्यपत्रकों की सूची बनाएं
मैक्रो का उपयोग करने के लिए कोड में शीट 1 (यह दो बार दिखाई देता है) शब्द को टैब नाम से बदलें जहां आप परिणाम चाहते हैं। सुनिश्चित करें कि आउटपुट टैब पर कोई महत्वपूर्ण जानकारी नहीं है क्योंकि यह डेटा को लिखने से पहले साफ़ करता है।
| 123456789101112131415 | उप सूची पत्रक ()वर्कशीट के रूप में डिम WSमंद x पूर्णांक के रूप मेंएक्स = 1शीट्स ("शीट 1")। रेंज ("ए: ए")। साफ़ करेंवर्कशीट में प्रत्येक ws के लिएशीट्स ("शीट 1")। सेल (x, 1) = ws.Nameएक्स = एक्स + 1अगला wsअंत उप |
