Excel'de çalışma sayfası sekmelerini renge göre nasıl sıralayabiliriz?

Birden fazla çalışma sayfası içeren büyük Excel çalışma kitaplarıyla çalışırken, çalışma sayfası sekmelerine renk atamak, onları görsel olarak kategorize etmeye ve düzenlemeye yardımcı olur. Ancak, Excel, çalışma sayfası sekmelerini otomatik olarak renge göre sıralamak için yerleşik bir seçenek sunmaz. Bu makalede, Excel'de çalışma sayfası sekmelerini renge göre sıralamak için iki etkili yöntem ele alacağız.

VBA kodu ile çalışma sayfası sekmelerini renge göre sıralama

Kutools for Excel ile çalışma sayfası sekmelerini renge göre sıralama

VBA kodu ile çalışma sayfası sekmelerini renge göre sıralama

Aşağıdaki VBA kodunu kullanarak sekmeleri renge göre sıralayabilirsiniz. Lütfen şu adımları izleyin:

1. "Geliştirici" > "Visual Basic" seçeneğine tıklayın, yeni bir "Microsoft Visual Basic for Applications" penceresi açılacak, "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki kodu Modül'e girin:

VBA: Renklere göre sayfaları sırala.

Sub SortWorkBookByColor()
'UpdatebyExtendoffice
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
            n = n + 1
            ReDim Preserve xArray1(1 To n)
            ReDim Preserve xArray2(1 To n)
            xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
            xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
        End If
    Next
    For i = 1 To n
        For j = i To n
            If xArray1(j) < xArray1(i) Then
                temp = xArray2(i)
                xArray2(i) = xArray2(j)
                xArray2(j) = temp
                temp = xArray1(i)
                xArray1(i) = xArray1(j)
                xArray1(j) = temp
            End If
        Next
    Next
    For i = n To 1 Step -1
        Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
    Next
End If
Application.ScreenUpdating = True
End Sub

2. Ardından kodu çalıştırmak için "F5" tuşuna basın veya "Çalıştır" düğmesine tıklayın. Tüm çalışma sayfası sekmeleri renge göre sıralanmış olacaktır.

Kutools for Excel ile çalışma sayfası sekmelerini renge göre sıralama

Kutools ile, manuel sıralama veya VBA kodu sıralaması ihtiyacını ortadan kaldırarak zamandan tasarruf edebilir ve sekmeleri renklerine göre hızlıca yeniden sıralayabilirsiniz. Bu bölümde, size Kutools for Excel'i kullanarak çalışma sayfası sekmelerini kolayca sıralamayı göstereceğiz.

Kutools for Excel'i yüklediyseniz, çalışma sayfası sekmelerini aşağıdaki adımlarla sıralayabilirsiniz:

1. "Kutools Plus" > "Çalışma Sayfası" > "Tüm Sayfaları Sırala" seçeneğine tıklayın.

2. "Tüm Sayfaları Sırala" iletişim kutusunda, "Renk Sırala" düğmesine tıklayın, "Sıralamadan Sonra" panelinde yeni sekme sırasını göreceksiniz.

3. Ve ardından sekmeleri sıralamak için "Tamam" düğmesine tıklayın.

Bu özellik, etkin çalışma kitabındaki tüm çalışma sayfalarını hızlıca yeniden düzenleyebilir. "Alfabetik Sırala", "Tam Sırala", "Renk Sırala" ve "Ters Sırala" dahil olmak üzere çeşitli sıralama türlerini destekler. Ayrıca, çalışma sayfalarını "yukarı / aşağı taşıyabilir" ve sıralamayı sıfırlayabilirsiniz.

Excel'de çalışma sayfası sekmelerini renge göre sıralamak, organizasyonu geliştirmeye ve büyük çalışma kitaplarında gezinmeyi kolaylaştırmaya yardımcı olur. Excel'in bunun için yerleşik bir seçeneği olmasa da, bu makale sizin için iki faydalı yöntem hakkında bilgi vermektedir. Size en uygun yöntemi seçin ve Excel'in sekme rengi özelliğini tam anlamıyla kullanarak iş akışınızı hızlandırın! Daha fazla Excel ipucu ve hilesini keşfetmeye ilgileniyorsanız, web sitemiz binlerce öğretici sunmaktadır.

İlgili makale:

Excel'de çalışma sayfalarını alfabetik / alfasayısal sıraya göre sıralama