Membuat combobox berdasarkan catergory pada excel VBA

Membuat combobox berdasarkan catergory  pada excel VBA

Untuk membuat combobox berdasarkan category sangatlah mudah dan juga sangat bermanfaat. Salah satunya untuk membuat pembukuan seperti buku kas harian atau buku bank, untuk membuka wawasan temen-temen, saya mencoba memberikan contoh Form input data untuk buku bank dengan menggunakan combobox berdasarkan category.

Didalam buku bank selain tanggal dan uraian ada pemasukan dan pengeluaran. Untuk category Pemasukan saya memberikan contoh Setoran, dan bunga bank, sedangkan untuk category pengeluaran saya contohnya adalah Penarikan, Pajak Bank, dan ADM bank.

Ada dua combobox yang akan dibuat yang pertama itemnya adalah pemasukan dan pengeluaran. Sedangkan combobox yang kedua itemnya berdasarkan combobox pertama, apabila kita mengklik pemasukan maka item combobox yang kedua adalah setoran dan bunga bank, sedangkan apabila pada combobox yang pertama kita mengklik pengeluaran maka item pada combobox yang kedua akan berubah menjadi Penarikan, Pajak Bank dan Adm bank. Untuk lebih jelasnya akan saya jelaskan berdasarkan ilustrasi gambar berikut :

Gambar 1.1 Membuat combobox berdasarkan category

gambar 1.2 Membuat combobox berdasarkan category

Untuk menentukan item combobox satu pada saat userform ditampilkan maka codenya sebagai berikut:

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem "Pemasukan"

.AddItem "Pengeluaran"

End With

End Sub

Sedangkan untuk membuat item pada combobox2 berdasarkan kondisi combobox ke satu maka codenya sebagai berikut : 

Private Sub ComboBox1_Change()

ComboBox2.Clear

With ComboBox2

Select Case ComboBox1

Case "Pemasukan"

.AddItem "Setoran"

.AddItem "Bunga Bank"

Case "Pengeluaran"

.AddItem "Penarikan"

.AddItem "Pajak Bank"

.AddItem "Adm Bank"

End Select

End With

End sub

Nah itu contoh singkat cara membuat combobox berdasarkan category pada excel, semoga hal ini dapat membantu teman-teman dalam menyusun pekerjaan dengan memaksimalkan fasilitas yang ada di excel.