Ana içeriğe atla

Excel'de çalışma sayfalarını alfabetik / alfasayısal sırayla nasıl sıralayabilirim?

Normalde, çalışma sayfası sekmelerini, sayfa sekme çubuğundaki sayfa sekmelerini sürükleyip bırakarak Excel'de sıralayabilir veya düzenleyebilirsiniz. Ancak bunu birden çok çalışma sayfasıyla yapmak için, çalışma sayfalarını büyük bir çalışma kitabındaki alfabetik / alfanümerik sıraya göre hızlı bir şekilde sıralamanın aşağıdaki zor yollarını düşünebilirsiniz.

Çalışma sayfalarını alfabetik / alfanümerik sırayla VBA kodu ile sıralayın
Kutools for Excel ile çalışma sayfalarını alfabetik / alfanümerik sıraya göre sıralayın


Çalışma sayfalarını alfabetik / alfanümerik sırayla VBA kodu ile sıralayın

Microsoft Destek merkezinde çalışma sayfalarını alfaya göre sıralamak için bir makro bulunmaktadır. Aşağıdaki adımlarla uygulayabiliriz:

1.  basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2.  Tıkla Ekle > modülve ardından aşağıdaki makroyu Modül Penceresi.

VBA: Sayfaları alfabetik / alfanümerik sıraya göre sıralayın

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. Basın F5 Bu makroyu çalıştırmak için anahtar. Aşağıdaki istem kutusunda, Evet, tüm çalışma sayfaları artan alfabetik sıraya göre sıralanacaktır; ve tıklayın Yok hayır, tüm çalışma sayfaları azalan alfabetik sıraya göre sıralanacaktır.


Kutools for Excel ile çalışma sayfalarını alfabetik / alfanümerik sıraya göre sıralayın

Makrolara aşina değilseniz veya başka yolları tercih ediyorsanız deneyebilirsiniz. Kutools for Excel. Kutools for Excel's Sayfaları Sırala aracı, tüm çalışma sayfalarını kolayca sıralayabilir.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. tıklayın Kutools Artı > Çalışma Sayfası > Sayfaları Sırala. Ekran görüntüsüne bakın:

2. In Sayfaları Sırala iletişim kutusu, sağ bölmede ihtiyacınız olan bir sıralama türünü seçin, örneğin: Alfa Sıralaması, Alfa Sayısal Sıralamaseçeneğini ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından tüm çalışma sayfaları, belirtilen sıralama türüne göre sıralanır. Ekran görüntüsüne bakın:

doc sıralama sayfaları6

Kutools for Excel's Sayfaları Sırala aracı, etkin çalışma kitabındaki tüm çalışma sayfalarını hızla yeniden düzenleyebilir. Aşağıdakiler dahil çeşitli sıralama türlerini destekler: Alfa Sıralaması, Alfa Sayısal Sıralama, Renk Sırala ve Geri. Ek olarak, çalışma sayfalarını yukarı / aşağı taşıyabilir ve sıralamayı sıfırlayabilirsiniz.

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


Demo: Tüm çalışma sayfalarını alfabetik / alfanümerik sıraya göre sıralayın


İlgili makale:

Çalışma sayfası sekmelerini renge göre sırala

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Comments (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations