Diskusi tentang Excel

Membuat ComboBox Pada UserForm untuk Pemula

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

Bagaimana cara mendesain combobox menggunakan toolbox

Untuk membuat combobox sama halnya dengan membuat textbox pada Userform yaitu menggunakan 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 menggunakan 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 memiliki data apapun dan combobox tersebut tidak bisa 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 dibuat diatas maka Name untuk combobox tersebut adalah "Combobox1" hal tersebut dikarenakan kita pertama kali membuat combobox jika Anda membuat combobox yang kedua maka nama combobox akan berubah 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 seperti name textbox tidak boleh menggunakan spasi harus disatukan tanpa ada spasi, jika terpaksa untuk memisahka per kata silakan gunakan "_" atau "-".


Jika Combobox diatas belum memiliki list pilihan yang nantinya akan digunakan oleh user maka Anda harus menentukan listpilihan tersebut dan berikut ini akan saya contohkan script sederhana Combobox

Contoh Script Sederhana Combobox

Langkah awal untuk membuat script VBA pada combobox agar muncul list yang telah ditentukan adalah Anda harus mengaktifkan code dengan cara menekan F7. Dan pada tulisan 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 bisa muncul ketika form aktif maka lebih disarankan menggunakan 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 program dengan menekan tombol F5 pada keyboard jika Anda klik combobox tersebut hasilnya akan tampak seperti gambar berikut


Script diatas biasanya merupakan script standar untuk belajar VBA namun bagi para programer mereka sudah menggunakan fungsi With untuk mengatasi penulisan yang dilakukan secara berulang sehingga mereka yang master dalam pemrograman VBA script tersebut berubah menjadi seperti 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 kode program yang benar dan sesuai dengan aturan. Lalu bagaimana hasilnya? Saya kira sama saja jika Anda Run program atau tekan F5 hasilnya akan sama seperti gambar userform diatas.

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

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

Cara membuat tulisan sebelum Combobox dipilih

Sebenarnya cara ini merupakan untuk memberikan kemudahan saja apabila user melihat combobox yang ada pada form masih belum berisi data maka kita bisa menambahkan script CBONamaBinatang.Value = "--  Pilih  Nama Binatang  --" dibawah End With sehingga sript tersebut menjadi seperti 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 hasilnya akan terlihat seperti berikut ini


Bagaimana cara merubah ukuran huruf pada Combobox?

Untuk merubah ukuran huruf biasanya proggramer melakukan hal ini karena memang kesesuaian antara ukuran combobox terlalu lebar sedangkan tulisan atau font ukurannya kecil dan hal inilah yang menurut 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 adalah jika Anada memiliki list sebanyak 5 list seperti tulisan diatas nama -nama binatang terdiri dari 5 namun kita hanya akan menampilkan 2 list saja maka Anda harus menentukan atau merubah properties listrow menjadi 2

Sehingga apabila Anda jalankan dengan menekan tombol F5 maka hasilnya akan terlihat seperti gambar dibawah ini


Perhatikan gambar diatas terdapat scroll bar yang dapat anda gulung dan ini akan menggulung list yang ke3 sampai berikutnya ke yang terakhir.

Oke, saya kira cukup jelas bagaiaman cara membuat combobox pada userform bagi pemula, semoga tulisan ini bermanfaat dan selamat belajar jangan lupa jika ada pertanyaan silakan tulis pada kolom komentar.

Related

Macro Excel VBA 4721710117513937332

Post a Comment

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