Contoh Combobox Multi Kolom

Membuat Combobox lebih dari dua kolom dapat membantu mempermudah ketika menampilkan list kita bisa mengetahui record data yang akan dientri. Untuk membuat combobox multi kolom sudah saya bahas dan hampir sama Anda silakan lihat tulisan saya tentang

Cara Membuat Combobox 2 Kolom pada UserForm

Kali ini saya akan bahas lebih dari dua kolom yaitu 4 kolom dan bisa dikatakan multikolom. Baiklah mari kita lihat cara membuatnya dan hasilnya seperti gambar diatas

Langkah pertama silakan buat data pada sheet1 dengan tabel seperti berikut

Setelah tabel data pangkat golongan pegawai diatas terbuat maka langkah berikutnya kita akan memberi nama range supaya lebih mudah dalam memanggil range data tabel pangkat jabatan tersebut.

Silakan lihat Cara Membuat Nama Range dan menggantinya

Silakan blok A1 sampai D17 kemudian pada Adress silakan ketikkan "List"

Jika sudah selesai silakan kembali ke editor VBA kemudian sisipkan satu buah UserForm dan tambahkan Combobox dengan menggunakan toolbox

Langkah berikutnya silakan Anda ketikkan script berikut

Private Sub UserForm_Initialize()
Me.ComboBox1.ColumnWidths = 30 & " , " & 100 & "," & 90 & "," & 90
ComboBox1.SetFocus
ComboBox1.ColumnCount = 40
Dim list(1 To 17, 1 To 4) As String
Dim i As Integer, j As Integer
For i = 1 To 17
    For j = 1 To 4
       list(i, j) = Cells(i, j).Value
    Next j
Next i
ComboBox1.list = list
End Sub

Sampai disini Anda sudah bisa membuat Combobox dengan multicolum / multi kolom, Agar tampilan lebar list pada combobox lebih lebar lagi maka silakan rubah Listwidth pada properties combobox tersebut dengan ukuran 330pt. Silakan sesuaikan dengan data list masing-masing sesuai dengan panjang listbox nya

Untuk jumlah listbox supaya tidak muncul scrollbar Anda bisa tentukan jumlah list untuk combobox tersebut misalnya saya ganti ListRows menjadi 17.

Selamat mencoba, semoga bermanfaat.

Tweet