यह ट्यूटोरियल चर्चा करेगा कि VBA का उपयोग करके वर्कशीट कैसे जोड़ें / डालें।
शीट जोड़ें
यह साधारण मैक्रो ActiveSheet से पहले एक पत्रक जोड़ देगा:
| 123 | उप जोड़ें ()पत्रक।जोड़ेंअंत उप |
शीट डालने के बाद, नई शीट एक्टिवशीट बन जाती है। फिर आप नई शीट के साथ काम करने के लिए ActiveSheet ऑब्जेक्ट का उपयोग कर सकते हैं (इस आलेख के निचले भाग में हम दिखाएंगे कि एक चर में सीधे एक नई शीट कैसे सम्मिलित करें)।
| 1 | एक्टिवशीट.नाम = "न्यूशीट" |
नाम के साथ शीट जोड़ें
नई शीट बनाते समय आप शीट का नाम भी परिभाषित कर सकते हैं:
| 1 | पत्रक.जोड़ें.नाम = "नई पत्रक" |
सेल से नाम के साथ नई शीट बनाएं
या किसी नई शीट को नाम देने के लिए सेल मान का उपयोग करें:
| 1 | पत्रक। जोड़ें। नाम = श्रेणी ("a3")। मान |
एक और शीट के पहले / बाद में शीट जोड़ें
आप उस स्थान को भी चुनना चाहेंगे जहां नई शीट डाली जाएगी। कार्यपुस्तिका में किसी विशिष्ट स्थान पर एक शीट सम्मिलित करने के लिए आप आफ्टर या बिफोर प्रॉपर्टीज का उपयोग कर सकते हैं।
एक और शीट के बाद शीट डालें
यह कोड दूसरी शीट के बाद नई शीट डालेगा:
| 1 | पत्रक। बाद में जोड़ें: = पत्रक ("इनपुट") |
यह एक और शीट के बाद एक नई शीट सम्मिलित करेगा और शीट का नाम निर्दिष्ट करेगा:
| 1 | पत्रक। जोड़ें (बाद: = पत्रक ("इनपुट"))। नाम = "न्यूशीट" |
दूसरे उदाहरण में आवश्यक अतिरिक्त कोष्ठक पर ध्यान दें (यदि दूसरा कोष्ठक जोड़ा जाता है तो पहला उदाहरण एक त्रुटि उत्पन्न करेगा)।
या पहले:
| 1 | शीट्स। जोड़ें (पहले: = शीट्स ("इनपुट"))। नाम = "न्यूशीट" |
इन उदाहरणों में हमने शीट के स्थान को निर्धारित करने के लिए प्रयुक्त शीट को स्पष्ट रूप से नामित किया है। अक्सर आप इसके बजाय शीट इंडेक्स नंबर का उपयोग करना चाहेंगे, ताकि आप वर्कबुक की शुरुआत या अंत में शीट को सम्मिलित कर सकें:
कार्यपुस्तिका के अंत में पत्रक जोड़ें
कार्यपुस्तिका के अंत में शीट जोड़ने के लिए:
| 1 | पत्रक। बाद में जोड़ें: = पत्रक (पत्रक। गणना) |
कार्यपुस्तिका की शुरुआत में शीट जोड़ें:
कार्यपुस्तिका की शुरुआत में एक पत्रक जोड़ने के लिए:
| 1 | शीट्स। जोड़ें (पहले: = शीट्स (1))। नाम = "फर्स्टशीट" |
वेरिएबल में शीट जोड़ें
यह कोड नई शीट को एक वेरिएबल को असाइन करता है जैसे ही शीट बनाई जाती है:
| 12 | वर्कशीट के रूप में डिम WSws सेट करें = पत्रक। जोड़ें |
यहां से आप नई शीट को वेरिएबल 'ws' के साथ संदर्भित कर सकते हैं:
| 1 | ws.name = "वरशीट" |
अधिक शीट उदाहरण जोड़ें
शीट बनाएं यदि वह पहले से मौजूद नहीं है
हो सकता है कि आप केवल एक शीट बनाना चाहें, यदि वह पहले से मौजूद न हो।
नामों की सूची से वर्कशीट बनाएं
निम्नलिखित रूटीन इन नामों के साथ वर्तमान कार्यपुस्तिका के भीतर एक्सेल वर्कशीट सेट अप एकल कॉलम की सामग्री को देखेगा। यह किसी अन्य फ़ंक्शन को यह देखने के लिए कॉल करता है कि क्या उस नाम की कोई शीट पहले से मौजूद है, और यदि ऐसा है तो शीट नहीं बनाई गई है।
| 1234567891011121314151617181920212223242526 | निजी उप कमांडबटन1_क्लिक करें ()कॉल CreateWorksheets(Sheets("Sheet2").Range("A1:a10"))अंत उपउप CreateWorksheets (Names_Of_Sheets रेंज के रूप में)Dim No_Of_Sheets_to_be_Added as Integerमंद पत्रक_नाम स्ट्रिंग के रूप मेंडिम आई अस इंटीजरNo_Of_Sheets_to_be_Added = Names_Of_Sheets.Rows.Countके लिए मैं = 1 से No_Of_Sheets_to_be_Addedशीट_नाम = Names_Of_Sheets.Cells(i, 1).Value'केवल शीट जोड़ें यदि यह पहले से मौजूद नहीं है और नाम शून्य वर्णों से अधिक लंबा हैअगर (Sheet_Exists(Sheet_Name) = False) और (Sheet_Name "") तोकार्यपत्रक। जोड़ें ()। नाम = पत्रक_नामअगर अंतअगला मैंअंत उप |
| 1234567891011121314 | फ़ंक्शन शीट_एक्सिस्ट्स (वर्कशीट_नाम स्ट्रिंग के रूप में) बूलियन के रूप मेंवर्कशीट के रूप में डिम वर्क_शीटशीट_एक्सिस्ट्स = असत्यइस कार्यपुस्तिका में प्रत्येक कार्यपत्रक के लिए। कार्यपत्रकअगर Work_sheet.Name = WorkSheet_Name तोशीट_एक्सिस्ट्स = सत्यअगर अंतअगलाअंत समारोह |
इसलिए यदि हमारे पास शीट 2 में कक्ष A1:A30 में निम्न पाठ है:
फिर निम्नलिखित शीट बनाई जाएंगी:
ध्यान दें कि हालांकि "डॉग" दो बार दिखाई देता है, केवल एक शीट बनाई जाती है।
इस ट्यूटोरियल के लिए .XLS फ़ाइल डाउनलोड करने के लिए, यहां क्लिक करें।
