Tampilkan Data di ListBox di UserForm VBA Excel

Pada posting terdahulu kita sudah membahas tentang cara membuat Tombol Simpan VBA Excel 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..!!

Perlu diperhatikan.!!!

1. Kita menggunakan File yang telah kita rancang pada posting Tombol Simpan VBA Excel
2. Ikuti Posting Cara Membuat Range Dinamis

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

1. 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.