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 Sub2. 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
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin