Mengurutkan Sheet

Urutan sheet tidak beraturan? Capek mengurutkannya secara manual? jangan khawatir !! Kamu bisa mengurutkan / sortir sheet secara cepat menggunakan makro. Ga perlu mikir panjang, tinggal copas  saja kode - kode ini ke workbook berisi kumpulan makro milik kamu.

1. Mengurutkan Sheet Sesuai Alfa Numerik (Alfabet dan Angka)

Jika urutan sheet tidak karuan, apalagi jumlah sheetnya bejibun alias banyak, yang bila diukur panjang tab sheetnya bisa bermeter-meter, maka mengurutkan sheet secara manual pasti sangat melelahkan. Untungnya ada code VBA yang sangat membantu untuk mengatasi masalah ini. 

Menyusun sheet sesuai urutan angka dari terkecil ke tertinggi atau huruf dari "A" ke "Z" akan sangat memudahkan dalam membaca alur worksheet. Maka sortir worksheet  secara alfanumerik adalah solusinya. Tinggal copy saja code di bawah ini gaes... dan paste ke module standar dalam workbook kamu.

Sub UrutkanSheetSesuaiAbjadDanAngka() Dim jmlSheet As Integer, i As Integer, j As Integer Application.ScreenUpdating = False jmlSheet = Sheets.Count For i = 1 To jmlSheet - 1 For j = i + 1 To jmlSheet If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move before:=Sheets(i) End If Next j Next i Application.ScreenUpdating = True End Sub

2. Mengurutkan Sheet Sesuai Nama Bulan Ringkas Bahasa Inggris

Jika sebuah workbook laporan bulanan terdiri dari sekumpulan sheet dengan nama bulan, maka kita bisa mengurutkan sheet sesuai nama bulan. Nama bulan yang dikenali VBA secara default adalah bahasa inggris, sehingga kamu harus menamai sheet dengan nama bulan dalam bahasa Inggris. Untuk penulisan nama bulan ada 2 type yaitu tipe ringkas dan type panjang. Gunakan kode makro berikut untuk mengurutkan nama bulan yang ditulis dalam bahasa inggris model ringkas.

Sub UrutkanSheetMonthRingkas() Dim Wb As Workbook, i As Integer Application.ScreenUpdating = False Set Wb = ActiveWorkbook On Error Resume Next For i = 1 To 12 Debug.Print i Worksheets(MonthName(i, True)).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan:  

Nama bulan type ringkas dalam bahasa Inggris = Jan, Feb, Mar, Apr, May, Jun, ,Aug, Sep, Oct, Nov, Dec.

3. Mengurutkan Sheet Sesuai Nama Bulan Full Bahasa Inggris

Dengan sedikit modifikasi dari contoh kode nomor 2, maka contoh kode nomor 3 berikut ini bisa digunakan untuk mengurukan sheet nama bulan dalam bahasa inggris type nama bulan panjang.

Sub UrutkanSheetMonthFull() Dim Wb As Workbook, i As Integer Application.ScreenUpdating = False Set Wb = ActiveWorkbook On Error Resume Next For i = 1 To 12 Debug.Print i Worksheets(MonthName(i, False)).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan:  

Nama bulan type panjang dalam bahasa Inggris  = January, February, March, April, May, June, July, August, September, October, November, December.

4. Mengurutkan Sheet Sesuai Nama Bulan Ringkas Bahasa Indonesia

Meskipung secara default, VBA excel mengenali nama bulan dalam bahasa Inggris. Namun dengan sedikit modifikasi kita masih bisa mengurutkan sheet nama bulan dalam berbagai bahasa. Tinggal copas saja code berikut untuk mengurutkan sheet bulan type ringkas dalam bahasa Indonesia.

Sub UrutkanSheetBulanRingkas() Dim i As Integer, namaBulan As String Application.ScreenUpdating = False On Error Resume Next For i = 1 To 12 namaBulan = WorksheetFunction.Text(DateSerial(1, i, 1), "[$-421]mmm") Worksheets(namaBulan).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan: Nama bulan type ringkas dalam bahasa Indonesia = Jan, Feb, Mar, Apr, Mei, Jun, Jul, Agu, Sep, Okt, Nov, Des

5. Mengurutkan Sheet Sesuai nama bulan Full Bahasa Indonesia

Jika kamu menuliskan nama bulan type panjang dalam bahasa Indonesia maka gunakan code berikut untuk mengurutkan sheet bulannya.

Sub UrutkanSheetBulanFull() Dim i As Integer, namaBulan As String Application.ScreenUpdating = False On Error Resume Next For i = 1 To 12 namaBulan = WorksheetFunction.Text(DateSerial(1, i, 1), "[$-421]mmmm") Worksheets(namaBulan).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan: Nama bulan type panjang dalam bahasa Indonesia = Januari, Februari, Maret, April, Mei, Juni, Juli, Agustus, September, Oktober, November, Desember.

...

Itulah beberapa contoh kode makro VBA yang sering digunakan untuk mengurutkan / sortir sheet.

Ada koreksi / saran ? jangan ragu untuk tinggalkan komentar.

Mungkin kamu tertarik untuk mengetahui contoh-contoh lainnya, silahkan klik tautan di bawah ini:

• Contoh Macro Untuk Menghapus / Delete Sheet
• Contoh Macro Untuk Hide/Unhide Sheet
• Contoh Macro Untuk Menambah Sheet

Salam..😎😎😎