VBA मैक्रो का उपयोग करके सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों की सूची कैसे बनाएं
क्या आप सक्रिय कार्यपुस्तिका में सभी शीटों की एक तालिका बनाना चाहेंगे? निम्नलिखित मैक्रो का प्रयोग करें:
उप शोटेबलशीट ()
मंद पंक्ति जितनी लंबी हो
वर्कशीट के रूप में मंद शीट
वर्कशीट के रूप में मंद नई शीट
न्यूब्लैट सेट करें = ActiveWorkbook.Worksheets.Add
पंक्ति = 1
ActiveWorkbook.Worksheets में प्रत्येक शीट के लिए
यदि शीट.नाम नई शीट.नाम तो
नई शीट। सेल (पंक्ति, 1) = शीट.नाम
रेखा = रेखा + 1
अगर अंत
अगली शीट
अंत उप
मैक्रो सक्रिय कार्यपुस्तिका में एक नई कार्यपत्रक बनाता है जिसमें सभी कार्यपत्रकों के नाम सहेजे जाते हैं। केवल नई सिंहावलोकन शीट को सूची से बाहर रखा गया है। निम्नलिखित आंकड़ा दिखाता है कि परिणाम कैसा दिख सकता है:
मैक्रो में प्रवेश करने के लिए, कुंजी संयोजन ALT F11 का उपयोग करके Excel में VBA संपादक खोलें। इस संपादक में, INSERT - MODULE कमांड चुनें और मैक्रो दर्ज करें। आप कुंजी संयोजन ALT F8 का उपयोग करके Excel से मैक्रो प्रारंभ करते हैं।
