रंगों को लागू करके अपने वर्कशीट टैब को व्यवस्थित करने के अतिरिक्त, आप उन्हें वर्णमाला या अल्फान्यूमेरिक रूप से भी क्रमबद्ध कर सकते हैं, जब तक कि आपने अपने वर्कशीट में कस्टम नाम लागू किए हों। दुर्भाग्यवश, वर्कशीट टैब को क्रमबद्ध रूप से सॉर्ट करना Excel में नहीं बनाया गया है, लेकिन आप अपनी कार्यपुस्तिका में एक मैक्रो जोड़ सकते हैं जो आपको अपने टैब को आरोही या अवरोही क्रम में क्रमबद्ध करने की अनुमति देगा। हम आपको दिखाएंगे कि माइक्रोसॉफ्ट की समर्थन साइट पर आपके एक्सेल वर्कबुक पर उपलब्ध मैक्रो कैसे जोड़ना है जो आपके वर्कशीट टैब को सॉर्ट करेगा।
Sub Sort_Active_Book() Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult ' ' Prompt the user as which direction they wish to ' sort the worksheets. ' iAnswer = MsgBox('Sort Sheets in Ascending Order?' & Chr(10) _ & 'Clicking No will sort in Descending Order', _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 'Sort Worksheets') For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 ' ' If the answer is Yes, then sort in ascending order. ' If iAnswer = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ' ' If the answer is No, then sort in descending order. ' ElseIf iAnswer = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If End If Next j Next i End Sub
वीबीए संपादक स्वचालित रूप से अंत में एक संख्या के साथ प्रत्येक मॉड्यूल को नामित करता है, जैसे मॉड्यूल 1, मॉड्यूल 2, आदि। आप बस मॉड्यूल का डिफ़ॉल्ट नाम स्वीकार कर सकते हैं। हालांकि, अगर आप अपनी कार्यपुस्तिका में अन्य मैक्रोज़ जोड़ने की योजना बना रहे हैं, तो प्रत्येक मॉड्यूल का नाम बदलने का अच्छा विचार है ताकि आप जान सकें कि वे क्या हैं। हम आपको दिखाने के लिए हमारे मॉड्यूल का नाम बदल देंगे।
नाम बॉक्स में मॉड्यूल के लिए एक नाम टाइप करें और एंटर दबाएं। ध्यान दें कि मॉड्यूल नाम में रिक्त स्थान नहीं हो सकते हैं।
