वीबीए का उपयोग करके एक्सेल में नई शीट कैसे जोड़ें

Excel कार्यपुस्तिका में नई शीट जोड़ने के लिए आप VBA में निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: एक नई शीट जोड़ें

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

यह मैक्रो स्वचालित रूप से जेनरेट किए गए नाम के साथ कार्यपुस्तिका में एक नई शीट जोड़ देगा जो कार्यपुस्तिका में दर्शाए गए शीट नंबर का वर्णन करता है।

उदाहरण के लिए, यदि कार्यपुस्तिका में तीन शीट हैं और आप इस मैक्रो को चलाते हैं, तो शीट4 नाम से एक नई शीट बनाई जाएगी।

ध्यान दें : डिफ़ॉल्ट रूप से, VBA वर्तमान सक्रिय शीट से ठीक पहले नई शीट जोड़ देगा।

विधि 2: एकाधिक नई शीट जोड़ें

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

यह मैक्रो कार्यपुस्तिका में तीन नई शीट जोड़ देगा।

विधि 3: एक नाम के साथ एक नई शीट जोड़ें

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

यह मैक्रो कार्यपुस्तिका में MyNewSheet नाम से एक नई शीट जोड़ देगा।

विधि 4: किसी विशिष्ट शीट से पहले एक नाम के साथ एक नई शीट जोड़ें

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

यह मैक्रो वर्कबुक में MyNewSheet नाम से टीम्स नामक मौजूदा शीट से ठीक पहले एक नई शीट जोड़ देगा।

विधि 5: किसी विशिष्ट शीट के नाम के साथ एक नई शीट जोड़ें

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

यह मैक्रो टीम्स नामक मौजूदा शीट के बाद सीधे MyNewSheet नाम से कार्यपुस्तिका में एक नई शीट जोड़ देगा।

विधि 6: कार्यपुस्तिका के अंत में एक नाम के साथ एक नई शीट जोड़ें

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

यह मैक्रो कार्यपुस्तिका के बिल्कुल अंत में MyNewSheet नाम से कार्यपुस्तिका में एक नई शीट जोड़ देगा।

विधि 7: कार्यपुस्तिका की शुरुआत में एक नाम के साथ एक नई शीट जोड़ें

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

यह मैक्रो कार्यपुस्तिका की शुरुआत में ही MyNewSheet नाम से कार्यपुस्तिका में एक नई शीट जोड़ देगा।

निम्नलिखित उदाहरण दिखाते हैं कि तीन मौजूदा शीटों के साथ निम्नलिखित एक्सेल कार्यपुस्तिका के साथ अभ्यास में प्रत्येक विधि का उपयोग कैसे किया जाए:

उदाहरण 1: एक नई शीट जोड़ें

हम स्वचालित रूप से जेनरेट किए गए नाम के साथ कार्यपुस्तिका में एक नई शीट जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

जब हम इस मैक्रो को चलाते हैं, तो वर्कबुक में टीम्स शीट से ठीक पहले शीट4 नाम से एक नई शीट जोड़ी जाती है, जिसे हमने मैक्रो चलाते समय चुना था:

उदाहरण 2: अनेक नई शीट जोड़ें

हम स्वचालित रूप से जेनरेट किए गए नामों के साथ कार्यपुस्तिका में तीन नई शीट जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

जब हम इस मैक्रो को चलाते हैं, तो टीम्स शीट से ठीक पहले कार्यपुस्तिका में तीन नई शीट जुड़ जाती हैं, जिन्हें हमने मैक्रो चलाते समय चुना था:

उदाहरण 3: एक नाम के साथ एक नई शीट जोड़ें

हम कार्यपुस्तिका में एक विशिष्ट नाम के साथ एक नई शीट जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

जब हम इस मैक्रो को चलाते हैं, तो टीम्स शीट से ठीक पहले कार्यपुस्तिका में MyNewSheet नाम की एक नई शीट जोड़ी जाती है, जिसे हमने मैक्रो चलाते समय चुना था:

उदाहरण 4: किसी विशिष्ट शीट से पहले एक नाम के साथ एक नई शीट जोड़ें

हम किसी विशिष्ट मौजूदा शीट से ठीक पहले कार्यपुस्तिका में एक नई शीट जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

जब हम इस मैक्रो को चलाते हैं, तो टीम शीट से ठीक पहले MyNewSheet नाम की एक नई शीट कार्यपुस्तिका में जुड़ जाती है:

उदाहरण 5: किसी विशिष्ट शीट के नाम के साथ एक नई शीट जोड़ें

हम किसी विशिष्ट मौजूदा शीट के बाद सीधे कार्यपुस्तिका में एक नई शीट जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

जब हम इस मैक्रो को चलाते हैं, तो टीम शीट के बाद सीधे MyNewSheet नाम की एक नई शीट कार्यपुस्तिका में जुड़ जाती है:

उदाहरण 6: कार्यपुस्तिका के अंत में एक नाम के साथ एक नई शीट जोड़ें

हम कार्यपुस्तिका के बिल्कुल अंत में एक नई शीट जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

जब हम इस मैक्रो को चलाते हैं, तो कार्यपुस्तिका के बिल्कुल अंत में MyNewSheet नामक एक नई शीट जोड़ी जाती है:

उदाहरण 7: कार्यपुस्तिका की शुरुआत में एक नाम के साथ एक नई शीट जोड़ें

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

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

जब हम इस मैक्रो को चलाते हैं, तो कार्यपुस्तिका की शुरुआत में MyNewSheet नामक एक नई शीट जोड़ी जाती है:

ध्यान दें : आप शीट्स.ऐड विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: अंतिम प्रयुक्त पंक्ति कैसे खोजें
वीबीए: अंतिम प्रयुक्त कॉलम कैसे खोजें
वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें