किसी किताब में शीटों को क्रमबद्ध करना

विवरण

यदि आपकी पुस्तक में टैब की संख्या कई दर्जन तक पहुंच जाती है, तो देर-सबेर इसे लागू करने की इच्छा होगी किसी किताब में चादरें छाँटना , उन्हें वर्णानुक्रम में रखना। मानक Excel उपकरण आपको ऐसा करने की अनुमति नहीं देते हैं, तो आइए एक सरल मैक्रो लिखें जो यह करेगा।

मैक्रो के लिए VBA कोड

मेनू खोलें सेवा - मैक्रो - संपादक 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) , और यह वर्तमान कार्यपुस्तिका में सभी शीटों को शीघ्रता से क्रमबद्ध कर देगा।

विषय पर लेख:

• कार्यपुस्तिकाओं को संयोजित करें (CombineWorkbooks)
• पुस्तक के पृष्ठों के बीच त्वरित परिवर्तन