√ Menciptakan Combobox Pada Userform Untuk Pemula

Combobox merupakan kombinasi antara listbox dan textbox dimana user sanggup memasukan data hanya yang sesuai dengan data yang telah ditentukan oleh listbox. Cara menciptakan combobox pada userform sangat sederhana sekali dan kali ini saya akan jelaskan bagaimana cara menciptakan combobox pada userform untuk pemula.

Bagaimana cara mendesain combobox memakai toolbox

Untuk menciptakan combobox sama halnya dengan menciptakan textbox pada Userform yaitu memakai toolbox yang telah disediakan oleh Microsoft dan untuk membuatnya Anda cukup klik Combobox pada toolbox kemudian klik pada userform kemudian atur ukuran combobox tersebut dengan cara menarik node ke kanan untuk memperpanjang ukuran combobox dan ke bawah untuk melebarkan ukuran combobox.

Gambar diatas merupakan salah satu desain combobox memakai toolbox yang ada di sebelah kanan lihatlah anak panah yang ditunjukan oleh panah berwarna hijau tersebut. Jika kita run atau jalankan userform tersebut maka combobox belum mempunyai data apapun dan combobox tersebut tidak sanggup diisi oleh user sehingga proggramer VBA harus memasukan data apa saja yang akan ditentukan oleh combobox tersebut sebagai pilihan nantinya.

Jika kita lihat properties dari combobox yang telah dibentuk diatas maka Name untuk combobox tersebut yakni "Combobox1" hal tersebut dikarenakan kita pertama kali menciptakan combobox kalau Anda menciptakan combobox yang kedua maka nama combobox akan berkembang menjadi combobox2 dan seterusnya.
Dalam hal tersebut tentu kita akan mengganti properties name untuk combobox1 menjadi nama "CBONamaBinatang" maka silakan aktifkan combobox kemudian lihat properties name dan ganti menjadi "CBONamaBinatang". Perlu diingat untuk menamai objek baik itu combobox ataupun objek lain menyerupai name textbox dihentikan memakai spasi harus disatukan tanpa ada spasi, kalau terpaksa untuk memisahka per kata silakan gunakan "_" atau "-".

Jika Combobox diatas belum mempunyai list pilihan yang nantinya akan dipakai oleh user maka Anda harus memilih listpilihan tersebut dan berikut ini akan saya contohkan script sederhana Combobox

Contoh Script Sederhana Combobox

Langkah awal untuk menciptakan script VBA pada combobox supaya muncul list yang telah ditentukan yakni Anda harus mengaktifkan code dengan cara menekan F7. Dan pada goresan pena kali ini saya akan contohkan list combobox yang satu kolom untuk yang dua kolom

Silakan simak [29] Cara Membuat ComboBox VBA dengan 2 Kolom

Agar list data combobox sanggup muncul saat form aktif maka lebih disarankan memakai deklarasi userform initialize.

Private Sub UserForm_Initialize()
CBONamaBinatang.AddItem "Harimau"
CBONamaBinatang.AddItem "Buaya"
CBONamaBinatang.AddItem "Kucing"
CBONamaBinatang.AddItem "Ayam"
CBONamaBinatang.AddItem "Kerbau"
End Sub

Silakan tuliskan script diatas dan jalankan jadwal dengan menekan tombol F5 pada keyboard kalau Anda klik combobox tersebut balasannya akan tampak menyerupai gambar berikut

Script diatas biasanya merupakan script standar untuk berguru VBA namun bagi para programer mereka sudah memakai fungsi With untuk mengatasi penulisan yang dilakukan secara berulang sehingga mereka yang master dalam pemrograman VBA script tersebut berkembang menjadi menyerupai berikut

Private Sub UserForm_Initialize()
With CBONamaBinatang
    .AddItem "Harimau"
    .AddItem "Buaya"
    .AddItem "Kucing"
    .AddItem "Ayam"
    .AddItem "Kerbau"
End With
End Sub

Dan script kedua diatas merupakan penulisan instruksi jadwal yang benar dan sesuai dengan aturan. Lalu bagaimana hasilnya? Saya kira sama saja kalau Anda Run jadwal atau tekan F5 balasannya akan sama menyerupai gambar userform diatas.

Lalu bagaimana cara menciptakan combobox dari data sheet yang sudah ada? Misalnya saya mempunyai data pada sheet1 dan data tersebut ada pada range A1:C10 maka Anda harus berguru bagaimana cara menciptakan combobox dari sheet untuk itu

Silakan simak goresan pena saya mengenai : [19] Macro Excel | Tutorial Membuat ComboBox pada UserForm dengan Source Data dari Worksheet

Cara menciptakan goresan pena sebelum Combobox dipilih

Sebenarnya cara ini merupakan untuk memperlihatkan fasilitas saja apabila user melihat combobox yang ada pada form masih belum berisi data maka kita sanggup menambahkan script CBONamaBinatang.Value = "--  Pilih  Nama Binatang  --" dibawah End With sehingga sript tersebut menjadi menyerupai berikut

Private Sub UserForm_Initialize()
With CBONamaBinatang
    .AddItem "Harimau"
    .AddItem "Buaya"
    .AddItem "Kucing"
    .AddItem "Ayam"
    .AddItem "Kerbau"
End With
CBONamaBinatang.Value = "--  Pilih  Nama Binatang  --"
End Sub

Jika kita aktifkan atau jalankan macro tersebut maka balasannya akan terlihat menyerupai berikut ini

Bagaimana cara merubah ukuran abjad pada Combobox?

Untuk merubah ukuran abjad biasanya proggramer melaksanakan hal ini alasannya yakni memang kesesuaian antara ukuran combobox terlalu lebar sedangkan goresan pena atau font ukurannya kecil dan hal inilah yang berdasarkan saya kurang tepat. Untuk itu Anda harus merubah font dari properties tersebut.

Jika Anda klik 3 titik tersebut yang ditunjukan oleh anak panah maka kotak font akan muncul silakan Anda rubah Font, Font Style, Font size dan akhiri dengan klik OK

Jika sudah selesai coba jalankan dan lihat perubahan yang terjadi pada combobox tersebut akan terlihat kesesuaian antara ukuran combobox dengan font nya.

Bagaimana cara mengatur tampilan list pada Combobox?
Mengatur tampilan maksudnya disini yakni kalau Anada mempunyai list sebanyak 5 list menyerupai goresan pena diatas nama -nama hewan terdiri dari 5 namun kita hanya akan menampilkan 2 list saja maka Anda harus memilih atau merubah properties listrow menjadi 2

Sehingga apabila Anda jalankan dengan menekan tombol F5 maka balasannya akan terlihat menyerupai gambar dibawah ini

Perhatikan gambar diatas terdapat scroll kafe yang sanggup anda gulung dan ini akan menggulung list yang ke3 hingga berikutnya ke yang terakhir.

Oke, saya kira cukup terperinci bagaiaman cara menciptakan combobox pada userform bagi pemula, semoga goresan pena ini bermanfaat dan selamat berguru jangan lupa kalau ada pertanyaan silakan tulis pada kolom komentar.
Sumber http://www.excel-id.com/