Tampilkan Data di ListBox di UserForm VBA Excel
Pada posting terdahulu kita sudah membahas tentang cara membuat Tutorial Simpan Data Dengan Macro VBA. menggunakan UserForm VBA Excel. Pada kesempatan ini lanjutannya, jadi masih pake aplikasi yang terdahulu kita rancang, saya akan mencoba menguraikan cara membuat ListBox yang dapat menampilkan data yang telah disimpan. ikuti langkah-langkah yang saya sajikan ini selangkah demi selangkah. Anda pasti bisa membuat Aplikasi..!!
Langkah-langkah membuat ListBox :
-
Buka kembali Excel Yang telah kita rancang pada posting Tombol Simpan VBA Excel
-
Buatlah sebuah range dinamis baca posting Cara Membuat Range Dinamis
-
Buka  Visual Basic dan tambahkan ListBox pada UserForm Seperti pada gambar berikut ini
Untuk Properties biarkan saja jangan di ubah baik Label maupun ListBox. Setelah siap di rancang, klik kanan pada UserForm pilih View Code  dan Masukkan Kode dibawah ini, perhatikan gambar dibawah kode..!!
 Sub ListDB()
With UserForm1.ListBox1
.ColumnCount = 5
.ColumnHeads = False
.ColumnWidths = “25;55;100;70;90”
.RowSource = “ListDB”
.MultiSelect = fmMultiSelectSingle
.BoundColumn = 0
End With
End Sub
Private Sub UserForm_Initialize()
Call ListDB
End Sub
-
Selesai, Agar saat setelah Tombol Simpan di klik langsung terlihat datanya pada ListBox kita tambahkan kode pada CmdSimpan dengan code berikut sebelum End Sub
Call ListDB
Demikian yang bisa saya share pada kesempatan ini tentang cara membuat ListBox agar menampilkan data dari Sheet. Semoga bermanfaat terutama bagi yang belajar otodidak seperti saya.
Seorang pengajar dan pembelajar yang mengurus lembaga pelatihan dan kursus komputer bernama LKP Naura