√ Referensi Combobox Multi Kolom

Membuat Combobox lebih dari dua kolom sanggup membantu mempermudah saat menampilkan list kita sanggup mengetahui record data yang akan dientri. Untuk menciptakan combobox multi kolom sudah aku bahas dan hampir sama Anda silakan lihat goresan pena aku tentang

Cara Membuat Combobox 2 Kolom pada UserForm

Kali ini aku akan bahas lebih dari dua kolom yakni 4 kolom dan sanggup dikatakan multikolom. Baiklah mari kita lihat cara membuatnya dan karenanya menyerupai gambar diatas

Langkah pertama silakan buat data pada sheet1 dengan tabel menyerupai berikut

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

Silakan lihat Cara Membuat Nama Range dan menggantinya

Silakan blok A1 hingga D17 lalu pada Adress silakan ketikkan "List"

Jika sudah final silakan kembali ke editor VBA lalu sisipkan satu buah UserForm dan tambahkan Combobox dengan memakai 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 sanggup menciptakan 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 sanggup tentukan jumlah list untuk combobox tersebut contohnya aku ganti ListRows menjadi 17.

Selamat mencoba, biar bermanfaat.
Sumber http://www.excel-id.com/