Senin, 26 Desember 2016

Isi ListBox Sesuai Dengan Data Dalam Sheet


ListBox memiliki fungsi yang hampir sama dengan ComboBox, hanya saja jika comboBox merupakan gabungan antara ListBox dengan TextBox, Sementara ListBox dapat menampilkan beberapa nilai sekaligus dan pengguna dapat memilih beberapa nilai atau data yang ditampilkan dalam ListBox tersebut.

Untuk Mengisi data atau nilai dalam ListBox, dapat dilakukan dengan berbagai cara. Namun jika ingin mengisi data dalam ListBox agar sesuai dengan data yang tertulis dalam sebuah sel atau range, mungkin cara berikut bisa menjadi salah satu alternatif.

Membuat UserForm dan ListBox

+ Langkah awal adalah dengan membuat sebuah UserForm serta membuat ListBox, sehingga akan tampak seperti ilustrasi berikut :


+ Kode Isi ListBox
+ Buka kode untuk UserForm dan tempelkan kode berikut di dalamnya:
Private Sub UserForm_Initialize()
Data = "A1:B12"
ListBox1.ColumnCount = 2
ListBox1.RowSource = Data
End Sub

Keterangan Isi ListBox Sesuai Dengan Data Dalam Sheet

A1:B7 Data yang ingin di tampilkan dalam ListBox
ColumnCountJumlah banyaknya kolom yang ditampilkan dalam ListBox

Penyempurnaan kode

+ Agar RowSource secara otomatis menyesuaikan jumlah baris data yang ada, gunakan kode macro dibawah ini

Private Sub UserForm_Initialize()
brs = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Data = "A1:B" & brs
ListBox1.ColumnCount = 2
ListBox1.RowSource = Data
End Sub

Menggunakan ListBox1.RowSource hanya bisa digunakan pada sheet yang aktif, jadi seumpama data ada di sheet1 maka Listbox harus berada pada sheet1, jika listbox1 berada pada sheet2 maka akan terjadi error

Langkah Terakhir

+ Pastikan bahwa terdapat data di sel A1:B12
+ Untuk melihat hasil sementara, jalankan UserForm dengan menekan tombol F5 di keyboard, Hasil akhir akan tampak seperti ilustrasi berikut


Demikianlah Isi ListBox Sesuai Dengan Data Dalam Sheet tips ini bisa anda aplikasikan kedalam microsoft excel visual basic for application (VBA), semoga bisa dimengerti. Terimakasih.

>> Isi ComboBox Sesuai Data Dalam Sheet



EmoticonEmoticon