यदि आपकी पुस्तक में टैब की संख्या कई दर्जन तक पहुंच जाती है, तो देर-सबेर आप पुस्तक में शीटों को वर्णानुक्रम में रखकर क्रमबद्ध करना चाहेंगे। मानक Excel उपकरण आपको ऐसा करने की अनुमति नहीं देते हैं, तो आइए एक सरल मैक्रो लिखें जो यह करेगा।
मेनू खोलें सेवा - मैक्रो - संपादक Visual Basic (Tools - Macro - Visual Basic Editor) , VBA मॉड्यूल डालें (मेनू Insert - Modle ) और कॉपी वहां जाएं यह पाठ:
Sub SortSheets()
'moonexcel.com.ua
Dim I As Integer, J As Integer
For I = 1 To Sheets.Count - 1
For J = I + 1 To Sheets.Count
If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
Sheets(J).Move Before:=Sheets(I)
End If
Next J
Next I
MsgBox "टैब को A से Z तक क्रमबद्ध किया गया था"
End Sub
यह मैक्रो अब मेनू सेवा - मैक्रो - मैक्रोज़ (Tools - Macro - Macros) के माध्यम से चलाया जा सकता है, और यह वर्तमान कार्यपुस्तिका में सभी कार्यपत्रकों को तुरंत क्रमबद्ध कर देगा।