Bir kitaptaki sayfaları sıralama

Tanım

Kitabınızdaki sekmelerin sayısı birkaç düzineye yaklaşırsa, er ya da geç uygulama isteği ortaya çıkacaktır. bir kitaptaki sayfaları sıralama , bunları alfabetik sıraya göre yerleştiriyoruz. Standart Excel araçları bunu yapmanıza izin vermiyor, o yüzden hadi bunu yapacak basit bir makro yazalım.

Makro için VBA kodu

Menüyü aç Servis - Makro - Düzenleyici Visual Basic (Tools - Macro - Visual Basic Editor) , modül ekle VBA (Menü Insert - Module ) ve bu metni oraya kopyalayın:

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 до Я"
End Sub

Bu makro artık menüden çalıştırılabilir Hizmet - Makro - Makrolar (Tools - Macro - Macros) ve mevcut çalışma kitabındaki tüm sayfaları hızlı bir şekilde sıralayacaktır.

Konuyla ilgili makaleler: