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

Excel VBA: जर ते अस्तित्वात नसेल तर शीट जोडा (एक द्रुत दृश्य)

7353

वरील कोड लागू करण्यासाठी नवीन मॉड्यूलमध्ये घाला.

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

तुम्ही आमचे सराव वर्कबुक येथून विनामूल्य डाउनलोड करू शकता!

शीट जोडण्यासाठी VBA कोड लागू करण्याच्या चरण एक्सेल जर अस्तित्वात नसेल तर

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

📌 पायरी 1: नवीन मॉड्यूल घाला

प्रथम, तुम्हाला समाविष्ट करणे आवश्यक आहे VBA कोड लिहिण्यासाठी मॉड्यूल.

• हे करण्यासाठी, अगदी सुरुवातीला, डेव्हलपर टॅब >> Visual Basic टूलवर जा.

• परिणामी, मायक्रोसॉफ्ट व्हिज्युअलऍप्लिकेशन्ससाठी बेसिक विंडो दिसेल.
• त्यानंतर, इन्सर्ट टॅब >> मॉड्युल टूलवर जा.

अशा प्रकारे, मॉड्युल1 नावाचे नवीन मॉड्यूल तयार केले गेले आहे.

अधिक वाचा: शीट कसे जोडावे Excel VBA मधील नाव (6 सोपे मार्ग)

समान वाचन

• नवीन वर्कबुक तयार करा आणि एक्सेलमध्ये VBA वापरून सेव्ह करा
• Excel VBA: नवीन कार्यपुस्तिका तयार करा आणि त्याला नाव द्या (6 उदाहरणे)
• Excel मध्‍ये मॅक्रो वापरून टेम्प्लेटमधून नवीन पत्रक कसे तयार करावे

📌 पायरी 2: आवश्यक VBA कोड लिहा आणि सेव्ह करा

आता, तुम्हाला मॉड्यूलमध्ये कोड लिहून सेव्ह करणे आवश्यक आहे.

• मध्ये हे करण्यासाठी, Module1 पर्यायावर क्लिक करा आणि कोड विंडोमध्ये खालील कोड लिहा.

48184942

• म्हणून परिणामी, कोड विंडो खालीलप्रमाणे दिसेल.

🔎 कोड स्पष्टीकरण:

♣ विभाग 1:

1114

या भागात, आम्ही मॅक्रो नाव आणि व्हेरिएबल नाम घोषित केले आहे. es.

♣ विभाग २:

4184

या भागात, आम्ही एक इनपुट बॉक्स तयार केला आहे. या इनपुट बॉक्सद्वारे, आम्ही शोधण्यासाठी आवश्यक असलेल्या फाईलच्या नावाचे इनपुट घेऊ शकतो.

♣ विभाग 3:

2684

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

♣ सेगमेंट 4:

5508

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

• नंतर, Ctrl + S.

• त्यानंतर, एक Microsoft Excel विंडो दिसेल. नाही बटणावर क्लिक करा.

• परिणामी, जतन करा विंडो दिसेल.
• पुढे, प्रकार म्हणून सेव्ह करा: पर्याय .xlsm फॉरमॅट म्हणून निवडा. त्यानंतर, सेव्ह बटणावर क्लिक करा.

अशा प्रकारे, तुम्ही तुमचा आवश्यक कोड लिहून सेव्ह केला आहे.

टीप:

तुम्ही एक्सेल वर्कबुक .xlsm फॉरमॅटमध्ये सेव्ह केले पाहिजे. अन्यथा, मॅक्रो सक्षम केले जाणार नाही आणि कोड कार्य करणार नाही.

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

📌 पायरी 3: कोड चालवा

आता, तुम्हाला कोड चालवावा लागेल आणि परिणाम तपासा.

• हे करण्यासाठी, प्रथम आणि सर्वात महत्त्वाचे म्हणजे, क्लिक करा Microsoft Visual Basic for Applications विंडोमधील Run चिन्हावर.

• परिणामी, मॅक्रो विंडो दिसेल.
• त्यानंतर, AddSheetIfNotExist मॅक्रो निवडा आणि रन बटणावर क्लिक करा.

• यावेळी, आमचा मेसेज बॉक्स तयार केला आहे अस्तित्वात नसल्यास शीट जोडा असे नाव दिसेल. येथे, ऑटो पर्याय असेल पत्रक5 .

• आता, तपासण्यासाठी, लिहा “एप्रिल” टेक्स्ट बॉक्समध्ये आणि ओके बटणावर क्लिक करा.

• त्यानंतर, तुम्हाला तो दुसरा संदेश दिसेल. पत्रक आधीच अस्तित्वात आहे हे सांगणारा बॉक्स दिसेल.
• ओके बटणावर क्लिक करा.

• त्यानंतर, कोड पुन्हा चालवा आणि तयार केलेल्या संदेश बॉक्सच्या मजकूर बॉक्समध्ये “मे” लिहा. त्यानंतर, OK बटणावर क्लिक करा.

• परिणामी, तुम्हाला दुसरा संदेश बॉक्स दिसेल जो तुम्हाला कळवताना दिसेल की “मे” शीट अस्तित्वात नाही आणि त्यामुळे हे शीट तयार केले.
• नंतर, ओके बटणावर क्लिक करा.

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

अधिक वाचा: Excel VBA: शेवटच्या नंतर शीट जोडा (3 आदर्श उदाहरणे)

निष्कर्ष

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

आणि, आणखी बऱ्याच गोष्टींसाठी ExcelWIKI ला भेट द्यायासारखे लेख. धन्यवाद!