एक्सेल VBA नाम कार्यपत्रक
VBA में, एक वर्कशीट के नाम के लिए किसी विशेष कौशल की आवश्यकता नहीं होती है। हमें केवल यह बताना होगा कि मौजूदा शीट नाम दर्ज करके हम किस शीट नाम को बदल रहे हैं। उदाहरण के लिए, यदि हम "सेल्स" नाम की शीट को बदलना चाहते हैं तो हमें वर्कशीट ऑब्जेक्ट का उपयोग करके शीट को उसके नाम से कॉल करना होगा।
कार्यपत्रक ("बिक्री")
शीट नाम का उल्लेख करने के बाद, हमें वर्कशीट नाम बदलने के लिए "नाम" संपत्ति का चयन करना होगा।
वर्कशीट ("बिक्री")। नाम
अब हमें अपनी इच्छानुसार नाम प्रॉपर्टी को नाम पर सेट करना होगा। मान लें कि आप "सेल्स" को "सेल्स शीट" में बदलना चाहते हैं, तो "NAME" प्रॉपर्टी के बाद समान चिह्न लगाएं और दोहरे कोट्स में नया नाम दर्ज करें।
कार्यपत्रक ("बिक्री")। नाम = "बिक्री पत्रक"
इस तरह, हम नाम संपत्ति का उपयोग करके वर्कशीट नाम बदल सकते हैं।
VBA का उपयोग करके नाम वर्कशीट के उदाहरण
उदाहरण 1
चर का उपयोग करके बदलें या नाम बदलें।
उदाहरण के लिए, नीचे दिए गए नमूना कोड को देखें।
कोड:
उप Name_Example1 () डिम Ws के रूप में कार्यपत्रक सेट Ws = कार्यपत्रक ("बिक्री") Ws.Name = "बिक्री पत्रक" अंत उप
उपरोक्त पहले में, मैंने चर को वर्कशीट के रूप में घोषित किया है।
वर्क्स के रूप में डिम डब्ल्यूएस
अगला, मैंने चर का संदर्भ कार्यपत्रक ऑब्जेक्ट का उपयोग करके "बिक्री" के रूप में निर्धारित किया है।
सेट Ws = कार्यपत्रक ("बिक्री")
अब चर "डब्ल्यूएस" वर्कशीट "बिक्री" का संदर्भ रखता है।
अब "डब्ल्यूएस" चर का उपयोग करते हुए, मैंने वर्कशीट का नाम बदलकर "सेल्स शीट" कर दिया है।
यह कोड "सेल्स" नाम को "सेल्स शीट" में बदल देगा।
याद करने के लिए महत्वपूर्ण नोट
हमने अभी देखा है कि एक्सेल वर्कशीट का नाम एक नाम से दूसरे में कैसे बदला जाए। हालाँकि, यदि हम फिर से कोड चलाते हैं, तो हमें एक सब्सक्रिप्शन आउट ऑफ रेंज त्रुटि मिलेगी।
VBA मैक्रोज़ में एक विशेषज्ञ प्राप्त करने की कुंजी में से एक त्रुटियों को संभालना है। त्रुटियों को संभालने से पहले, हमें यह जानना होगा कि हमें यह त्रुटि क्यों हो रही है।
इसका कारण हमें यह त्रुटि मिलती है, क्योंकि पिछले चरण में ही, हमने पहले ही “सेल्स” नाम की वर्कशीट को “सेल्स शीट” में बदल दिया है।
हमारे पास "बिक्री" नाम की कोई शीट नहीं है, हम इस सबस्क्रिप्ट को सीमा त्रुटि से बाहर निकालेंगे।
उदाहरण # 2
एकल शीट में सभी कार्यपत्रक नाम प्राप्त करें ।
मान लें कि आपकी कार्यपुस्तिका में आपके पास बहुत सारी कार्यपत्रक हैं, और आप इन सभी कार्यपत्रकों का नाम किसी भी एकल कार्यपत्रक में प्राप्त करना चाहते हैं। यह VBA कोडिंग का उपयोग करके किया जा सकता है।
उदाहरण के लिए, नीचे दी गई छवि देखें।
हमारे यहां इतनी चादरें हैं।
इन सभी शीटों से, हमें शीट में प्रत्येक शीट का नाम "इंडेक्स शीट" चाहिए। मैंने आपके लिए निचे कोड लिखा है।
कोड:
उप All_Sheet_Names () DimWs के रूप में लंबे समय तक वर्कशीट Dim LR के रूप में लंबे समय तक प्रत्येक W में ActiveWorkbook.Worksheets LR = कार्यपत्रक ("इंडेक्स शीट")। कोशिकाएं (पंक्तियाँ, 1) .End (xlUp) .Row + 1 'यह LR varaible अंतिम प्रयुक्त पंक्ति को खोजने के लिए कोशिकाएं (LR, 1) चुनें। ActiveCell.Value = Ws.Name अगला हथियार अंत उप
अब इस कोड को अपने मॉड्यूल पर कॉपी करें।
अब किसी भी वर्कशीट को “इंडेक्स शीट” नाम देकर कोड चलाएं। यह कोड सभी वर्कशीट को "इंडेक्स शीट" में नाम देगा।
इस तरह, VBA में वर्कशीट की "NAME" प्रॉपर्टी का उपयोग करके, हम वर्कशीट के नाम के साथ खेल सकते हैं। हम नाम बदल सकते हैं, निकाल सकते हैं, और हम विशिष्ट वर्कशीट चुन सकते हैं और कई अन्य काम कर सकते हैं जो "नाम" संपत्ति का उपयोग करके किया जा सकता है।
याद रखने वाली चीज़ें
- VBA में NAME संपत्ति है।
- इस नाम का उपयोग करके, हम वर्कशीट का नाम बदल सकते हैं, और हम शीट नामों को भी निकाल सकते हैं।
- यदि आप कोड की लिखित कार्यपुस्तिका की तुलना में अन्य कार्यपुस्तिकाओं का उल्लेख कर रहे हैं, तो हम निर्दिष्ट कार्यपुस्तिका में किसी भी वर्कशीट का नाम बदल सकते हैं।
- यदि वर्कशीट का नाम मेल नहीं खाता है, तो हम सबस्क्रिप्ट को सीमा से बाहर कर देंगे।
