Kitabınızdaki sekmelerin sayısı birkaç düzineye yaklaşırsa, er ya da geç uygulama arzusu ortaya çıkacaktır. bir kitaptaki sayfaları sıralama , onları 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.
Menüyü aç Hizmet - 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 " Sekmeler A'dan Z'ye sıralandı "
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.