Cara Menampilkan Data Di Listbox Userform Excel (Versi 2)

 Aplikasi Excelku. ListBox merupakan salah satu komponen/kontrol yang sering digunakan oleh para pembuat aplikasi berbasis Excel. Karena ListBox berfungsi untuk menampilkan data didalam UserForm dalam jumlah banyak, tapilan dari ListBox ini sendiri mirip dengan sebuah tabel, dimana didalam ListBox terdapat baris, dan juga header meskipun ListBox tidak memiliki garis (border).

Ada banyak cara untuk menampilkan data kedalam ListBox dan salah satunya sudah pernah juga Saya posting didalam Blog Saya ini, bisa Sobat Blogger baca dengan cara Klik Disini. Dan artikel/postingan ini merupakan cara yang lainnya dalam menampilkan data kedalam ListBox, ListBox sendiri sebenarnya bisa kita sisipkan langsung kedalam lembar kerja Excel tanpa harus membuka halaman (lembar kerja Visual Basic), namun pada artikel ini Saya akan memberikan contoh Cara Menampilkan Data Di ListBox Didalam Userform Excel.

Cara Menampilkan Data Di Listbox Userform Excel (Versi 2)

Dan berikut ini langkah-langkah dalam menampilkan data kedalam ListBox Di UserForm Excel :

1. Buka lembar kerja Ms. Excel, kemudian buatlah sebuah tabel dari data yang akan kita jadikan database yang nantinya akan kita tampilkan kedalam ListBox, contoh datanya seperti pada contoh gambar di bawah ini :

2. Buka halaman (lembar kerja) Visual Basic, dengan cara menekan tombol kombinasi Alt+F11 pada keyboard atau bisa juga memalui ribbon menu pada Tab Developer, kemudian didalam Tab Developer klik pada tombol Visual Basic.

3. Didalam halaman Visual Basic sisipkan sebuah UserForm, dengan cara klik pada menu Insert kemudian klik pada pilihan/opsi UserForm. Tentukan lebar dan tinggi dari UserForm sesuai dengan kabutuhan.

4. Jika UserForm sudah kita buat (sisipkan) sekarang kita sisipkan sebuah ListBox kedalam UserForm tadi, caranya : Klik pada Userform yang sudah kita buat (sisipkan) tadi, maka secara otomatis akan muncuk sebuah jendela kecil dengan nama ToolBox, klik pada pilihan ListBox didalam ToolBox tersebut, berikut ini gambarannya :

Klik pada opsi/pilihan ListBox kemudian silahkan arahkan cursor ke dalam UserForm, dan silahkan tentukan tinggi dan lebar dari ListBox sesuai dengan kebutuhan. Dan hasil dari contoh ini adalah seperti pada gambar di bawah ini :

Untuk proses pembuatan database, UserForm, dan ListBox selesai. Sekarang lanjut untuk memberikan script/kode macro agar nantinya ListBox tersebut bisa menampilkan data yang merupakan database yang sudah kita buat tadi.

Macro 1

Untuk macro yang pertama ini kita masukkan kedalam module, jadi kita harus menyisipkan sebuah module terlebih dahulu. Caranya, klik pada menu Insert kemudian klik lagi pada pilihan/opsi module. Jika sudah, silahkan Copas kode di bawah ini kedalam module tersebut :

Sub BacaData()
'https://aplikasiexcelku.blogspot.com
Dim RangeData, TampilData As Range
Set WsData = Worksheets("Sheet1")
UserForm1.ListBox1.ColumnCount = 8
UserForm1.ListBox1.ColumnWidths = "00;100;60;155;65;50;75;65"
With WsData
    Set RangeData = WsData.Range("A2:A" & WsData.Range("A" & WsData.Rows.Count).End(xlUp).Row)
    For Each TampilData In RangeData 'https://aplikasiexcelku.blogspot.com
    With UserForm1.ListBox1
    .AddItem
    .List(.ListCount - 1, 0) = TampilData.Offset(0, 0).Value
    .List(.ListCount - 1, 1) = TampilData.Offset(0, 1).Value
    .List(.ListCount - 1, 2) = TampilData.Offset(0, 2).Value
    .List(.ListCount - 1, 3) = TampilData.Offset(0, 3).Value
    .List(.ListCount - 1, 4) = TampilData.Offset(0, 4).Value
    .List(.ListCount - 1, 5) = TampilData.Offset(0, 5).Value
    .List(.ListCount - 1, 6) = TampilData.Offset(0, 6).Value
    .List(.ListCount - 1, 7) = TampilData.Offset(0, 7).Value
    End With
    Next TampilData
End With
End Sub

Sedikit penjelasannya mengenai kode di atas, perhatikan pada UserForm1.ListBox1.ColumnWidths = "00;100;60;155;65;50;75;65" terdapat nilai 00, nilai tersebut untuk menyembunyikan kolom pertama dari data yang sudah dibuat, pada contoh ini adalah kolon No.

Macro 2

Jika sudah, sekarang tutup module tersebut dan kembali ke UserForm, kemudian klik kanan pada UserForm dan pilih View Code, ingat!! diarea UserForm klik kanannya. Jika sudah, secara otomatis nantinya akan ada kode seperti berikut ini : 

Private Sub UserForm_Click()

End Sub

Silahkan saja hapus kode tersbut. Dan silahkan Copas kode macro kedua ini kedalam UserForm tadi :

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

Silahkan lakukan ujicoba dengan menekan tombol F5 pada keyboard, jika berasil seharusnya tampil seperti pada gambar di bawah ini :

Bagi Sobar Blogger yang mempelajarinya secara langsung sudah Saya sertakan file contohnya untuk Sobat Blogger unduh/download. Demikian artikel mengenai Cara Menampilkan Data Di Listbox Userform Excel (Versi 2), mudah-mudahan apa yang sudah Saya sampaikan bisa bermanfaat untuk kita semuanya, sekian, terimakasih, dan Salam Belajar!!

- Download Sample -

Share :