Mengurutkan Sheet di MS Excel Menggunakan Macro VBA


Untuk mempermudah pengurutan, kita gunakan kode VBA untuk mengurutkan sheet dengan waktu yang relatif cepat. Kita cukup mengetik atau copy code VBA pada editor VBA lalu jalankan. Semua sheet akan langsung terurut. Kode yang kita ketik dan jalankan seperti dibawah ini :

 

Sub Mengurutkan_Sheet()

 

Dim lCount As Long, lCounted As Long

Dim Sheetakhir As Long

Dim Tanya As Long

 

Tanya = MsgBox(“Mengurutkan semua sheet A-Z pilih ‘Yes’. ” & vbNewLine & _

“Mengurutkan semua sheet Z-A pilih ‘No'”, vbYesNoCancel, “Mengurutkan Sheet”)

 

If Tanya = vbCancel Then Exit Sub

 

Sheetakhir = Sheets.Count

 

If Tanya = vbYes Then ‘yang ini mengurutkan A-Z

For lCount = 1 To Sheetakhir

For lCount2 = lCount To Sheetakhir

If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then

Sheets(lCount2).Move Before:=Sheets(lCount)

End If

Next lCount2

Next lCount

Else ‘yang ini mengurutkan Z-A

For lCount = 1 To Sheetakhir

For lCount2 = lCount To Sheetakhir

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

 

 

Langkah-langkah yang kita lakukan :

  1. Buka file Microsoft Excel yang akan di sortir
  2. Tekan tombol keyboard ALT + F11
  3. Kemudian pada editor VBA klik menu Insert lalu pilih Module
  4. Pada text/code editor ketik kode yang ada diatas tadi (lebih mudah copy paste saja)
  5. Pastikan semua hasil ketikan telah sama dengan source code, lalu jalankan dengan menekan tombol keyboard F5 atau klik tombol RUN

2 Komentar on “Mengurutkan Sheet di MS Excel Menggunakan Macro VBA”

  1. stevo mengatakan:

    Koyo visual basic yo…hhmmm


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s