मैक्रो का उपयोग करके नामित कार्यपत्रकों के साथ एक नई एक्सेल कार्यपुस्तिका बनाएं

एक नई कार्यपुस्तिका बनाने के लिए VBA मैक्रो का उपयोग करें जिसमें ठीक उतनी ही कार्यपत्रक हों जितनी आपको चाहिए

कई मैक्रोज़ में, नई कार्यपुस्तिकाएँ बनाई जानी हैं, उदाहरण के लिए, कुछ सामग्री से भरी हुई हैं। यहां एक महत्वपूर्ण कार्य एक नई एक्सेल कार्यपुस्तिका बनाना है जिसमें ठीक उसी संख्या में स्प्रैडशीट शामिल हैं जो आप चाहते हैं।

निम्नलिखित मैक्रो यह काम करता है। यह एक नई कार्यपुस्तिका बनाता है जिसमें 31 कार्यपत्रक होते हैं। इन कार्यपत्रकों की संख्या 1 से 31 तक होती है। यहाँ उपयुक्त VBA कमांड हैं:

उप फ्यूजटैबलेनइन ()
पूर्णांक के रूप में मंद संख्या
डिम आई अस इंटीजर
कार्यपुस्तिका के रूप में मंद मैपे
संख्या = एप्लिकेशन। शीट्सइनन्यूवर्कबुक
Application.SheetsInNewWorkbook = 31
फ़ोल्डर सेट करें = कार्यपुस्तिकाएँ। जोड़ें
i = 1 के लिए Mappe.Worksheets.Count . के लिए
फ़ोल्डर। वर्कशीट (i) .Name = i
अगला मैं
Application.SheetsInNewWorkbook = number
अंत उप

जब यह प्रारंभ होता है, तो Excel एक नई कार्यपुस्तिका प्रदर्शित करता है जिसमें 31 कार्यपत्रक होते हैं। निम्नलिखित आंकड़ा दिखाता है कि यह शीट रजिस्टर में कैसा दिखता है:

मैक्रो में, आप संख्या 31 का उपयोग करके इच्छित कार्यपत्रकों की संख्या निर्दिष्ट करते हैं। यदि आप किसी कार्यपुस्तिका में कम या अधिक कार्यपत्रक रखना चाहते हैं तो इस संख्या को बदलें।

मैक्रो में प्रवेश करने के लिए, VBA संपादक लाने के लिए एक्सेल में ALT F11 दबाएं। एक खाली मॉड्यूल शीट डालने के लिए INSERT - MODULE कमांड का उपयोग करें। मैक्रो को सीधे एक्सेल से शुरू करने के लिए, कुंजी संयोजन ALT F8 का उपयोग करें।