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

माइक्रोसॉफ्ट एक्सेल व्यवस्थित करने के लिए कई त्वरित और आसान तरीके प्रदान करता है। वर्णानुक्रम में स्तंभ या पंक्तियाँ। लेकिन एक्सेल में वर्कशीट्स को पुनर्व्यवस्थित करने के लिए केवल एक ही तरीका है - उन्हें शीट टैब बार पर वांछित स्थिति में खींचें। जब वास्तव में बड़ी कार्यपुस्तिका में वर्णानुक्रम टैब की बात आती है, तो यह एक लंबा और गलत तरीका हो सकता है। समय बचाने वाला विकल्प खोज रहे हैं? केवल दो मौजूद हैं: VBA कोड या तृतीय-पक्ष उपकरण।

VBA के साथ Excel में टैब को वर्णानुक्रमित कैसे करें

नीचे आपको Excel को सॉर्ट करने के लिए VBA कोड के तीन उदाहरण मिलेंगे उपयोगकर्ता की पसंद के आधार पर शीट आरोही, अवरोही और किसी भी दिशा में।

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

<8

विज़ुअल बेसिक एडिटर खोलने के लिए अपनी एक्सेल वर्कबुक में Alt + F11 दबाएं। 2> > मॉड्यूल ।

कोड विंडो में VBA कोड पेस्ट करें।

मैक्रो चलाने के लिए F5 दबाएं।

के लिए विस्तृत चरण-दर-चरण निर्देश, कृपया देखें कि एक्सेल में वीबीए कोड कैसे डालें और चलाएं।

युक्ति। यदि आप मैक्रो को आगे उपयोग के लिए रखना चाहते हैं, तो अपनी फ़ाइल को एक्सेल मैक्रो-सक्षम कार्यपुस्तिका (.xlsm) के रूप में सहेजना सुनिश्चित करें।

वैकल्पिक रूप से, आप हमारा नमूना वर्णानुक्रम एक्सेल टैब्स कार्यपुस्तिका डाउनलोड कर सकते हैं, संकेत दिए जाने पर सामग्री को सक्षम कर सकते हैं, और वांछित मैक्रो को सीधे वहां से चला सकते हैं। कार्यपुस्तिका में निम्नलिखित मैक्रोज़ हैं:

• टैब आरोही - शीट को A से Z तक वर्णानुक्रम में क्रमबद्ध करें।
• टैबडिस्केंडिंग - शीट को उल्टा क्रम, Z से A.
• AlphabetizeTabs - शीट टैब को दोनों दिशाओं में, आरोही या अवरोही क्रम में क्रमबद्ध करें।

नमूना कार्यपुस्तिका को डाउनलोड करके उसमें खोलें अपना एक्सेल, अपनी स्वयं की कार्यपुस्तिका खोलें जहाँ आप टैब को वर्णानुक्रमित करना चाहते हैं, Alt + F8 दबाएं, वांछित मैक्रो का चयन करें, और चलाएं क्लिक करें।

एक्सेल टैब को A से Z तक वर्णानुक्रम में क्रमबद्ध करें

यह छोटा मैक्रो वर्तमान कार्यपुस्तिका में शीट को बढ़ते अल्फ़ान्यूमेरिक क्रम में व्यवस्थित करता है, पहले वर्कशीट जिनके नाम संख्याओं से शुरू होते हैं, फिर A से Z तक की शीट।

Sub TabsAscending() For i = 1 एप्लिकेशन के लिए। UCase$(Application.Sheets(j + 1).Name) फिर पत्रक(j).Move after:=Sheets(j + 1) End if Next Next MsgBox "टैब को A से Z तक क्रमबद्ध किया गया है।" End Sub

Excel Tabs को Z से A

तक व्यवस्थित करें यदि आप अपनी शीट को अवरोही अल्फ़ान्यूमेरिक क्रम (Z से A, फिर संख्यात्मक नामों वाली शीट) में सॉर्ट करना चाहते हैं, तो इसका उपयोग करें निम्नलिखित कोड:

उप टैब अवरोही () i के लिए = 1 सेApplication.Sheets.Count for j = 1 To Application.Sheets.Count - 1 यदि UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) फिर Application.Sheets(j).Move after:=Application.Sheets(j + 1) End if Next Next MsgBox "टैब को Z से A में क्रमबद्ध किया गया है। " एंड सब

टैब को आरोही या अवरोही क्रम में वर्णानुक्रमित करें

यह मैक्रो आपके उपयोगकर्ताओं को यह तय करने देता है कि किसी दी गई कार्यपुस्तिका में वर्कशीट को A से Z या उल्टे क्रम में वर्णानुक्रम में कैसे सॉर्ट किया जाए।

चूंकि एक्सेल VBA में मानक संवाद बॉक्स (MsgBox) केवल मुट्ठी भर पूर्वनिर्धारित बटनों में से चुनने की अनुमति देता है, हम तीन कस्टम बटनों के साथ अपना स्वयं का फॉर्म (UserForm) बनाएंगे: A से Z , Z से A , और रद्द करें ।

इसके लिए, विजुअल बेसिक संपादक खोलें, यह वर्कबुक पर राइट-क्लिक करें, और सम्मिलित करें ><क्लिक करें 1>यूजरफॉर्म । अपने फ़ॉर्म को SortOrderFrom नाम दें, और उसमें 4 नियंत्रण जोड़ें: एक लेबल और तीन बटन:

अगला, F7 दबाएं (या फ़ॉर्म पर डबल-क्लिक करें ) कोड विंडो खोलने के लिए और वहां नीचे दिए गए कोड को पेस्ट करें। कोड इंटरसेप्ट बटन क्लिक करता है और प्रत्येक बटन को एक अद्वितीय टैग प्रदान करता है:

प्राइवेट सब कमांडबटन1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

इस बात पर निर्भर करता है कि उपयोगकर्ता आपके फॉर्म पर A से Z या Z से A बटन पर क्लिक करता है या नहीं, इसमें टैब को सॉर्ट करेंआरोही वर्णमाला क्रम (डिफ़ॉल्ट रूप से चयनित) या अवरोही वर्णानुक्रम; या प्रपत्र को बंद करें और रद्द करें के मामले में कुछ न करें। यह निम्नलिखित VBA कोड के साथ किया जाता है, जिसे आप Insert > Module .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm if SortOrder के माध्यम से सामान्य तरीके से सम्मिलित करते हैं = 0 फिर x के लिए उप से बाहर निकलें = 1 के लिए आवेदन। UCase$(Application.Sheets(y + 1).Name) फिर पत्रक(y).Move after:=Sheets(y + 1) End यदि ElseIf SortOrder = 2 तो यदि UCase$(Application.Sheets(y).Name) < UCase$(एप्लीकेशन.शीट्स(y + 1).नाम) फिर शीट्स(y).के बाद मूव करें:=शीट्स(y + 1) एंड इफ एंड इफ नेक्स्ट नेक्स्ट एंड सब फंक्शन showUserForm() इंटीजर के रूप में showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

यदि आप अभी तक VBA के साथ बहुत सहज नहीं हैं, तो आप बस हमारी नमूना कार्यपुस्तिका को वर्णानुक्रमित करने के लिए डाउनलोड कर सकते हैं, इसे अपने एक्सेल में अपनी फ़ाइल के साथ खोलें जहाँ आप चाहते हैं टैब क्रमित करने के लिए, और अपनी कार्यपुस्तिका से AlphabetizeTabs मैक्रो चलाएँ:

पसंदीदा क्रमबद्ध क्रम चुनें, जैसे, A से Z , और परिणाम देखें:

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

अल्टीमेट सूट के साथ एक्सेल टैब को वर्णानुक्रम में कैसे क्रमबद्ध करें

एक्सेल के लिए हमारे अल्टीमेट सूट के उपयोगकर्ताओं को वीबीए के साथ गड़बड़ करने की ज़रूरत नहीं है - उनके पास एक बहु है -कार्यात्मक कार्यपुस्तिका प्रबंधक उनके निपटान में:

इस उपकरण के साथ आपके एक्सेल रिबन में जोड़ा गया है, एक बटन क्लिक के साथ वर्णानुक्रम टैब किया जाता है, जैसा कि यह होना चाहिए!<3

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

मैं धन्यवाद देता हूं आप पढ़ने के लिए और अगले सप्ताह आपको हमारे ब्लॉग पर देखने की आशा करते हैं!