maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
misal kita punya 3 tabel
tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
headernya Nama_propinsi
tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
("NAMA_PROPINSI"] dan kolom B ["NAMA_KAB"]
tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
("NAMA_PROPINSI"] ,kolom B ["NAMA_KAB"] dan C ["NAMA_KEL"]
terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
cboProp dengan rowsource ke tabel Propinsi
cboKab dengan rowsource ke tabel kabupaten
cboKel dengan rowsource ke tabel Kelurahan
yang jadi kendala
misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
dengan cboProp yang dipilih
terus ketika kita memilih cboKel maka data yang ditampilkan adalah
sesuai dengan cboProp dan cboKab yang dipilih
Pada tanggal 24/07/12, [email protected]
<[email protected]> menulis:
> waaaahhhhh betul sekali........
> terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa bodohnya
> diriku
>
> Terima Kasih,
>
> mardi
>
> From: Kid Mr.
> Sent: Tuesday, July 24, 2012 3:00 AM
> To: [email protected]
> Subject: Re: [belajar-excel] belajar ComboBox
>
>
> Pak Mardi,
>
> Coba langkah berikut :
> 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2 kolom)
>>> ke sheet data
>>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
>>> record data)
>>> klik kanan pilih name a range
>>> tulis di Name :
> listCboNik
>>> tekan OK
>
> 2. Atur properties combobox :
>>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties yang
>>> muncul
>>> klik combobox
>>> atur nilai-nilai properties yang ada seperti nilai properties pada gambar
>>> berikut ini :
> (pilih, akan cara set properties 1 atau cara set properties 2 berikut ini)
> [cara set properties 1]
> [cara set properties 2]
>
>
> 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
>>> di VBE, double click ComboBox
>>> akan muncul blok prosedur event untuk object combobox pada event change
>>> (pilihan user di combobox berganti)
>>> ubah blok tersebut hingga tampak seperti berikut ini :
> Private Sub ComboBox1_Change()
> If ComboBox1.ListIndex <> -1 Then
> TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
> Else
> TextBox1.Text = vbNullString
> End If
> End Sub
>>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
>>> proeprties 2 di combobox-nya
>
> Wassalam,
> Kid.
>
>
>
> 2012/7/23 <[email protected]>
>
>
> Dear master Belajar-Excel,
> bagaimana source code ringkas untuk menulis di combobox dan otomatis
> tampilkan di textbox . File terlampir
> Terima kasih sebelumnya.
> salam,
>
> mardi
>
>
>
>
>
