Bagaimana cara mengurutkan tab lembar kerja berdasarkan warna di Excel?
Misalnya, untuk memproses dan mengelola buku kerja dengan terlalu banyak lembar kerja dengan mudah, Anda dapat menambahkan warna tab ke tab lembar kerja yang relevan, lalu Anda dapat dengan mudah mengurutkan dan mengidentifikasi tab lembar menurut warnanya di Excel. Artikel ini akan menunjukkan seberapa cepat Anda dapat mengurutkan tab lembar berdasarkan warna di Excel sebagai berikut:
Urutkan tab lembar kerja berdasarkan warna dengan kode VBA
Urutkan tab lembar kerja berdasarkan warna dengan Kutools for Excel
Urutkan tab lembar kerja berdasarkan warna dengan kode VBA
Dengan menggunakan kode VBA berikut, Anda dapat mengurutkan tab menurut warna. Harap lakukan sebagai berikut:
1. klik Pengembang > Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modul, dan masukkan kode berikut ke dalam Modul:
VBA: Urutkan lembaran berdasarkan warna.
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. Lalu klik tombol untuk menjalankan kode. Dan semua tab lembar kerja telah diurutkan berdasarkan warna. Lihat tangkapan layar:
Urutkan tab lembar kerja berdasarkan warna dengan Kutools for Excel
Dengan Sortir Lembar of Kutools untuk Excel, Anda tidak hanya dapat mengurutkan tab lembar berdasarkan warna tetapi juga dapat dengan cepat mengurutkan tab lembar menurut Alpha atau Alpha Numeric.
Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Dapatkan Sekarang.
Jika Anda telah menginstal Kutools for Excel, Anda dapat mengurutkan tab lembar kerja dengan langkah-langkah berikut:
1. klik Enterprise > Alat Lembar Kerja > Sortir Lembar, lihat tangkapan layar:
2. Dalam Sortir Lembar kotak dialog, klik Sortir Warna tombol, Anda akan melihat urutan tab baru di panel urutan tab lembar baru. Lihat tangkapan layar:
3. Dan kemudian klik OK untuk mengurutkan tab.
Kutools untuk Excel's Sortir Lembar alat dapat dengan cepat mengatur ulang semua lembar kerja di buku kerja yang aktif. Ini mendukung beberapa jenis penyortiran, termasuk Sortir Alfa, Urutan Numerik Alfa, Sortir Warna dan Membalikkan. Selain itu, Anda juga bisa bergerak ke atas / bawah lembar kerja, dan mengatur ulang penyortiran. Klik untuk mengetahui lebih lanjut tentang utilitas ini.
Artikel terkait:
Urutkan lembar kerja dalam urutan abjad / alfanumerik di Excel
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!