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

Excel VBA: शीट जोड़ें यदि यह मौजूद नहीं है (एक त्वरित दृश्य)

9445

ऊपर दिए गए कोड को लागू करने के लिए एक नए मॉड्यूल में डालें।

अभ्यास कार्यपुस्तिका डाउनलोड करें

आप हमारी अभ्यास कार्यपुस्तिका को यहां से निःशुल्क डाउनलोड कर सकते हैं!

शीट जोड़ने के लिए VBA कोड लागू करने के चरण एक्सेल यदि यह मौजूद नहीं है

मान लीजिए, आपके पास एक कार्यपुस्तिका है जिसमें जनवरी, फरवरी, मार्च और अप्रैल नाम की 4 वर्कशीट हैं। प्रत्येक शीट में अगले महीने की बिक्री रिपोर्ट होती है। अब, आपको कार्यपुस्तिका में कुछ पत्रक ढूंढने होंगे और यदि पत्रक मौजूद नहीं है तो उसे जोड़ने की आवश्यकता है। इसे पूरा करने के लिए आप नीचे दिए गए चरण-दर-चरण दिशानिर्देशों का पालन कर सकते हैं।

📌 चरण 1: एक नया मॉड्यूल डालें

पहले, आपको सम्मिलित करने की आवश्यकता है VBA कोड लिखने के लिए एक मॉड्यूल।

• ऐसा करने के लिए, बिल्कुल शुरुआत में, डेवलपर टैब >> विजुअल बेसिक टूल पर जाएं।

• परिणामस्वरूप, Microsoft Visualएप्लिकेशन के लिए बेसिक विंडो दिखाई देगी।
• इसके बाद, इन्सर्ट टैब >> मॉड्यूल टूल

इस प्रकार, Module1 नामक एक नया मॉड्यूल बनाया गया है।

और पढ़ें: कैसे शीट जोड़ें एक्सेल VBA में नाम (6 आसान तरीके)

समान रीडिंग

• नई वर्कबुक बनाएं और एक्सेल में VBA का उपयोग करके सहेजें
• Excel VBA: एक नई कार्यपुस्तिका बनाएं और इसे नाम दें (6 उदाहरण)
• Excel में मैक्रो का उपयोग करके टेम्पलेट से नई शीट कैसे बनाएं

📌 चरण 2: आवश्यक VBA कोड लिखें और सहेजें

अब, आपको मॉड्यूल के अंदर कोड लिखने और इसे सहेजने की आवश्यकता है।

• में ऐसा करने के लिए, Module1 विकल्प पर क्लिक करें और कोड विंडो में निम्न कोड लिखें।

33651133

• एक के रूप में परिणाम, कोड विंडो निम्नलिखित की तरह दिखेगी।

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

♣ खंड 1:

9838

इस भाग में, हमने मैक्रो नाम और चर नाम घोषित किया है es.

♣ खंड 2:

6454

इस भाग में, हमने एक इनपुट बॉक्स बनाया है। इस इनपुट बॉक्स के माध्यम से, हम उस फ़ाइल के नाम का इनपुट ले सकते हैं जिसे हमें ढूंढना है।

♣ खंड 3:

2833

इस भाग में, हम जांचते हैं कि कार्यपुस्तिका में आवश्यक शीट मौजूद है या नहीं। यदि नहीं, तो यह आवश्यक शीट बना देगा और हमें इस परिवर्तन के बारे में एक संदेश दिखाएगा।

♣ खंड 4:

5512

इस भाग में, हमने कार्यपुस्तिका में आवश्यक शीट पहले से मौजूद होने पर परिणाम के साथ काम किया है। इस परिदृश्य में, एक अन्य संदेश बॉक्स आपको सूचित करेगा कि यह पत्रक मौजूद है। इसके अलावा, इस भाग में, हम कोड को ठीक से समाप्त करते हैं।

• बाद में, Ctrl + S दबाएं।

• इसके बाद, एक माइक्रोसॉफ्ट एक्सेल विंडो दिखाई देगी। नहीं बटन पर क्लिक करें।

• नतीजतन, इस रूप में सहेजें विंडो दिखाई देगी।
• निम्नानुसार, Save as type: विकल्प को .xlsm प्रारूप के रूप में चुनें। इसके बाद, सहेजें बटन पर क्लिक करें।

इस प्रकार, आपने अपना आवश्यक कोड लिखा और सहेज लिया है।

ध्यान दें:

आपको एक्सेल वर्कबुक को .xlsm फॉर्मेट में सेव करना होगा। अन्यथा, मैक्रो सक्षम नहीं होगा और कोड काम नहीं करेगा।

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

📌 चरण 3: कोड चलाएँ

अब, आपको कोड चलाने और परिणामों की जाँच करने की आवश्यकता है।

• ऐसा करने के लिए, सबसे पहले, क्लिक करें अनुप्रयोगों के लिए Microsoft Visual Basic विंडो में चलाएं आइकन पर।

• परिणामस्वरूप, मैक्रोज़ विंडो दिखाई देगी।
• इसके बाद, AddSheetIfNotExist मैक्रो चुनें और रन बटन पर क्लिक करें।

• इस समय, हमारा संदेश बॉक्स बनाया गया हैनाम Add Sheet if Not Exist दिखाई देगा। यहां, ऑटो विकल्प होगा Sheet5 ।

• अब चेक करने के लिए "अप्रैल"<2 लिखें> टेक्स्ट बॉक्स में क्लिक करें और ओके बटन पर क्लिक करें। बॉक्स आपको बताएगा कि शीट पहले से मौजूद है।
• ओके बटन पर क्लिक करें।

• बाद में, कोड को फिर से चलाएँ और बनाए गए संदेश बॉक्स के टेक्स्ट बॉक्स में "मई" लिखें। इसके बाद, ओके बटन पर क्लिक करें। आपको सूचित करते हुए दिखाई देंगे कि "मई" शीट मौजूद नहीं थी और इस प्रकार इसने यह शीट बनाई।
• निम्नलिखित, ठीक बटन पर क्लिक करें।

आखिरकार, आप देख सकते हैं कि आपने एक शीट जोड़ दी है जो पहले मौजूद नहीं थी। और, वर्कबुक अब इस तरह दिखेगी।

और पढ़ें: Excel VBA: Add Sheet After Last (3 आदर्श उदाहरण)

निष्कर्ष

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

और, और अधिक जानकारी के लिए ExcelWIKI पर जाएं।इस तरह के लेख। धन्यवाद!