Diskusi tentang Excel

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

Related

UserForm 5903713487576752326

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