Diskusi tentang Excel

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.

Related

Macro Excel VBA 4045141354405055491

Post a Comment

  1. sorry min, saya bingung nih
    kalau bisa range nya jangan dikasih nama "list"
    saya bingung kode nya.
    kalau nama lain, kan gampaang kostummisasinya

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item