Tampilkan Data di ListBox di UserForm VBA Excel

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

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.