VBA का नाम बदलें शीट - एक्सेल वर्कशीट का नाम VBA कोड का उपयोग कैसे करें?

एक्सेल में शीट का नामकरण टास्कबार से किया जाता है, वर्कशीट नीचे डबल-क्लिक करके मौजूद होती है, लेकिन VBA में हम शीट का नाम बदलने के लिए शीट या वर्कशीट प्रॉपर्टी मेथड का उपयोग करते हैं, VBA में शीट का नाम बदलने का सिंटैक्स निम्नानुसार है (“ पुरानी शीट का नाम ”)। नाम =“ नई शीट का नाम ”।

एक्सेल VBA में शीट का नाम बदलें

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

VBA में शीट का नाम कैसे बदलें?

वर्कशीट का नाम बदलने के लिए किसी विशेष कौशल की आवश्यकता नहीं है। हमें केवल यह बताना होगा कि मौजूदा शीट नाम दर्ज करके हम किस शीट नाम को बदल रहे हैं।

उदाहरण के लिए, यदि हम "शीट 1" नाम की शीट का नाम बदलना चाहते हैं, तो हमें वर्कशीट ऑब्जेक्ट का उपयोग करके शीट को उसके नाम से कॉल करना होगा।

कार्यपत्रक ("शीट 1")

शीट नाम का उल्लेख करने के बाद, हमें वर्कशीट नाम का नाम बदलने के लिए "नाम" संपत्ति का चयन करना होगा।

वर्कशीट ("शीट 1")। नाम

अब हमें अपनी इच्छानुसार नाम प्रॉपर्टी को नाम पर सेट करना होगा।

वर्कशीट ("शीट 1")। नाम = "नया नाम"

इस तरह, हम नाम संपत्ति का उपयोग करके VBA में वर्कशीट नाम का नाम बदल सकते हैं।

लेख के निम्नलिखित अनुभागों में, हम आपको कार्यपत्रक को बदलने या नाम बदलने के अधिक से अधिक उदाहरण दिखाएंगे।

एक्सेल VBA में Rename Worksheets के उदाहरण

नीचे VBA Rename Sheet के उदाहरण दिए गए हैं।

उदाहरण # 1 - VBA चर का उपयोग करके चादर बदलें या नाम बदलें।

उदाहरण के लिए, नीचे दिए गए नमूना कोड को देखें।

कोड:

उप Rename_Example1 () डिम Ws के रूप में कार्यपत्रक सेट Ws = कार्यपत्रक ("शीट 1") Ws.Name = "नई शीट" अंत उप

पहले उपरोक्त कोड में, मैंने चर को वर्कशीट के रूप में घोषित किया है।

वर्क्स के रूप में डिम डब्ल्यूएस

इसके बाद, मैंने चर का संदर्भ "शीट 1" के रूप में कार्यपत्रक ऑब्जेक्ट का उपयोग करके निर्धारित किया है।

सेट Ws = कार्यपत्रक ("शीट 1")

अब चर "डब्ल्यूएस" वर्कशीट "शीट 1" का संदर्भ रखता है।

अब "डब्ल्यूएस" चर का उपयोग करते हुए, मैंने वर्कशीट को "नई शीट" के रूप में नाम दिया है।

यह कोड "शीट 1" नाम को "नई शीट" में बदल देगा।

अगर मैं कोड को मैन्युअल रूप से या शॉर्टकट कुंजी F5 के माध्यम से चलाता हूं, तो, फिर से हमें एक सदस्यता आउट ऑफ रेंज त्रुटि मिलेगी।

इसका कारण हमें यह त्रुटि मिलती है, क्योंकि पिछले चरण में ही, हमने पहले ही "शीट 1" नाम की वर्कशीट को "शीट" में बदल दिया है। चूंकि अब एक वर्कशीट नाम नहीं है, "शीट 1" उपलब्ध नहीं है, इसलिए वीबीए इस त्रुटि को फेंकता है।

उदाहरण # 2 - एक शीट में सभी वर्कशीट नाम प्राप्त करें।

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

कोड:

उप Renmae_Example2 () सक्रिय Workbook.Worksheets LR = कार्यपत्रक ("मुख्य पत्रक") में प्रत्येक Ws के लिए लंबे समय तक वर्मशीट के रूप में डिम Ws। सेल (पंक्तियाँ)। (पंक्तियाँ, 1) .End (xlUp) .Row + 1 कक्ष (LR)। 1) .Slectlect ActiveCell.Value = Ws.Name अगला Ws समाप्ति उप

यह कोड सभी उपलब्ध वर्कशीट के नाम को "मेन शीट" नाम की शीट में निकालेगा।

उदाहरण # 3 - VBA का उपयोग करके एक्सेल वर्कशीट के लिए स्थायी नाम सेट करें

चूंकि हम कोडिंग में शीट नामों के साथ काम करते हैं, इसलिए उनके लिए स्थायी नाम सेट करना महत्वपूर्ण है। हम उनके लिए स्थायी नाम कैसे निर्धारित करते हैं?

उदाहरण के लिए, नीचे दिए गए कोड को देखें।

कोड:

सब का नाम बदलें_Example3 () कार्यपत्रक ("शीट 1")

उपरोक्त कोड Sheet1 का चयन करेगा।

यदि आपकी कार्यपुस्तिका का उपयोग बहुत से लोग करते हैं, यदि किसी ने कार्यपत्रक का नाम बदल दिया है, तो हमें सदस्यता आउट ऑफ रेंज त्रुटि मिलेगी।

To avoid this, we can set the permanent name to it. To set the permanent name to follow the below steps.

Step 1: Select the sheet we need to set the permanent name to in Visual Basic Editor.

Step 2: Press the F4 key to see the Properties window.

Step 3: Under Name, Property Change the name to “New Name.”

As you can see, one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet.”

Now in coding, we will use the new name instead of an actual visible name.

Code:

Sub Rename_Example3() NewSheet.Select End Sub

Now come back to the worksheet window. We can still see the sheet name as “Sheet1” only.

Now I will change the sheet name to “Sales.”

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