मुख्य सामग्री पर जाएं

एक्सेल में सेल वैल्यू के आधार पर वर्कशीट का नाम कैसे बदलें?

लेखक: रवि अंतिम संशोधित: 2020-05-28

वर्कशीट का नाम बदलना आमतौर पर हमारे एक्सेल कार्य में लागू होता है, लेकिन क्या आपने कभी सेल वैल्यू के आधार पर वर्कशीट का नाम बदलने की कोशिश की है? बेशक, आप मैन्युअल रूप से वर्कशीट का नाम बदल सकते हैं, लेकिन यहां यह ट्यूटोरियल सेल वैल्यू के आधार पर कई वर्कशीट का तुरंत नाम बदलने की कुछ तरकीबें पेश करता है जो आपके काम करने के समय को बचा सकते हैं।

VBA के साथ एक विशिष्ट सेल के आधार पर कार्यपत्रकों का नाम बदलें

एकाधिक वर्कशीट का नाम बदलें के साथ एक विशिष्ट सेल के आधार पर वर्कशीट का नाम बदलें अच्छा विचार3

एकाधिक वर्कशीट का नाम बदलें के साथ सेल सामग्री की एक श्रृंखला के आधार पर वर्कशीट का नाम बदलें अच्छा विचार3


नीचे दिए गए VBA के साथ, आप किसी विशिष्ट सेल के आधार पर संबंधित वर्कशीट का नाम बदल सकते हैं।

1. उस सेल का चयन करें जिसके आधार पर आप वर्कशीट का नाम बदलना चाहते हैं, इस स्थिति में सेल A1 का चयन करें। स्क्रीनशॉट देखें:

दस्तावेज़ का नाम बदलें वर्कशीट 1

2। दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर नीचे VBA कोड को नए में पेस्ट करें मॉड्यूल खिड़की.

वीबीए: विशिष्ट सेल मानों के आधार पर कार्यपत्रकों का नाम बदलें।

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4। दबाएँ F5 VBA कोड चलाने की कुंजी. फिर सभी वर्कशीट का नाम प्रत्येक सापेक्ष A1 सेल मान द्वारा बदल दिया गया है।

दस्तावेज़ का नाम बदलें वर्कशीट 2


यदि आपके पास एक्सेल के लिए कुटूल, आपको वीबीए कोड को सहेजने की आवश्यकता नहीं है, आप इसका उपयोग कर सकते हैं एकाधिक कार्यपत्रकों का नाम बदलें सभी कार्यपत्रकों का उनके संबंधित कक्षों के आधार पर शीघ्रता से नाम बदलने की सुविधा।

एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। 

बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:

1. उस कार्यपुस्तिका को सक्षम करें जिसे आप उसके कार्यपत्रकों के नाम बदलना चाहते हैं।

2। क्लिक करें कुटूल्स प्लस > वर्कशीट > वर्कशीट का नाम बदलें. स्क्रीनशॉट देखें:

दस्तावेज़ का नाम बदलें वर्कशीट 11

3. फिर पॉप आउट डायलॉग में, उन शीटों की जांच करें जिनका आप नाम बदलना चाहते हैं कार्यपत्रक फलक, और इनमें से एक का चयन करें नाम बदलें विकल्प आपको चाहिए, यहां मैं शीट का नाम बदल दूंगा, फिर जांच करूंगा विशिष्ट सेल के साथ कार्यपत्रकों का नाम बदलें, और उस सेल का चयन करें जिसका नाम आप बदलना चाहते हैं। स्क्रीनशॉट देखें:

दस्तावेज़ का नाम बदलें वर्कशीट 9

4। क्लिक करें Ok. अब विशिष्ट सेल सामग्री के साथ शीट का नाम बदल दिया गया है।

दस्तावेज़ का नाम बदलें वर्कशीट 2

लेकिन कभी-कभी, आपको सेल मानों की एक श्रृंखला के आधार पर एकाधिक वर्कशीट का नाम बदलने की आवश्यकता होती है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, इस मामले में, आप चुन सकते हैं नीचे दी गई विधि.

दस्तावेज़ का नाम बदलें वर्कशीट 3


- एकाधिक कार्यपत्रकों का नाम बदलें of एक्सेल के लिए कुटूल, आप चयनित श्रेणी के आधार पर शीट का नाम भी बदल सकते हैं।

बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:

1। क्लिक करें कुटूल्स प्लस > वर्कशीट > वर्कशीट का नाम बदलें. स्क्रीनशॉट देखें:

दस्तावेज़ का नाम बदलें वर्कशीट 11

2। में एकाधिक कार्यपत्रकों का नाम बदलें संवाद में, आपको सेटिंग्स को इस प्रकार निर्दिष्ट करना होगा:

(1) उन कार्यपत्रकों का चयन करें जिनका आपको नाम बदलना है वर्कशीट सूची;

(2) चेक विशिष्ट श्रेणी से विकल्प, और उन सेल मानों का चयन करें जिनके आधार पर आपको नाम बदलना है;

(3) निर्दिष्ट करें नाम बदलें विकल्प, आप देख सकते हैं मूल शीट के नाम से पहले डालें, मूल शीट नाम के बाद डालेंया, मूल शीट का नाम बदलें, और आप संवाद में संबंधित परिणाम का पूर्वावलोकन कर सकते हैं।

दस्तावेज़ का नाम बदलें वर्कशीट 10

3। क्लिक करें Ok, और फिर आप देख सकते हैं कि आपके द्वारा चयनित सभी वर्कशीट का नाम निर्दिष्ट सेल मानों के आधार पर बदल दिया गया है।

मूल शीट का नाम बदलें

दस्तावेज़ का नाम बदलें वर्कशीट 6

मूल शीट के नाम से पहले डालें

दस्तावेज़ का नाम बदलें वर्कशीट 7

मूल शीट नाम के बाद डालें

दस्तावेज़ का नाम बदलें वर्कशीट 8

वर्कशीट का नाम बदलें उपयोगिता के साथ, आप एक विशिष्ट उपसर्ग या प्रत्यय के साथ वर्कशीट का नाम भी बदल सकते हैं। एकाधिक वर्कशीट का नाम बदलें के बारे में अधिक जानने के लिए यहां क्लिक करें।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works. It always goes into Debug on the first try. I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.
This comment was minimized by the moderator on the site
Hi, Don, the VBA has updated twice, it may be works for most of conditions, but not for the all. 
This comment was minimized by the moderator on the site
In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
This comment was minimized by the moderator on the site
Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
This comment was minimized by the moderator on the site
'Updateby20150602
This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
This comment was minimized by the moderator on the site
Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations