Excel'de çalışma sayfası sekmelerini renge göre nasıl sıralayabilirim?
Örneğin, çok fazla çalışma sayfası içeren bir çalışma kitabını kolayca işlemek ve yönetmek için, ilgili çalışma sayfası sekmesine bir sekme rengi ekleyebilir ve ardından Excel'deki sayfa sekmelerini renklerine göre kolayca sıralayabilir ve tanımlayabilirsiniz. Bu makale, Excel'de sayfa sekmelerini renge göre ne kadar hızlı sıralayabileceğinizi aşağıdaki gibi gösterecektir:
Çalışma sayfası sekmelerini VBA kodu ile renge göre sıralayın
Kutools for Excel ile çalışma sayfası sekmelerini renge göre sıralayın
Çalışma sayfası sekmelerini VBA kodu ile renge göre sıralayın
Aşağıdaki VBA kodunu kullanarak sekmeleri renge göre sıralayabilirsiniz. Lütfen aşağıdaki işlemleri yapın:
1. tık Geliştirici > Visual Basic, Yeni bir Uygulamalar için Microsoft Visual Basic pencere görüntülenecek, tıklayın Ekle > modülve aşağıdaki kodu Modüle girin:
VBA: Sayfaları renklere göre sıralayın.
Sub SortWorkBookByColor()
'Updateby20140624
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. Sonra tıklayın kodu yürütmek için düğmesine basın. Ve tüm çalışma sayfası sekmeleri renge göre sıralanmıştır. Ekran görüntülerine bakın:
Kutools for Excel ile çalışma sayfası sekmelerini renge göre sıralayın
İle Sayfaları Sırala of Kutools for Excel, yalnızca sayfa sekmelerini renge göre sıralayamazsınız, aynı zamanda sayfa sekmelerini Alfa veya Alfa Sayısal olarak hızlı bir şekilde sıralayabilirsiniz.
Excel için Kutools: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin. Şimdi sahip ol.
Kutools for Excel'i kurduysanız, çalışma sayfası sekmelerini aşağıdaki adımlarla sıralayabilirsiniz:
1. tık kuruluş > Çalışma Sayfası Araçları > Sayfaları Sırala, ekran görüntüsüne bakın:
2. içinde Sayfaları Sırala iletişim kutusunu tıklayın Renk Sırala düğmesi, Yeni sayfa sekmeleri sıralama bölmesinde yeni sekmelerin sırasını göreceksiniz. Ekran görüntüsüne bakın:
3. Ve sonra tıklayın OK sekmeleri sıralamak için.
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. Ayrıca şunları da yapabilirsiniz: yukarı / aşağı hareket et çalışma sayfaları ve sıralamayı sıfırlayın. Bu yardımcı program hakkında daha fazla bilgi edinmek için tıklayın.
İlgili makale:
Excel'de çalışma sayfalarını alfabetik / alfanümerik sıraya göre sıralayın
En İyi Ofis Üretkenlik Araçları
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...
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!