सामग्री सारणी
VBA कोड आणि वर्कबुक मॅनेजर टूल वापरून तुम्ही एक्सेल वर्कशीट्सची वर्णमाला क्रमवारीत त्वरीत कशी क्रमवारी लावू शकता हे ट्यूटोरियल दाखवते.
Microsoft Excel व्यवस्था करण्याचे अनेक जलद आणि सोपे मार्ग प्रदान करते. वर्णक्रमानुसार स्तंभ किंवा पंक्ती. परंतु एक्सेलमध्ये वर्कशीट्सची पुनर्रचना करण्याची एकच पद्धत आहे - त्यांना शीट टॅब बारवरील इच्छित स्थानावर ड्रॅग करा. जेव्हा खरोखर मोठ्या वर्कबुकमध्ये टॅबचे वर्णमाला लिहिण्याचा विचार येतो, तेव्हा हा एक लांब आणि चुकीचा मार्ग असू शकतो. वेळ वाचवणारा पर्याय शोधत आहात? तेथे फक्त दोनच आहेत: VBA कोड किंवा तृतीय-पक्ष साधने.
VBA सह Excel मध्ये टॅबचे अक्षर कसे काढायचे
खाली तुम्हाला Excel क्रमवारी लावण्यासाठी तीन VBA कोड उदाहरणे सापडतील वापरकर्त्याच्या निवडीवर आधारित शीट्स चढत्या, उतरत्या आणि दोन्ही दिशेने.
तुम्हाला VBA चा काही अनुभव आहे हे दर्शवून, आम्ही तुमच्या वर्कशीटमध्ये मॅक्रो जोडण्यासाठी फक्त मूलभूत पायऱ्यांची रूपरेषा देऊ:
<8साठी तपशीलवार चरण-दर-चरण सूचना, कृपया Excel मध्ये VBA कोड कसा घालायचा आणि चालवायचा ते पहा.
टीप. तुम्हाला पुढील वापरासाठी मॅक्रो ठेवायचे असल्यास, तुमची फाईल एक्सेल मॅक्रो-सक्षम वर्कबुक (.xlsm) म्हणून सेव्ह करण्याचे सुनिश्चित करा.
वैकल्पिकपणे, तुम्ही आमचे नमुना अल्फाबेटाइज एक्सेल टॅब वर्कबुक डाउनलोड करू शकता, सूचित केल्यास सामग्री सक्षम करू शकता आणि तेथून थेट इच्छित मॅक्रो चालवू शकता. कार्यपुस्तिकेत खालील मॅक्रो आहेत:
- टॅबस्सेंडिंग - पत्रके A पासून Z पर्यंत वर्णानुक्रमाने क्रमवारी लावा.
- टॅब्स डिसेंडिंग - शीट्सची व्यवस्था करा उलट क्रम, Z पासून A पर्यंत.
- AlphabetizeTabs - शीट टॅब दोन्ही दिशांमध्ये क्रमवारी लावा, चढत्या किंवा उतरत्या.
नमुना वर्कबुक डाउनलोड करून आणि उघडा तुमचा एक्सेल, तुमची स्वतःची वर्कबुक उघडा जिथे तुम्हाला टॅबची वर्णमाला करायची आहे, Alt + F8 दाबा, इच्छित मॅक्रो निवडा आणि चालवा वर क्लिक करा.
एक्सेल टॅबची A ते Z पर्यंत वर्णमाला क्रमवारी लावा<15
हा छोटा मॅक्रो वर्तमान कार्यपुस्तिकेतील शीट्स चढत्या अल्फान्यूमेरिक क्रमाने मध्ये मांडतो, प्रथम वर्कशीट्स ज्यांची नावे संख्यांपासून सुरू होतात, नंतर A ते Z पर्यंत शीट्स.
सब टॅबस आसेंडिंग() i = साठी 1 Application.Sheets.Count for j = 1 Application.Sheets.Count - 1 जर UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) नंतर Sheets(j).नंतर हलवा:=Sheets(j + 1) End If Next Next MsgBox "टॅब A ते Z पर्यंत क्रमवारी लावले आहेत." एंड सबएक्सेल टॅब 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).नंतर हलवा:=Application.Sheets(j + 1) End If Next Next MsgBox "टॅब Z ते A मध्ये क्रमवारी लावले आहेत. " End Subवर्णक्रमानुसार टॅब चढत्या किंवा उतरत्या
हा मॅक्रो तुमच्या वापरकर्त्यांना दिलेल्या वर्कबुकमधील वर्कशीट्सची क्रमवारी A ते Z पर्यंत किंवा उलट क्रमाने कशी करायची हे ठरवू देते.
पासून एक्सेल VBA मधील मानक डायलॉग बॉक्स (MsgBox) केवळ मूठभर पूर्वनिर्धारित बटणांमधून निवडण्याची परवानगी देतो, आम्ही तीन सानुकूल बटणांसह आमचा स्वतःचा फॉर्म (UserForm) तयार करू: A ते Z , Z ते A , आणि रद्द करा .
यासाठी, Visual Basic Editor उघडा, This Workbook वर उजवे क्लिक करा आणि Insert ><वर क्लिक करा. 1>वापरकर्ता फॉर्म . तुमच्या फॉर्मला SortOrderFrom नाव द्या आणि त्यात 4 नियंत्रणे जोडा: एक लेबल आणि तीन बटणे:
पुढे, F7 दाबा (किंवा फॉर्मवर डबल-क्लिक करा ) कोड विंडो उघडण्यासाठी आणि तेथे खालील कोड पेस्ट करा. कोड बटण क्लिक्सना अडवतो आणि प्रत्येक बटणाला एक अद्वितीय टॅग नियुक्त करतो:
खाजगी सब कमांडबटन1_क्लिक() मी.टॅग = 1 मी. हायड एंड सब प्रायव्हेट सब कमांडबटन2_क्लिक() मी.टॅग = 2 मी. लपवा एंड सब प्रायव्हेट सब कमांडबटन3_क्लिक () Me.Tag = 0 Me.Hide End Subवापरकर्ता तुमच्या फॉर्मवर A to Z किंवा Z to A बटण क्लिक करतो यावर अवलंबून, टॅब क्रमवारी लावाचढत्या वर्णक्रमानुसार (डिफॉल्टनुसार निवडलेले) किंवा उतरत्या वर्णक्रमानुसार; किंवा फॉर्म बंद करा आणि रद्द करा बाबतीत काहीही करू नका. हे खालील VBA कोडसह केले जाते, जो तुम्ही नेहमीच्या पद्धतीने Insert > Module द्वारे घालता.
Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 नंतर सब मधून बाहेर पडा x = 1 Application.Sheets.Count for y = 1 Application.Sheets.Count - 1 जर SortOrder = 1 तर UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) नंतर Sheets(y). नंतर हलवा:=Sheets(y + 1) End If ElseIf SortOrder = 2 नंतर UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) नंतर Sheets(y). नंतर हलवा:=Sheets(y + 1) End If End असल्यास Next End Sub Function showUserForm() पूर्णांक म्हणून showUserForm = 0 लोड करा SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag अनलोड SortOrderForm एंड फंक्शनतुम्हाला अजून VBA सोबत फारशी सोयीस्कर नसल्यास, तुम्ही आमचे नमुना वर्कबुक टॅब्स वर्णमाला करण्यासाठी डाऊनलोड करू शकता, ते तुमच्या स्वतःच्या फाईलच्या बरोबर तुमच्या Excel मध्ये उघडा. टॅबची क्रमवारी लावण्यासाठी, आणि तुमच्या वर्कबुकमधून AlphabetizeTabs मॅक्रो चालवा:
प्राधान्य क्रमवारी निवडा, म्हणा, A ते Z , आणि परिणामांचे निरीक्षण करा:
टीप. VBA सह, तुम्ही तुमच्या Excel वर्कशीटच्या प्रती देखील तयार करू शकता. कोड येथे उपलब्ध आहे: कसेव्हीबीए सह एक्सेलमध्ये डुप्लिकेट शीट.
अल्टीमेट सूटसह एक्सेल टॅब्सची वर्णानुक्रमानुसार क्रमवारी कशी लावायची
आमच्या एक्सेलसाठी अल्टीमेट सूटच्या वापरकर्त्यांना व्हीबीए सोबत फिरण्याची गरज नाही - त्यांच्याकडे मल्टी आहे -फंक्शनल वर्कबुक मॅनेजर त्यांच्या विल्हेवाटीत:
हे टूल तुमच्या एक्सेल रिबनमध्ये जोडले गेल्याने, टॅबचे वर्णमाला एका बटण क्लिकने पूर्ण केले जाते, जसे ते असावे!<3
तुम्हाला एक्सेलसाठी हे आणि ७०+ अधिक व्यावसायिक साधने एक्सप्लोर करण्यास उत्सुक असल्यास, आमच्या अल्टीमेट सूटची चाचणी आवृत्ती येथे डाउनलोड करण्यासाठी उपलब्ध आहे.
मी आभारी आहे तुम्ही वाचत आहात आणि पुढच्या आठवड्यात तुम्हाला आमच्या ब्लॉगवर भेटण्याची आशा आहे!
