Cara Mengurutkan Sheet Otomatis di Microsoft Excel

Oleh
Workshet atau sering juga disebut sheet di Microsoft Excel merupakan lembar kerja yang jumlahnya dapat disesuaikan tergantung kebutuhan. Tidak jarang worksheet tersebut kita urutkan berdasarkan nama sheet , dimulai dari kecil kebesar dari huruf A hingga Z (atau dari 0 ke 9), maupun sebaliknya dari besar ke kecil dari huruf Z ke A (atau dari 9 ke 0). Bila jumlah sheet tidak terlalu banyak tentu tidak menjadi masalah. Akan tetapi semakin banyak sheet yang harus diurutkan tentu membutuhkan waktu yang relatif lebih banyak pula bagi kita untuk mengurutkan sheet tersebut satu persatu.


 Gambar: Contoh worksheet yang tidak berurutan di Microsoft Excel



Untuk mempermudah pengurutan, saya telah membuatkan kode VBA untuk yang bisa digunakan oleh anda untuk mengurutkan sheet dengan waktu relatif cepat. Anda cukup mengetik atau copy code VBA tersebut pada editor VBA lalu jalankan. Semua sheet akan langsung terurut ascending, mulai dari yang kecil ke besar. Kode yang perlu anda ketik dan jalankan seperti di bawah ini:

Sub aimyaya_UrutkanSheet123()

' ==========================================================
' Kode mengurutkan sheet di Microsoft Excel dari aimyaya.com
' Kode ini hanya untuk pemakaian perseorangan dan 
' bukan untuk tujuan komersil
' ==========================================================

Dim a, b, c, p As Integer
On Error GoTo Gagal

c = Sheets.Count
For a = 2 To c 
  p = a
  For b = a - 1 To 1 Step -1
    If Sheets(a).Name < Sheets(b).Name Then
      p = b
    End If   
  Next
  If p <> a Then
    Sheets(a).Move Before:=Sheets(p)
  End If
Next

Sheets(1).Select

Gagal:
  '  Pokoknya kalau ada error langsung ke sini (selesai)
End Sub



Bila anda masih belum mengerti / jelas, silahkan petunjuk penggunaan berikut :

  1. Siapkan kode VBA pada jendela baru firefox (klik disini)
  2. Buka aplikasi Microsoft Excel Anda, termasuk workbook/file yang sheetnya akan disortir
  3. Selanjutnya tekan tombol keyboard ALT+F11
  4. Kemudian pada editor VBA klik menu Insert lalu pilih Module
  5.  Gambar: Menyisipkan modul di di Microsoft VisualBasic for Application
  6. Pada text / code editor ketik kode yang ada di atas tadi, atau kalau mudahnya copy /paste saja
  7. Setelah kode diketik/di paste, pastikan semua hasil ketikan telah sama dengan source code dari aimyaya, lalu jalankan dengan jalan menekan tombol keyboard F5 atau klik tombol Run
  8. Gambar: Menjalankan kode VBA di Microsoft Visual Basic for Application
  9. Bagi komputer yang memiliki performans cepat anda tidak akan melihat atau merasa bahwa kode telah dijalankan. Lebih baik anda lihat saja langsung urutan worksheet pada microsoft excel anda. Urutan worksheet sudah berubah sesuai dari kecil ke besar.


 Gambar: Contoh worksheet yang sudah diurutkan dari kecil ke besar (ascending) di Microsoft Excel


Tips Cara Mengurutkan Sheetdi Ms Excel


Jika anda ingin mengurutkan Sheet dari besar ke kecil (secara descending), maka balik saja tanda < yang ada di kode VBA menjadi > atau lebih jelasnya kode:
If Sheets(a).Name < Sheets(b).Name Then

Diganti menjadi
If Sheets(a).Name > Sheets(b).Name Then


Pengunjung aimyaya dot com, terima kasih atas kunjungan anda pada website kami.
Bila anda suka berikan klik "like" pada facebook fan page kami
 

 
dan/atau bila anda merasa artikel ini bermanfaat maka bantu promosikan dengan klik Google di bawah ini :
 

 
TIDAK DIPERKENANKAN MEMPERBANYAK baik secara OFFLINE(print out, cetakan, dsb) maupun ONLINE (blog, artikel, dsb) tanpa seizin aimyaya dot com.
 
Informasi lebih lanjut baca halaman Disclaimer serta Kebijakan dan Privasi yang kami buat.