यह आलेख Excel में नाम के साथ शीट कैसे जोड़ें VBA पर आपके प्रश्नों के उत्तर प्रदान करता है। यदि आप इस तरह की अनोखी तरकीबों की तलाश कर रहे हैं, तो आप सही जगह पर आए हैं। यहां, हम 6 आसान और आसान; एक्सेल में नाम के साथ शीट जोड़ने के सिद्ध तरीके VBA ।

प्रैक्टिस वर्कबुक डाउनलोड करें

बेहतर समझ और अभ्यास के लिए आप निम्नलिखित एक्सेल वर्कबुक डाउनलोड कर सकते हैं।<3 Name.xlsm के साथ शीट जोड़ना

नाम के साथ शीट जोड़ने के लिए VBA कोड

हम जोड़ने के लिए शीट ऑब्जेक्ट का उपयोग करेंगे एक्सेल में एक शीट। नाम के साथ शीट जोड़ने के लिए मूलभूत VBA कोड नीचे जैसा दिखता है।

पहले: यह वैकल्पिक है। यह किसी विशिष्ट शीट से पहले एक नई शीट जोड़ता है।

बाद में: यह वैकल्पिक भी है। यह एक विशिष्ट शीट के बाद एक नई शीट जोड़ता है।

गणना: यह एक वैकल्पिक पैरामीटर भी है। यह जोड़ने के लिए शीट की संख्या को इंगित करता है।

प्रकार: यह वैकल्पिक भी है। यह शीट के प्रकार को निर्दिष्ट करता है। यहां, डिफ़ॉल्ट मान xlWorksheet है।

6 एक्सेल वीबीए में नाम के साथ शीट जोड़ने के 6 अलग-अलग तरीके

एक्सेल में, हम <के साथ एक नई शीट जोड़ सकते हैं शीट के नाम के ठीक बगल में 1>⊕ आइकन। क्या आपने कभी एक्सेल में उसी कार्य को स्वचालित करने के बारे में सोचा है? अधिक न सोचें, क्योंकि VBA क्या आपने कवर किया है।

यहां हमारे पास बिक्री रिपोर्ट नामक एक वर्कशीट है। इसमें दैनिक बिक्री शामिल हैएक खास कैफेटेरिया की रिपोर्ट । कॉलम B , C और D में, बिक्री प्रतिनिधि , आइटम , और <1 के नाम हैं>मात्रा क्रमशः।

यहाँ, हम VBA मैक्रो की सहायता से इस कार्यपुस्तिका में अन्य पत्रक जोड़ेंगे।

यहां, हमने Microsoft Excel 365 संस्करण का उपयोग किया है, आप अपनी सुविधा के अनुसार किसी अन्य संस्करण का उपयोग कर सकते हैं।

1. एक्सेल VBA में नाम के साथ शीट जोड़ना

अपनी पहली विधि में, हम उपयोगकर्ता इनपुट से नाम के साथ एक शीट जोड़ेंगे। यदि आप सीखने के लिए उत्सुक हैं, तो इन आसान चरणों का पालन करें।

📌 कदम:

• शुरुआत में ही, डेवलपर टैब।
• दूसरा, कोड समूह पर विज़ुअल बेसिक चुनें।
• वैकल्पिक रूप से, ALT दबाएं + F11 समान कार्य करने के लिए।

नोट: दबाना सुनिश्चित करें SPACEBAR के बाईं ओर स्थित ALT कुंजी। यदि आप अन्य ALT कुंजियों का उपयोग करते हैं तो ऑपरेशन निष्पादित नहीं होगा।

• तुरंत, अनुप्रयोगों के लिए Microsoft Visual Basic विंडो खुलती है।<15
• बाद में, इन्सर्ट टैब पर जाएं।
• फिर, विकल्पों में से मॉड्यूल चुनें।

• वर्तमान में, यह कोड मॉड्यूल खोलता है।
• बाद में, मॉड्यूल में निम्नलिखित कोड लिखें।

9172

कोड ब्रेकडाउन

• सबसे पहले, हम उप प्रक्रिया को इस रूप में बुला रहे हैं Add_Sheet_with_Name ।
• फिर, हम चर प्रकारों को परिभाषित करते हैं।
• बाद में, हमने ऑन एरर रिज्यूमे नेक्स्ट स्टेटमेंट जोड़ा। यह किसी भी त्रुटि को अनदेखा कर देगा।
• बाद में, हमने उपयोगकर्ता से शीट का नाम प्राप्त करने के लिए इनपुटबॉक्स का उपयोग किया। साथ ही, हमने टेक्स्ट स्ट्रिंग को InputBox से sheet_name वेरिएबल में स्टोर किया।
• अगला, अगर sheet_name खाली है, तो कोड आगे नहीं बढ़ेगा।
• आखिरकार, हम नई बनाई गई शीट को नाम देने के लिए Add.Name पद्धति का उपयोग कर रहे हैं। यहां, नाम sheet_name वेरिएबल के समान होगा।

• इस समय, रन दबाएं (⏵) चिह्न। बल्कि, आप अपने कीबोर्ड पर F5 दबा सकते हैं।

• अचानक, यह एक इनपुट बॉक्स खोलता है।
• यहां, नई शीट का नाम दर्ज करें। इस मामले में, हमने बॉक्स में लाभ लिखा।
• बाद में, ठीक पर क्लिक करें।

• तो, हमारा कोड निष्पादित होगा, और यह लाभ नाम की एक शीट जोड़ देगा।

ध्यान दें: हमने अपनी शीट के लिए किसी जगह का उल्लेख नहीं किया है। डिफ़ॉल्ट रूप से, इसे सक्रिय शीट से पहले रखा जाता है।

और पढ़ें: अन्य कार्यपुस्तिका में शीट जोड़ने के लिए एक्सेल VBA (3 सुविधाजनक उदाहरण)

2. विशिष्ट शीट से पहले नाम के साथ शीट जोड़ने के लिए एक्सेल VBA को लागू करना

हमारी दूसरी विधि में, हम एक विशिष्ट शीट से पहले नाम के साथ एक शीट जोड़ेंगे। आइए प्रक्रिया को चरणबद्ध तरीके से देखेंचरण।

📌 चरण:

• सबसे पहले, कोड मॉड्यूल विंडो को ऊपर लाएं जैसा कि <में दिखाया गया है 1>पद्धति 1 ।
• दूसरा, उसमें निम्न कोड लिखें।

3997

कोड ब्रेकडाउन

• सबसे पहले, हम उप प्रक्रिया को Add_Sheet_Before_Specific_Sheet कह रहे हैं।
• फिर, हम बिक्री रिपोर्ट शीट को सक्रिय करते हैं। यह सुनिश्चित करेगा कि यदि हम किसी अन्य शीट पर हैं तो कोड चलेगा।
• अगला, हम नई बनाई गई शीट को नाम देने के लिए Add.Name विधि का उपयोग कर रहे हैं। यह शीट कार्यपुस्तिका से लाभ नामक शीट से पहले बनाई जाएगी। इसके अलावा, हमने शीट को बैलेंस शीट का नाम दिया है। 1 ।
• इस प्रकार, यह लाभ नाम की शीट से पहले एक नई शीट बैलेंस शीट जोड़ देगा।

और पढ़ें: वैरिएबल नाम के साथ शीट जोड़ने के लिए एक्सेल VBA (5 आदर्श उदाहरण)

3. शीट जोड़ने के लिए एक्सेल VBA का उपयोग करना विशिष्ट शीट के बाद नाम के साथ

इस विधि में, हम लाभ नाम की शीट के बाद एक शीट जोड़ देंगे। आइए प्रक्रिया को विस्तार से देखें।

📌 चरण:

• सबसे पहले, कोड मॉड्यूल<2 लाएं> विंडो विधि 1 में दर्शाई गई है।
• उसके बाद उसमें निम्न कोड लिखें।

4986

यह कोड लगभग <के कोड के समान है 1>विधि 2 . बस, यहां हमने After बल्कि Parameter का इस्तेमाल किया पहले की तुलना में। क्योंकि हम एक विशिष्ट शीट के बाद नई शीट जोड़ना चाहते हैं।

• बाद में, पद्धति 1 में दिखाए अनुसार कोड चलाएँ।<15
• इस प्रकार, यह लाभ नाम की शीट के बाद एक नई शीट वेयरहाउस जोड़ देगा।

और पढ़ें: एक्सेल वीबीए को शीट जोड़ने के लिए अगर यह मौजूद नहीं है (त्वरित चरणों के साथ)

4. कार्यपुस्तिका के प्रारंभ में नाम के साथ शीट सम्मिलित करना

इस खंड में, हम VBA का उपयोग करके Excel में कार्यपुस्तिका की शुरुआत में एक नई शीट सम्मिलित करेंगे। तो, बिना किसी देरी के, देखते हैं कि हम इसे कैसे करते हैं।

📌 चरण:

• शुरुआत में, कोड ऊपर लाएं मॉड्यूल विंडो जैसा कि पद्धति 1 में दिखाया गया है।
• बाद में, उसमें निम्नलिखित कोड लिखें।

9593

यहाँ, हम जोड़ रहे हैं कार्यपुस्तिका की पहली शीट से पहले नई वर्कशीट। अर्थात कार्यपुस्तिका के प्रारंभ में। परिणामस्वरूप, अब यह पहली शीट है। साथ ही, हमने शीट को कंपनी प्रोफाइल नाम दिया है।

• फिर, पद्धति 1 में दिखाए अनुसार कोड चलाएँ।
• इसलिए, यह कार्यपुस्तिका के प्रारंभ में एक नई शीट कंपनी प्रोफ़ाइल जोड़ेगी।

और पढ़ें: एक्सेल मैक्रो: नई शीट बनाएं और नाम बदलें (3 आदर्श उदाहरण)

5. वर्कबुक के अंत में शीट जोड़ने के लिए एक्सेल वीबीए का उपयोग

इस अनुभाग में, हम कार्यपुस्तिका की अंतिम शीट के बाद एक शीट जोड़ेंगे । मुझे प्रक्रिया प्रदर्शित करने की अनुमति देंनीचे।

📌 चरण:

• मुख्य रूप से, कोड मॉड्यूल विंडो खोलें जैसा कि <1 में दिखाया गया है>पद्धति 1 ।
• दूसरा, उसमें निम्न कोड पेस्ट करें।

7674

कोड ब्रेकडाउन

• सबसे पहले, हम उप प्रक्रिया को शीट_एंड_वर्कबुक कह रहे हैं। हम इस शीट को कार्यपुस्तिका की अंतिम शीट के बाद बनाएंगे। हम Sheets.Count गुण से अंतिम शीट संख्या प्राप्त कर सकते हैं। इसके अलावा, हमने शीट का नाम आय विवरण रखा है। 1 ।
• इसलिए, यह कार्यपुस्तिका के अंत में आय विवरण एक नई शीट जोड़ देगा।

और पढ़ें: नई वर्कबुक बनाएं और एक्सेल में VBA का उपयोग करके सहेजें

6. पेश है एक्सेल VBA द्वारा सेल वैल्यू का उपयोग करके कई शीट्स

अंतिम विधि के लिए, हम Excel VBA का उपयोग करके कक्षों की श्रेणी से नाम के साथ कार्यपुस्तिका में एकाधिक पत्रक जोड़ेंगे। इसके अलावा, हम उपयोगकर्ता से नाम लेने के लिए रेंज के इनपुट के लिए पूछेंगे। तो, चलिए नीचे दिए गए चरणों पर एक नज़र डालते हैं।

📌 चरण:

• सबसे पहले, कोड खोलें मॉड्यूल विंडो जैसा कि पद्धति 1 में दिखाया गया है।
• बाद में, निम्न कोड को कॉपी करें और उसमें पेस्ट करें।

7516

• सबसे पहले, हम सब को कॉल कर रहे हैंAdd_Multiple_Sheets_Using_Cell_Value के रूप में कार्यविधि।
• फिर, हम चर प्रकारों को परिभाषित करते हैं।
• बाद में, हम उपयोगकर्ता से डेटा की सीमा प्राप्त करने के लिए InputBox का उपयोग करते हैं।
• चौथा, हम शीट बिक्री रिपोर्ट को सक्रिय करते हैं।
• बाद में, हम चयनित सेल रेंज को एक-एक करके जाने के लिए प्रत्येक अगले लूप का उपयोग करते हैं।<15
• अगला, हम नई बनाई गई शीट को नाम देने के लिए Add.Name विधि का उपयोग कर रहे हैं। हम कार्यपुस्तिका की सक्रिय शीट बिक्री रिपोर्ट के बाद इन शीटों का निर्माण करेंगे। पद्धति 1 ।
• तुरंत, Exceldemy इनपुट बॉक्स खुलता है।
• फिर, B5:B9<2 में सेल दें> बॉक्स में श्रेणी।
• अंत में, ठीक क्लिक करें।

• अंत में, यह <डाल देगा 1>पांच शीट का नाम B5:B9 रेंज में सेल वैल्यू के नाम पर रखा गया है। वे सभी शीट बिक्री रिपोर्ट के बाद हैं।

निष्कर्ष

यह लेख शीट जोड़ने के लिए आसान और संक्षिप्त समाधान प्रदान करता है एक्सेल VBA द्वारा नामों के साथ। अभ्यास फ़ाइल डाउनलोड करना न भूलें। इस लेख को पढ़ने के लिए धन्यवाद, हमें उम्मीद है कि यह मददगार था। यदि आपके कोई प्रश्न या सुझाव हैं तो कृपया हमें टिप्पणी अनुभाग में बताएं। अधिक जानने के लिए कृपया हमारी वेबसाइट Exceldemy पर जाएं।