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

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

Iklan
3 Comments

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

This site uses Akismet to reduce spam. Learn how your comment data is processed.