Mengelompokkan Sheet Sesuai Warna Sheet

Sheetwarna - Kecil.png

Ada diantara kita yang senang memberi warna pada nama sheet, selain untuk kenyamanan pandangan, hal ini juga untuk memudahkan pengelompokan Sheet. Kali ini kita akan berbagi kode VBA tentang Mengelompokkan Sheet sesuai dengan Warna Sheet. Kode ini akan sangat menghemat waktu kita dan bermanfaat sekali jika kita memiliki banyak sheet. Kombinasi kode ini dengan tulisan sebelumnya tentang mengurutkan Sheet (lihat artikel Mengurutkan Semua Sheet)  akan memudahkan kita dalam memanajemen banyak sheet pada file Excel kita.


Langkah untuk mewarnai sheet, klik kanan pada nama tab sheet (disisi bawah) >> tab color >> pilih warna (disarankan ada beberapa sheet dengan warna yang sama untuk memudahkan pengelompokan).
Selanjutnya copy dan paste kode VBA dibawah ini pada halaman modul. Silahkan buka jendela VBA Editor (Alt + F11) lalu tambahkan modul baru (Menu Insert >> Modul).

Sub KelompokSheetWarna()
 
Dim lCount As Long, lCounted As Long
Dim Sheetakhir As Long
 
Sheetakhir = Sheets.Count
 
For lCount = 1 To Sheetakhir
    For lCounted = lCount To Sheetakhir
    If Sheets(lCounted).Tab.ColorIndex = Sheets(lCount).Tab.ColorIndex Then
    Sheets(lCounted).Move Before:=Sheets(lCount)
    End If
    Next lCounted
Next lCount
 
End Sub

 

Jalankan Sub /kode dengan tekan F5 pada VBA Editor atau jalankan dengan macro pada halaman Excel. dan lihat hasil Pengelompokan sheet sesuai warna berjalan secara otomatis dan cepat. 

Download File Contoh rar.pngmengelompokkan_warnasheet.rar

Semoga bermanfaat,
Salam berkreasi.

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Jl. Cilincing jakarta utara

JL. Karangrejo Timur  Surabaya

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
SMS only : 085 606 139 312  im3 (Mas Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi
M. Agus Fanani
Sahrudin
Muhammad Risal Maros
Didik P Wicaksono
Wayan Mulyana
Adi sabaro