Menampilkan Data Di ListBox VBA Excel Versi2

 Mas Operator. Setelah sebelumnya Saya memposting sebuah artikel mengenai Cara Menampilkan Data Di ListBox VBA Excel, kembali pada kesempatan ini Saya akan membagikannya ulang, namun pastinya ada perbedaan dari artikel/postingan Saya sebelumnya tersebut. Apa perbedaanya? Silahkan simak artikel ini sampai selesai,.. 😎😎😎

Apa Itu ListBox VBA Excel?

ListBox merupakan salah satu kontrol yang berfungsi untuk menampilkan data (daftar item) atau database untuk dipilih oleh pengguna (user) sebuah aplikasi/software, namun pengguna (user) tidak bisa mengubah (edit data) secara langsung didalam ListBox tersebut. ListBox hampir sama seperti tabel, karena memiliki header dan juga berupa baris dan kolom, bedanya adalah pada ListBox ini tidak ada garis tepi (border).

Didalam lembar kerja aplikasi Ms. Excel kita bisa menyisipkan ListBox ini baik didalam sheet maupun didalam Userform pada lembar kerja Visual Basic dari aplikasi Ms. Excel. Pada artikel ini Saya akan memberikan contohnya melalui lember kerja Visual Basic dari aplikasi Ms. Excel, dan berikut ini langkah-langkahnya :

Membuka Lembar Kerja Visual Basic Ms. Excel

Untuk membuka lembar kerja Visual Basic Excel ada 2 (dua) cara, yaitu :

1. Menggunakan Tab Developer, seperti yang kita ketahui bersama bawhwa Tab Developer ini tidak secara otomatis ada di bilah menu (Ribbon Menu) aplikasi excel, dan cara untuk menampilkan/memunculkan Tab Developer bisa Sobat Blogger baca artikel Saya dengan cara Klik Disini.

Seperti yang sudah Saya jelaskan di atas, untuk membuka halaman/lembar kerja Visual Basic Ms. Excel kita bisa menggunakan Tab Developer, langkah-langakah atau caranya adalah : Klik pada Tab Developer, kemudian klik lagi pada opsi/tombol Visual Basic, perhatikan gambar di bawah ini :

2. Menggunakan kombinasi tombol pada keyboard, cara yang kedua ini sering digunakan. Yaitu dengan menggunakan kombinasi Alt+F11 pada keyboard. Dan berikut ini tampilan dari lembar kerja Visual Basic Aplikasi Ms. Excel :

Menyisipkan Userform

Seperti yang sudah Saya jelaskan di atas, bahwa untuk bisa menyisipkan ListBox dibutuhkan sebuah Userform, dan untuk menyisipkan sebuah Userform silahkan klik pada menu Insert kemudian klik/pilih Userform, perhatikan gambar di bawah ini :

Silahkan atur ukuran Userform sesuai dengan kebutuhan.

Menyisipkan ListBox Ke UserForm

Untuk menyisipkan ListBox kedalam Userform cara atau langkahnya adalah seperti berikut ini :

Aktifkan atau klik pada Userform yang sudah kita sisipkan tadi, maka secara otomatis akan muncul sebuah ToolBox kemudian klik pilihan ListBox yang ada didalam ToolBox tersebut, perhatikan gambar di bawah ini :

Kemudian arahkan kedalam Userform, silahkan atur tinggi dan lebar dari ListBox sesuai dengan kebutuhan masing-masing, dan contoh hasilnya adalah seperti berikut ini :

Untuk menyisipkan Userform dan ListBox sudah selesai, saatnya untuk membuat Database yang akan ditampilkan ke dalam ListBox tadi.

Data/Database Untuk Ditampilkan Kedalam ListBox

Minimize lembar kerja Visual Basic, kemudian siapkan data yang akan kita jadikan Database untuk menudian kita tampilkan kedalam Listbox. Pilih salah satu sheet yang akan kita jadikan sebagai lokasi data, dan pada contoh ini Saya menggunakan Sheet1. Dan data yang akan Saya tampilkan adalah sebagai berikut :

Seperti yang ditampilkan gambar di atas, data yang akan Saya tampilkan kedalam ListBox adalah daftar nama siswa, dimana data tersebut berisi No Urut, Nama Siswa, Jenis Kelamin, Alamat, dan Kelas. Dimana data tersebut dimulai dari kolom A sampai dengan kolom E. 

Coding Macro 

Setelah tahap pembuatan baik Userform, ListBox maupun data seselesai, sekarang saatnya tahap coding (memberikan script macro) kedalam Userform dan ListBox agar nantinya bisa menampilkan data yang sudah kita buat didalamnya.

Buka kembali halaman/lembar kerja Visual Basic, kemudian sisipkan sebuah module, caranya adalah klik pada menu Insert kemudian pilih/klik pada opsi module, perhatikan gambar di bawah ini :

kemudian Copas Script/kode Macro di bawah ini kedalam module tadi :

Sub TampilData()

'https://masoperator.blogspot.com

Dim RangeData, ShowData As Range

Set WsData = Worksheets("Sheet1")

UserForm1.ListBox1.ColumnCount = 5

UserForm1.ListBox1.ColumnWidths = "50;75;65;65;65;55"

With WsData

Set RangeData = WsData.Range("A2:A" & WsData.Range("A" & WsData.Rows.Count).End(xlUp).Row)

    For Each ShowData In RangeData 'https://masoperator.blogspot.com

    With UserForm1.ListBox1

    .AddItem

    .List(.ListCount - 1, 0) = ShowData.Offset(0, 0).Value

    .List(.ListCount - 1, 1) = ShowData.Offset(0, 1).Value

    .List(.ListCount - 1, 2) = ShowData.Offset(0, 2).Value

    .List(.ListCount - 1, 3) = ShowData.Offset(0, 3).Value

    .List(.ListCount - 1, 4) = ShowData.Offset(0, 4).Value

    End With

    Next ShowData

End With

End Sub

Jika sudah, tutup module dan kembali ke Userform, kemudian Copas script/kode Macro di bawah ini kedalam Userform dengan cara klik pada Userform dan klik/pilih View Code, perhatikan gambar di bawah ini :

Private Sub UserForm_Initialize()

'https://masoperator.blogspot.com

TampilData

End Sub

Sehingga seperti pada gambar di bawah ini :

Selesai, untuk mencobanya silahkan tekan tombol F5 pada keyboard atau bisa juga dengan klik tombol run. Demikian mengenai Menampilkan Data Di ListBox VBA Excel Versi2, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan selamat mencoba.

Salam Mas Operator!!!

Share :