Prosedure Userform Initialize untuk Combobox

Bagaimana teknik atau cara Prosedure Userform Initialize untuk Combobox? Mendesain Userform tentu Anda akan menampilkan interface yang lebih userfriendly bagi pengguna. Dalam  hal ini untuk jika Anda menggunakan object userform dengan prosedure initilize.

Berikut struktur object userform dengan prosedur initialize

Private Sub UserForm_Initialize()

End Sub

Misalnya kita akan membuat comboboc dengan data barang yaitu Keyboard, Mouse, LCD. Langkah pertama setelah Anda membuat userform dan menambahkan combobox dengan toolbox kira-kira desain seperti berikut ini

Lalu bagaimana cara menambahkan list dari data barang tersebut agar dapat dipanggil melalui combobox? Langkah pertama setelah Anda membuat userform dengan combobox seperti gambar diatas berikutnya kita akan membuat prosedure initialize untuk object combobox dan silakan Anda view code kemudian ketikkan coding berikut ini

Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem "Keyboard"
    .AddItem "Mouse"
    .AddItem "LCD"
End With
End Sub

Sebenarnya Anda juga bisa mengetikkan tanpa with misalnya

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Keyboard"
ComboBox1.AddItem "Mouse"
ComboBox1.AddItem "LCD"
End Sub

Anda dapat memilih cara ke satu atau kedua hasilnya sama saja. Lalu bagaimana jika item barangnya berada pada worksheet?

Prosedur yang digunakan tetap yaitu pada userform initialize namun disini kita harus mendefinisikan worksheet dan alamat range dari item barang yang akan ditampilkan.

Contoh penulisan item Combobox dari worksheet

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "=Sheet1!B2:B4"
End Sub

Coding diatas merupakan pengambilan item dari alamat sheet1 range B2:B4 dan akan ditampilkan pada combobox1



Ok, Semoga bermanfaat

Lihat Cara Membuat Combobox dengan Validasi

Tweet