Sabtu, 24 Desember 2016

Isi ComboBox Sesuai Data Dalam Sheet


Untuk membuat pengguna agar lebih mudah dalam mengentry data atau untuk membatasi isi atau item sesuai dengan yang telah kita sediakan, dapat menggunakan fasilitas daftar Drop-down yang umumnya biasa dibuat menggunakan bantuan Data Validation. kemudian pada pilihan Settings >> pilih Allow : dan dari daftar pilihan yang ada, pilih List.

Cara diatas hanya dapat diberlakukan untuk sel dalam workbook, bagaimana jika ingin membuat Daftar Drop-Down menggunakan ComboBox yang terdapat dalam UserForm akan tetapi isinya berdasarkan data yang terdapat dalam range yang sudah kita tentukan ?

ComboBox Excel VBA

Untuk membuatnya terlebih dahulu ketikkan data-data pada sebuah Sheet (ambil contoh Sheet1) mulai sel A1 sampai dengan sel A5, kemudian siapkan sebuah UserForm yang didalamnya terdapat ComboBox dengan nama ComboBox1 .

No A B
1 Januari
2 Februari
3 Maret
4 April
5 Mei
6 Juni
7

Langkah selanjutnya yaitu paste kode berikut dalam UserForm :

Private Sub UserForm_Initialize()
For Jmlh = 1 To 7
Nilai = Range("A" & Jmlh)
ComboBox1.AddItem Nilai
Next Jmlh
End Sub

Jalankan Macro UserForm ini dengan menekan tombol F5 di keyboard anda.

Keterangan

For Jmlh = 1 To 7 Pengulangan nilai dari baris satu sampai baris 7, jika baris yang akan ditampilkan adalah 30 maka ganti angka 7 dengan 30
Range("A" & Jmlh) Menampilkan kolom A, jika yang akan ditampilkan dalam combobox adalah kolom B maka ganti huruf A dengan B

Isi ComboBox Sesuai Data Dalam Sheet

For Jmlh = 1 To 7 Pengulangan nilai dari baris satu sampai baris 7, jika baris yang akan ditampilkan adalah 30 maka ganti angka 7 dengan 30, saya akan bagikan kode macro untuk menghitung jumlah baris yang aktif

Private Sub UserForm_Activate()
brs = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
For Nomor = 1 To brs
Datanya = Range("a" & Nomor)
ComboBox1.AddItem Datanya
Next Nomor
End Sub

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


EmoticonEmoticon