
Sebenarnya cara ini adalah trik akhir yang bisa dilakukan jika anda melakukan 'kesalahan' dalam menyusun data-data dalam lembar kerja yang tidak diurutkan berdasarkan abjad namun tetap memaksa menampilkan secara berurutan ke dalam ListBox. Karena bagaimanapun juga, trik ini akan mempengaruhi kinerja atau kecepatan loading sebuah ListBox. Dengan kata lain, jika ingin mengurutkan daftar ListBox berdasarkan abjad maka ada baiknya mengurutkan data-data yang terdapat di dalam lembar kerja terlebih dahulu sebelum menampilkannya.
Oke, kita akan mulai dengan menyiapkan data-data dilembar kerja yang disusun secara acak seperti tampilan berikut :
Selanjutnya buka Microsoft Visual Basic Editor dengan cara menekan tombol
Setelah selesai mendesain, kini saatnya menulis serangkaian kode Macro VBA untuk mengurutkan data secara otomatis. Caranya klik ganda CommandButton untuk langsung menuju jendela kode, selanjutnya copy - paste kode berikut ke dalamnya
Dim i As Long Dim j As Long Dim xx As Long Dim Temp As Variant With ListBox1 xx = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row For s = 1 To xx .AddItem Cells(s, 1) Next s For i = 0 To .ListCount - 2 For j = i + 1 To .ListCount - 1 If .List(i) > .List(j) Then Temp = .List(j) .List(j) = .List(i) .List(i) = Temp End If Next j Next i End With
Untuk mengujinya, silahkan anda tekan tombol
Selamat, Anda sudah berhasil mengurutkan daftar ListBox dari data acak yang berasal dari lembar kerja secara otomatis berdasarkan susunan abjad.
Terimakasih sudah berkunjung, semoga tutorial kali ini memberikan manfaat
Incoming Search Terms
Menyusun ListBox dari data acak Cara mengurutkan data dari lembar kerja di ListBox
Sort isi daftar di ListBox secara otomatis
Mengurutkan daftar ListBox berdasarkan susunan abjad
Cara singkat dan cepat mengurutkan daftar ListBox secara otomatis
Terimakasih sudah membaca
Tutorial: Panduan Lengkap Menyusun Daftar ListBox Sesuai Abjad Dari Data Acak
Label: ListBox - Author: excelive
Tutorial: Panduan Lengkap Menyusun Daftar ListBox Sesuai Abjad Dari Data Acak
Label: ListBox - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :