Cara Menampilkan Data Di Listbox Userform Excel

 ListBox adalah sebuah elemen kontrol yang menampilkan dari record sebuah Database yang sudah kita buat/kita tentukan sebelumnya, ada banyak cara untuk bisa menampilkan record dari Database yang sudah kita buat sebelumnya didalam lembar kerja Aplikasi Excel yang kita gunakan. Dan salah satu cara tersebut adalah yang akan Saya sampaikan/bagikan pada artikel/postingan ini :

Dan berikut ini merupakan langkah-langkah atau pun caranya :

1. Tentukan sebuah sheet yang akan kita gunakan sebagai tempat untuk menyimpan record dari Database kita, kemudian untuk mempermudah kita menghafal/mengenali sheet mana yang kita jadikan sebagai tempat untuk menyimpan record Database tersebut, sebaiknya kita ubah nama sheet tersebut. Dan pada contoh ini Saya mengubah namanya menjadi "DBS" dan sheet tersebut adalah Sheet1:

2. Kita buat terlebih dahulu Header tabel dari data yang akan kita jadikan menjadi Database, pada contoh ini data yang Saya gunakan adalah seperti berikut ini :

Seperti yang ada pada gambar di atas, Header tabel untuk Database yang Saya gunakan adalah :

1. No;
2. Nama Anak;
3. Jenis Kelamin; dan
4. Alamat.

3 Buat Name Range dari sheet Database kita, caranya adalah seperti berikut ini :

Masih di Shee "DBS" tadi, kemudian klik pada menu Formulas kemudian klik lagi pada Name Manager :

Selanjutnya adalah klik pada tombol New :

Kemudian beri nama (contoh : "DATA") pada Name dan silahkan copy dan paste rumus/formula di bawah ini ke dalam kolom Refers to :

 =OFFSET(DBS!$A$1;1;;COUNTA(DBS!$A$2:$A$20000);COUNTA(DBS!$1:$1))

 

Klik OK untuk mengakiri.

Sedikit penjelasan mengenai rumus/formulas di atas : Dengan menggunakan rumus/formulas di atas, nantinya pada sheet yang kita gunakan sebagai Database tidak akan mempengaruhi (tidak merubah/menjadikan error pada rumus/formula) yang sudah kita buat tadi. Meskipun kita menghapus salah satu dari sheet atau pun coloumn pada sheet tersebut.

4. Langkah selanjutnya adalah membuat Userfom sebagai media untuk menempatkan Listbox nantinya, dan caranya adalah seperti berikut ini :

a. Membuat/menyisipkan userform

1) Masuk kel halaman Visual Basic, dangan cara klik pada menu Developer, kemudian klik lagi pada Visual Basic, dan jika didalam lembar kerja Aplikasi Ms. Excel kita belum ada tab menu Developer bisa membaca artikel/postingan Saya sebelumnya mengenai Cara Menampilkan Tab Developer Di Excel. Atau juga dengan menekan tombol kombinasi ALT+F11 pada keyboard :

2) Didalam halaman Visual Basic kita klik menu Insert kemudian klik lagi pada Userform, silahkan tentukan tiggi atau pun lebar dari Userform sesuai dengan kebutuhan :

Dan berikut ini contoh Userformnya :

 b. Menyisipkan ListBox

Klik pada ListBox yang ada di ToolBox kemudian arahkan mouse  ke area Userform, sesuaikan ukuran Listbox dengan kebutuhan :

Hasilnya :

C. Menyisipkan kode/script Macro 

Selanjutnya adalah kita klik kanan pada ListBox yang sudah kita sisipkan tadi, kemudian klik/pilih view code :

Jika ada kode/script silahkan hapus semuanya. Selanjutnya, silahkan copy dan paste kode/script Macro di bawah ini kedalamnya :

Private Sub UserForm_Initialize()
'https://aplikasiexcelku.blogspot.com
IsiListBox
End Sub

Sub IsiListBox()
'https://aplikasiexcelku.blogspot.com
On Error Resume Next
With Me.ListBox1
.RowSource = "DATA"
.ColumnCount = "4"
.ColumnWidths = "20;100;60;100"
.ColumnHeads = False
End With
End Sub

Keterangan : Rowsource = "DATA" mengambil acuan dari Name Range yang sudah kita buat sebelumnya. Column Count = "4" meupakan jumlah kolom dari Tabel Database (No. Nama Anak, Jenis Kemalin, dan Alamat). Sedangkan Column Widths = merupakan lebar dari masing-masing klom, sesuaikan saja dengan kebutuhan.

Kemudian silahkan isi data pada sheet "DBS" data-data yang akan ditampilkan didalam LitBox tadi, dan pada contoh seperti berikut ini :

Jika sudah, silahkan jalankan melalui halaman Visual Basic dengan cara klik pada tombol Run atau bisa juga dengan tombol F5 pada keyboard. Maka hasilnya akan seperti pada gambar di bawah ini :

Saya juga sudah menyediakan file sample untuk bisa dipelajari oleh Sobat Blogger semuanya, silahkan download file sample tersebut melalui link di bawah artikel ini. Mungkin hanya itu saja yang bisa Saya sampaikan mengenai Cara Menampilkan Data Di ListBox Userform Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan selamat mencoba.

Salam Belajar.

Download Sample Data Di ListBox VBA Excel-Mediafire

Share :