हा लेख एक्सेल VBA मध्ये नाव असलेले शीट कसे जोडायचे यावरील तुमच्या प्रश्नांची उत्तरे देतो. तुम्ही अशा अनोख्या प्रकारच्या युक्त्या शोधत असाल, तर तुम्ही योग्य ठिकाणी आला आहात. येथे, आम्ही चर्चा करू 6 सोपे & एक्सेल VBA मध्ये नावासह शीट जोडण्याचे सिद्ध मार्ग.

सराव वर्कबुक डाउनलोड करा

आपण चांगल्या प्रकारे समजून घेण्यासाठी आणि सराव करण्यासाठी खालील एक्सेल वर्कबुक डाउनलोड करू शकता.

नावासह पत्रक जोडण्यासाठी VBA कोड

आम्ही जोडण्यासाठी शीट ऑब्जेक्ट वापरू Excel मध्ये एक पत्रक. नावासह शीट जोडण्यासाठी मूलभूत VBA कोड खालीलप्रमाणे दिसतो.

पूर्वी: हे ऐच्छिक आहे. हे विशिष्ट शीटच्या आधी एक नवीन शीट जोडते.

नंतर: हे देखील पर्यायी आहे. हे एका विशिष्ट शीटनंतर नवीन शीट जोडते.

गणना: हे देखील एक पर्यायी पॅरामीटर आहे. हे जोडण्यासाठी शीट्सची संख्या दर्शवते.

प्रकार: हे देखील पर्यायी आहे. हे पत्रकाचा प्रकार निर्दिष्ट करते. येथे, डीफॉल्ट मूल्य xlWorksheet आहे.

एक्सेल VBA मध्ये नावासह शीट जोडण्याचे 6 भिन्न मार्ग

एक्सेलमध्ये, आम्ही अॅड <सह नवीन शीट जोडू शकतो. 1>⊕ शीटच्या नावाच्या अगदी बाजूला चिन्ह. एक्सेलमध्ये समान कार्य स्वयंचलित करण्याचा विचार केला आहे का? अधिक विचार करू नका, कारण VBA तुम्ही कव्हर केले आहे.

येथे आमच्याकडे विक्री अहवाल नावाचे वर्कशीट आहे. त्यात दैनिक विक्री समाविष्ट आहेएका विशिष्ट कॅफेटेरियाचा अहवाल द्या. B , C आणि D स्तंभांमध्ये, विक्री प्रतिनिधी , वस्तू आणि <1 ची नावे आहेत>मात्रा अनुक्रमे.

येथे, आम्ही या वर्कबुकमध्ये VBA मॅक्रो च्या मदतीने इतर पत्रके जोडू.

येथे, आम्ही Microsoft Excel 365 आवृत्ती वापरली आहे, तुम्ही तुमच्या सोयीनुसार इतर कोणतीही आवृत्ती वापरू शकता.

1. Excel VBA मध्ये नावासह शीट जोडणे

आमच्या पहिल्या पद्धतीमध्ये, आम्ही वापरकर्ता इनपुट मधून नाव असलेली शीट जोडू. तुम्हाला जाणून घेण्यास उत्सुक असल्यास, या सोप्या चरणांचे अनुसरण करा.

📌 पायऱ्या:

• सुरुवातीला, येथे जा डेव्हलपर टॅब.
• दुसरे, कोड गटावर Visual Basic निवडा.
• वैकल्पिकपणे, ALT दाबा + F11 समान कार्य करण्यासाठी.

टीप: दाबण्याची खात्री करा SPACEBAR च्या डावीकडे ALT की. तुम्ही इतर ALT की वापरल्यास ऑपरेशन कार्यान्वित होणार नाही.

• तत्काळ, Microsoft Visual Basic for Applications विंडो उघडेल.<15
• नंतर, घाला टॅबवर जा.
• नंतर, पर्यायांमधून मॉड्युल निवडा.

• सध्या, तो मॉड्युल कोड उघडतो.
• नंतर, खालील कोड मॉड्युल मध्ये लिहा.

1414

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

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

• या क्षणी, रन दाबा (⏵) आयकन. त्याऐवजी, तुम्ही तुमच्या कीबोर्डवर F5 दाबू शकता.

• अचानक, तो एक इनपुट बॉक्स उघडतो.
• येथे नवीन शीटचे नाव टाका. या प्रकरणात, आम्ही बॉक्समध्ये नफा लिहिले.
• नंतर, ठीक आहे क्लिक करा.

• म्हणून, आमचा कोड कार्यान्वित होईल आणि ते नफा नावाची शीट जोडेल.

टीप: आम्ही आमच्या शीटसाठी कोणत्याही ठिकाणाचा उल्लेख केलेला नाही. डीफॉल्टनुसार, ते सक्रिय शीटच्या आधी ठेवले जाते.

अधिक वाचा: शीट दुसर्‍या वर्कबुकमध्ये जोडण्यासाठी एक्सेल VBA (3 सुलभ उदाहरणे)

2. विशिष्ट पत्रकाच्या आधी नावासह शीट जोडण्यासाठी Excel VBA लागू करणे

आमच्या दुसऱ्या पद्धतीमध्ये, आम्ही विशिष्ट शीटच्या आधी नाव असलेली शीट जोडू. चला प्रक्रिया टप्प्याटप्प्याने एक्सप्लोर करूयापायरी.

📌 पायऱ्या:

• प्रथम, कोड मॉड्यूल विंडोमध्ये दाखवल्याप्रमाणे आणा. 1>पद्धत 1 .
• दुसरे, त्यात खालील कोड लिहा.

9684

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

• प्रथम, आम्ही उप प्रक्रियेला Add_Sheet_Before_Specific_sheet असे म्हणत आहोत.
• नंतर, आम्ही विक्री अहवाल शीट सक्रिय करतो. हे आम्ही दुसर्‍या शीटवर असल्‍यास कोड रन होईल याची खात्री होईल.
• पुढे, नवीन तयार केलेल्या शीटला नाव देण्यासाठी आम्ही Add.Name पद्धत वापरत आहोत. हे पत्रक कार्यपुस्तिकेतील नफा नावाच्या शीटच्या आधी तयार केले जाईल. शिवाय, आम्ही शीटला बॅलन्स शीट असे नाव दिले आहे.

• नंतर, पद्धतीमध्ये दर्शविल्याप्रमाणे कोड चालवा. 1 .
• अशा प्रकारे, ते नफा नावाच्या शीटच्या आधी एक नवीन शीट बॅलन्स शीट जोडेल.

अधिक वाचा: वेरिएबल नावासह शीट जोडण्यासाठी एक्सेल VBA (5 आदर्श उदाहरणे)

3. शीट जोडण्यासाठी एक्सेल VBA वापरणे विशिष्‍ट पत्रकानंतर नावासह

या पद्धतीत, आम्ही नफा नावाच्या शीटमागे एक शीट जोडू. चला प्रक्रिया तपशीलवार पाहू.

📌 पायऱ्या:

• प्रथम, कोड मॉड्यूल<2 आणा> विंडो पद्धत 1 मध्ये दर्शविल्याप्रमाणे.
• त्यानंतर, त्यात खालील कोड लिहा.

4700

हा कोड जवळजवळ <च्या कोड सारखाच आहे. 1>पद्धत 2 . फक्त, इथे आपण After हे पॅरामीटर वापरले पूर्वी पेक्षा. कारण आम्हाला विशिष्ट शीटनंतर नवीन शीट जोडायचे आहे.

• नंतर, पद्धत 1 मध्ये दर्शविल्याप्रमाणे कोड चालवा.<15
• अशा प्रकारे, ते नफा नावाच्या शीटच्या नंतर वेअरहाऊस नवीन शीट जोडेल.

अधिक वाचा: शीट जोडण्यासाठी एक्सेल VBA अस्तित्वात नसल्यास (त्वरित पायऱ्यांसह)

4. वर्कबुकच्या सुरूवातीस नावासह शीट घालणे

या विभागात, आम्ही VBA वापरून एक्सेलमधील वर्कबुकच्या सुरुवातीला एक नवीन शीट घालू. तर, आणखी विलंब न करता, आपण ते कसे करतो ते पाहू.

📌 पायऱ्या:

• सुरुवातीला, कोड आणा < पद्धत 1 मध्ये दाखवल्याप्रमाणे 1>मॉड्युल विंडो.
• नंतर, त्यात खालील कोड लिहा.

5722

येथे, आम्ही जोडत आहोत. वर्कबुकच्या पहिल्या शीटच्या आधी नवीन वर्कशीट. म्हणजे वर्कबुकच्या सुरुवातीला. परिणामी, हे आता पहिले पत्रक आहे. तसेच, आम्ही शीटला कंपनी प्रोफाइल असे नाव दिले.

• नंतर, पद्धत 1 मध्ये दर्शविल्याप्रमाणे कोड चालवा.
• म्हणून, ते कार्यपुस्तिकेच्या सुरूवातीस एक नवीन शीट कंपनी प्रोफाइल जोडेल.

अधिक वाचा: Excel मॅक्रो: नवीन पत्रक तयार करा आणि पुनर्नामित करा (3 आदर्श उदाहरणे)

5. वर्कबुकच्या शेवटी शीट जोडण्यासाठी Excel VBA चा वापर करणे

या विभागात, आम्ही वर्कबुकच्या शेवटच्या पत्रकानंतर एक शीट जोडू . मला प्रक्रिया प्रदर्शित करण्यास अनुमती द्याखाली.

📌 पायऱ्या:

• प्रामुख्याने, <1 मध्ये दर्शविल्याप्रमाणे कोड मॉड्यूल विंडो उघडा>पद्धत 1 .
• दुसरे, त्यात खालील कोड पेस्ट करा.

3591

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

• सर्वप्रथम, आम्ही उप प्रक्रियेला Sheet_End_Workbook म्हणत आहोत.
• पुढे, नवीन तयार केलेल्या शीटला नाव देण्यासाठी आम्ही Add.Name पद्धत वापरत आहोत. वर्कबुकच्या शेवटच्या पत्रकानंतर आम्ही ही शीट तयार करू. आम्ही शेवटचा शीट क्रमांक Sheets.Count प्रॉपर्टीमधून मिळवू शकतो. शिवाय, आम्ही शीटला इन्कम स्टेटमेंट असे नाव दिले आहे.

• त्यानंतर, पद्धतीमध्ये दर्शविल्याप्रमाणे कोड चालवा. 1 .
• म्हणून, ते वर्कबुकच्या शेवटी इन्कम स्टेटमेंट नवीन शीट जोडेल.

अधिक वाचा: नवीन वर्कबुक तयार करा आणि एक्सेलमध्ये VBA वापरून सेव्ह करा

6. एक्सेल VBA द्वारे सेल व्हॅल्यू वापरून अनेक पत्रके सादर करत आहे

शेवटच्या पद्धतीसाठी, आम्ही एक्सेल VBA वापरून सेलच्या श्रेणीतील नावासह वर्कबुकमध्ये अनेक पत्रके जोडू. शिवाय, आम्ही वापरकर्त्याला नाव घेण्यासाठी श्रेणीचे इनपुट विचारू. तर, खाली दिलेल्या पायऱ्या पाहू या.

📌 पायऱ्या:

• प्रथम, कोड उघडा पद्धत 1 मध्ये दाखवल्याप्रमाणे मॉड्यूल विंडो.
• नंतर, खालील कोड कॉपी करा आणि त्यात पेस्ट करा.

1530

• प्रथम, आम्ही सबला कॉल करत आहोतAdd_Multiple_Sheets_Using_Cell_Value म्हणून प्रक्रिया.
• नंतर, आम्ही व्हेरिएबल प्रकार परिभाषित करतो.
• नंतर, आम्ही वापरकर्त्याकडून डेटाची श्रेणी मिळवण्यासाठी इनपुटबॉक्स वापरतो.
• चौथे, आम्ही शीट विक्री अहवाल सक्रिय करतो.
• नंतर, निवडलेल्या सेल श्रेणीतून एक-एक करून जाण्यासाठी आम्ही प्रत्येक पुढीलसाठी लूप वापरतो.<15
• पुढे, नवीन तयार केलेल्या शीटला नाव देण्यासाठी आम्ही Add.Name पद्धत वापरत आहोत. आम्ही वर्कबुकच्या सक्रिय शीट विक्री अहवाल नंतर ही पत्रके तयार करू.

• आता, कोडमध्ये दाखवल्याप्रमाणे चालवा. पद्धत 1 .
• तत्काळ, Exceldemy इनपुट बॉक्स उघडेल.
• नंतर, B5:B9<2 मधील सेल द्या> बॉक्समध्ये श्रेणी.
• शेवटी, ठीक आहे क्लिक करा.

• शेवटी, ते समाविष्ट होईल पाच शीट्स B5:B9 श्रेणीतील सेल व्हॅल्यूजच्या नावावर आहेत. ते सर्व शीट विक्री अहवाल नंतर आहेत.

निष्कर्ष

हा लेख शीट जोडण्यासाठी सोपे आणि संक्षिप्त उपाय प्रदान करतो एक्सेल VBA द्वारे नावांसह. सराव फाइल डाउनलोड करायला विसरू नका. हा लेख वाचल्याबद्दल धन्यवाद, आम्हाला आशा आहे की हे उपयुक्त ठरले. तुमच्या काही शंका किंवा सूचना असल्यास कृपया आम्हाला टिप्पणी विभागात कळवा. अधिक एक्सप्लोर करण्यासाठी कृपया आमच्या वेबसाइटला भेट द्या Exceldemy .