√ Cara Menciptakan Combobox Default Value Pada Userform

Masih tetap mencar ilmu VBA Excel, Anda tentu tahu kan Combobox? Combobox merupakan sajian pilihan hampir sama dengan Option Button namun dalam Combobox biasanya terdapat pilihan untuk mengentri sehingga Anda tidak usah mengetikkan data yang diluar pilihan combobox tersebut. Ada pula programmer yang membiarkan usernya untuk menuliskan atau mengetikkan selain dari pilihan yang disediakan oleh combobox. Materi ini akan membahas bagaimana cara menciptakan combobox yang dikala form di load isinya akan otomatis sebagai pilihan value pertama kali.

Baca:
Cara Membuat Combobox untuk Pemula

Saya yakin Anda sudah mengetahui bagaimana bentuk Combobox yang aku maksud apalagi Anda sudah tidak abnormal lagi dengan pemrograman VBA atau bahkan bahasa pemrograman lainnyapun biasanya terdapat sebuah combobox. Namun bagi Anda pemula dalam hal pemrograman tentunya hal ini akan terasa asing, Oke, supaya lebih mengenal bagaimana bentuk dari combobox silakan perhatikan berikut rujukan combobox yang aku buat.

Ketika UserForm1 pertama kali muncul maka isi dari combobox Kecamatan yaitu "Malausma" dan nama kecamatan "Malausma" tersebut dijadikan sebagai default value untuk Combobox Kecamatan.

Langkah menciptakan Combobox Default Value bagaimana?

Tidak sulit, pertama sebelum Anda menciptakan UserForm kemudian Combobox sebaiknya terlebih dahulu Anda menciptakan data list untuk dijadikan source dari isi combobox tersebut. Membuat Combobox dengan Source dari range worksheet sudah pernah aku bahas sebelumnya Anda tinggal lihat-lihat lagi bahan yang pernah aku bahas atau Anda bisa

Baca:
Cara Membuat Combobox dengan source Range Worksheet

Setelah Anda mengetahui cara membuatnya mari kita lanjutkan ke tahap berikutnya, yaitu pengcodean untuk combobox default value. Saya akan menciptakan coding tersebut pada objek userform dan mekanisme Initialize dan berikut coding yang harus Anda copykan pada latihan Anda

Private Sub UserForm_Initialize()
With UserForm1
    .ComboBox1.RowSource = "Kecamatan"
    .ComboBox1.ListIndex = 0
End With
End Sub

Combobox RowSource ="Kecamatan" merupakan nama dari range yang berisi daftar nama kecamatan aku beri nama range yaitu "Kecamatan" bekerjsama Anda juga sanggup menggantinya dengan nama range standar bukan memakai define name.


Untuk menguji apakah combobox default value sudah benar atau tidak silakan run coding yang telah Anda buat tadi kemudian perhatikan dikala pertama kali userform muncul nama kecamatan yang terisi yaitu "Malausma" alasannya yaitu aku tuliskan pada coding Combobox.ListIndex yaitu 0 bila Anda memilik atau menuliskan angka 1 maka alhasil combobox default value yaitu nama kecamatan "Jatiwangi".

Simak:
Lihat Cara Membuat Combobox Multi Kolom

Demikian, apakah Anda berhasil sesuai dengan rujukan aku diatas? Jika tidak silakan komentar di bawah artikel ini, bila iya juga silakan komentar biar aku sanggup menciptakan dan memperbaiki rujukan combobox yang lain.

Selamat mencar ilmu VBA
Sumber http://www.excel-id.com/