√ Macro Excel | Cara Mengurutkan Sheet

Sobat Pecinta Excel kali ini aku akan membuatkan tutorial mengenai Macro Excel dan tutorial ini akan menjelaskan bagaimana cara mengurutkan sheet/worksheet memakai VBA/Macro. Hal ini akan berfungsi sekali saat menciptakan data dalam jumlah sheet yang banyak. Ada dua fungsi mengurutkan secara umum yaitu Accending dan Deccending.

Oke eksklusif saja silakan ketikan script aba-aba macro dibawah ini pada VBA Project This Workbook

Sub UrutkanSheets()
Dim lCount As Long, lCounted As Long
Dim Terakhir As Long
Dim Pesan As Long

Pesan = MsgBox("Untuk mengurutkan Sheet secara Accending silakan klik 'Yes'. " & "Untuk mengurutkan Sheet secara Desending silakan klik 'No'", vbYesNoCancel, "Ozgrid Sheet Sort")
If Pesan = vbCancel Then Exit Sub
Terakhir = Sheets.Count
    If Pesan = vbYes Then 'Mengurutkan secara Accending
        For lCount = 1 To Terakhir
            For lCount2 = lCount To Terakhir
                If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
                    Sheets(lCount2).Move Before:=Sheets(lCount)
                End If
            Next lCount2
        Next lCount
    Else 'Mengurutkan secara desending
     For lCount = 1 To Terakhir
            For lCount2 = lCount To Terakhir
                If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
                    Sheets(lCount2).Move Before:=Sheets(lCount)
                End If
            Next lCount2
        Next lCount
    End If
End Sub

Hasil dari macro diatas ialah jikalau macro dijalankan maka akan muncul pesan Logika jikalau ingin mengurutkan Sheet secara Accending maka klik "YES" atau apabila ingin mengurutkan sheet secara Desending maka klik "NO" silakan klik salah satu secara bergantian dan lihat hasilnya.
Selamat mencoba.

Jika tidak ingin bingun silakan d0wnl0ad rujukan VBA Macro nya yang sudah jadi pada link dibawah ini. Semoga bermanfaat dan selamat mencoba bermain dengan Macro Excel

Klik Download Free Excel

Sumber http://www.excel-id.com/