Halo sobat Belajar Office. Lanjut lagi pada pembahasan cara Membuat Form Excel VBA. Pada postingan sebelumnya sudah dibahas cara menambahkan ToolBox Option Button Excel VBA, selanjutnya pada artikel kali ini kita belajar cara Menambahkan ComboBox Pada Form Excel VBA.
ComboBox adalah Toolbox berupa kotak drop down yang berisi list data-data yang bisa dipilih oleh user atau pengguna. Dengan combo Box ini maka user tidak perlu lagi harus mengetik ketika mengisi data tertentu tingal pilih saja dari list drop down yang telah disediakan.
Berikut ini Cara Menambahkan ComboBox Pada Form Excel VBA
Pada Sheet Excel kita klik dari Tab Menu Developer >>> Visual Basic
Tambahkan userform baru klik >> Insert >> Userform
Selanjutnya tambahkan ToolBox : ComboBox pada form tersebut
Atur properties Name : ComboBox1
Pada contoh diatas ComboBox tersebut akan digunakan untuk mengisi data-data misalnya Agama, maka perlu ditambahkan itemnya atau add item sebagai berikut : Islam, Kriten, Protestan, Hindu, Budha.
Cara menambahkan add item double klik pada form tersebut kemudian ketikan koding dibawah ini
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem “Islam”
.AddItem “Kristen”
.AddItem “Katolik”
.AddItem “Hindu”
.AddItem “Budha”
End With
End Sub
Kemudian pada commond button/tombol add tambahkan koding yang berwana merah
Private Sub Add_Click()
Dim kosong As Long
Sheet2.Activate
kosong = WorksheetFunction.CountA(Range(“A:A”)) + 1
Cells(kosong, 1).Value = TextBox1.Value
Cells(kosong, 2).Value = TextBox2.Value
If OptionButton1.Value = True Then
Cells(kosong, 3).Value = “Laki-laki”
Else
Cells(kosong, 3).Value = “Perempuan”
End If
Cells(kosong, 4).Value = ComboBox1.Value
End Sub
Supaya data yang di input masuk kedalam sheet2
Pada Sheet2 juga tambahkan kolom baru dengan nama : Agama
Selanjutnya kita uji coba inputkan datanya, maka akan tampilan user form seperti gambar dibawah ini kemudian klik add maka data otomatis akan masuk pada sheet2.
Sebagai bahan latihan sobat bisa download file yang sudah jadi pada link dibawah ini
Menambahkan ComboBox Pada Form Excel VBA
Terimakasih