COMBOBOX YANG MERDEKA DAN COMBOBOX YANG DIJAJAH – Belajar Microsoft Excel : Tips, Tricks & Tutorial

COMBOBOX YANG MERDEKA DAN COMBOBOX YANG DIJAJAH

Assalamualaikum Warahmatullahi Wabarakatuh

sOdara sekaliYan para pembatja jang boediman … kembali sebuah judul yang sungguh menyesatkan dimana judul artikel yang absurd menyebabkan disorientasi yang kronis pada isi artikel … baEklaagh ijinkan jemari lentik saya yang pernah ikut sekolah mengetik 10 jari ini  menjelaskan maksuTnya Jadi begini sOdara2 sekaliYan … Probelma de Excellente kali ini mungkin mirip dengan toelisan jadoel saya tentang validasi bertingkat/bertumpuk  … ada jugaK wong londo yang menyebut dengan istilah nested …. linknya klik aja dimarih … bedanya cuman di artikel ini validasi yang berupa list data akan ditampilkan pada sebuWah kontrol ComboBox daripada Cell Excel … intinya bagaimana cara mbikin 2 buah ComboBox dalam suatu Userform … yang mana nilai/isi dari ComboBox1 mempengaruhi List Data yang akan ditampilkan pada ComboBox2

ComboBox1 –> Independen aliyas Merdeka!!!!!!!!!

ComboBox2 –> Dependen aliyas Terjajah oleh ComboBox1

OK mari kita mulai saja … saya pakai contoh data Nama Kabupaten/Kota di Indonesia

ComboBox1 berisi list nama PROVINSI … jika nama PROVINSI berubah maka ComboBox2 yang berisi list nama KABUPATEN/KOTA akan menyesuaikan dengan nama PROVINSI pada ComboBox1

ada 2 buah tabel sepert berikOt :

TabelKab.jpg

Tabelprov.jpg

Sodara ndak usah bikin tabelnya … download aja langsung file 2ComboBox.xlsm sudah komplit dengan Userform yang penampakannya sbb :

userform2cbx

dalam Userform tsb ada dua kontrol ComboBox :

  1. ComboBox1 saya kasih nama CbxProv untuk menampilkan Daftar Provinsi
  2. ComboBox2 saya kasih nama CbxKab untuk menampilkan Daftar Kab./Kota

kontrol lainnya abaikan saja 🙂 … kode yang dipakai pada Userform tsb sbb:

Option Explicit
Private Sub CbxProv_Change()
Call IsiCbxKab
End Sub
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:="http://excellerates.com/"
End Sub
Private Sub UserForm_Initialize()
Call IsiCbxProv
End Sub
Private Sub IsiCbxProv()
Dim i As Integer
Application.EnableEvents = False
CbxProv.Clear
i = 1
With ThisWorkbook.Sheets("Prov")
Do
i = i + 1
If .Cells(i, 1).Value = Empty Then Exit Do
CbxProv.AddItem .Cells(i, 2).Value
Loop
CbxProv.ListIndex = 0
Application.EnableEvents = True
End With
End Sub
Private Sub IsiCbxKab()
Dim i As Integer
Application.EnableEvents = False
CbxKab.Clear
i = 1
With ThisWorkbook.Sheets("KabKota")
Do
i = i + 1
If .Cells(i, 1).Value = Empty Then Exit Do
If CbxProv.Value = .Cells(i, 3).Value Then CbxKab.AddItem .Cells(i, 2).Value
Loop
CbxKab.ListIndex = 0
Application.EnableEvents = True
End With
End Sub

dalam contoh sebagian kodenya sudah saya kasih keterangan agar lebih mudah dipahami

➡ pada saat Userform tsb di-Run akan menjalankan prosedur UserForm_Initialize

➡ prosedur UserForm_Initialize akan memanggil prosedur IsiCbxProv untuk membuat List Provinsi pada Combobox CbxProv

➡ karena Combobox CbxProv berubah maka terjadi event Change pada kontrol CbxProv yang akan menjalankan kode pada prosedur CbxProv_Change

➡ prosedur CbxProv_Change akan memanggil prosedur IsiCbxKab yang akan membuat List Kabupaten/Kota sesuai dengan provinsi yang dipilih

begitu seterusnya … jika CbxProv berubah maka CbxKab akan menyesuaikan …Trik ini bisa juga dipakai untuk kontrol ListBox … silahkan download aja langsung filenya 2ComboBox.xlsm … kalau bingung cara download baca halaman download atau FAQ … semoga manpaat … MDLMDL …. selamat menjalankan ibadah puasa 😉

bingung cara downloadnya ??

Baca aja halaman download dengan klik icon di samping

feed , email and my social media

2 Comments

Jika sOdara menemukan sesuatu yang bermanpaat di marih .... silahkan kasih komennya