TOP

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

विवरण

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

विषय पर लेख: