एक्सेल में वर्कशीट टैब को रंग के आधार पर कैसे क्रमबद्ध करें?
उदाहरण के लिए, बहुत अधिक वर्कशीट वाली कार्यपुस्तिका को आसानी से संसाधित करने और प्रबंधित करने के लिए, आप संबंधित वर्कशीट टैब में एक टैब रंग जोड़ सकते हैं, और फिर आप एक्सेल में शीट टैब को उनके रंगों के आधार पर आसानी से सॉर्ट और पहचान सकते हैं। यह आलेख आपको दिखाएगा कि आप एक्सेल में शीट टैब को रंग के आधार पर कितनी जल्दी क्रमबद्ध कर सकते हैं:
VBA कोड के साथ वर्कशीट टैब को रंग के आधार पर क्रमबद्ध करें
एक्सेल के लिए कुटूल के साथ वर्कशीट टैब को रंग के आधार पर क्रमबद्ध करें
VBA कोड के साथ वर्कशीट टैब को रंग के आधार पर क्रमबद्ध करें
निम्नलिखित VBA कोड का उपयोग करके, आप टैब को रंग के आधार पर क्रमबद्ध कर सकते हैं। कृपया इस प्रकार करें:
1। क्लिक करें डेवलपर > Visual Basic के, एक नया अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो प्रदर्शित होगी, क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल में निम्नलिखित कोड इनपुट करें:
वीबीए: शीटों को रंगों के आधार पर क्रमबद्ध करें।
Sub SortWorkBookByColor()
'Updateby20140624
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
For i = 1 To Application.ActiveWorkbook.Worksheets.Count
If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
n = n + 1
ReDim Preserve xArray1(1 To n)
ReDim Preserve xArray2(1 To n)
xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
End If
Next
For i = 1 To n
For j = i To n
If xArray1(j) < xArray1(i) Then
temp = xArray2(i)
xArray2(i) = xArray2(j)
xArray2(j) = temp
temp = xArray1(i)
xArray1(i) = xArray1(j)
xArray1(j) = temp
End If
Next
Next
For i = n To 1 Step -1
Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
Next
End If
Application.ScreenUpdating = True
End Sub
2। तब दबायें कोड निष्पादित करने के लिए बटन। और सभी वर्कशीट टैब को रंग के आधार पर क्रमबद्ध कर दिया गया है। स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ वर्कशीट टैब को रंग के आधार पर क्रमबद्ध करें
उसके साथ पत्रक क्रमबद्ध करें of एक्सेल के लिए कुटूल, आप न केवल शीट टैब को रंग के आधार पर क्रमबद्ध कर सकते हैं, बल्कि शीट टैब को अल्फा या अल्फा न्यूमेरिक के आधार पर भी शीघ्रता से क्रमबद्ध कर सकते हैं।
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अब समझे।
यदि आपने एक्सेल के लिए कुटूल स्थापित किया है, तो आप निम्न चरणों के साथ वर्कशीट टैब को सॉर्ट कर सकते हैं:
1। क्लिक करें उद्यम > वर्कशीट उपकरण > पत्रक क्रमबद्ध करें, स्क्रीनशॉट देखें:
2। में पत्रक क्रमबद्ध करें संवाद बॉक्स पर क्लिक करें रंग क्रमबद्ध करें बटन, आप नई शीट टैब ऑर्डर फलक में नए टैब ऑर्डर देखेंगे। स्क्रीनशॉट देखें:
3. और फिर क्लिक करें OK टैब को क्रमबद्ध करने के लिए.
एक्सेल के लिए कुटूल's पत्रक क्रमबद्ध करें टूल सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों को शीघ्रता से पुनर्व्यवस्थित कर सकता है। यह कई सॉर्टिंग प्रकारों का समर्थन करता है, जिनमें शामिल हैं अल्फा सॉर्ट, अल्फ़ा न्यूमेरिक सॉर्ट, रंग क्रमबद्ध करें और उल्टा। इसके अलावा, आप भी कर सकते हैं ऊपर/नीचे ले जाएँ कार्यपत्रक, और छँटाई रीसेट करें। इस उपयोगिता के बारे में अधिक जानने के लिए क्लिक करें.
संबंधित लेख:
एक्सेल में वर्कशीट को वर्णमाला/अल्फ़ान्यूमेरिक क्रम में क्रमबद्ध करें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!