Diskusi tentang Excel

Macro Excel | Cara Mengurutkan Sheet

Sobat Pecinta Excel kali ini saya akan berbagi tutorial mengenai Macro Excel dan tutorial ini akan menjelaskan bagaimana cara mengurutkan sheet/worksheet menggunakan VBA/Macro. Hal ini akan berfungsi sekali ketika membuat data dalam jumlah sheet yang banyak. Ada dua fungsi mengurutkan secara umum yaitu Accending dan Deccending.

Oke langsung saja silakan ketikan script kode 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 adalah jika macro dijalankan maka akan muncul pesan Logika jika 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 download contoh VBA Macro nya yang sudah jadi pada link dibawah ini. Semoga bermanfaat dan selamat mencoba bermain dengan Macro Excel
download excel
Klik Download Free Excel

Related

Macro Excel VBA 6134875490211079596

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item