Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok kedua jenjang motor sampai selesai.
Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang. Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1 Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3 combobox di blok jenjang 2. Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok pengaturan jenjang. Dalam script tetap disusun beriringan 'blok jenjang 1 'disini sampai selesai 'blok jenjang 2 'disini sampai selesai Wassalam, Kid. 2013/5/10 lapendosol opik <[email protected]> > ** > > > Trimakasih mas Kid tanggapannya > Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu > combobox kategori barang > Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si > kategori yg terpilih > Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat > initialize ada 2 combobox yg akan terisi pada saat userform dibuka= > combobox kategori barang (cmbKategoriJ) dan combobox jenis motor > (cmbJenisMotor) > combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ > combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor > dst gitu mas > Mohon petunjuknya lagi > Trimakasih sebelumnya > Wassalam, > > ------------------------------ > *From:* Mr. Kid <[email protected]> > *To:* BeExcel <[email protected]> > *Sent:* Friday, May 10, 2013 11:23 PM > *Subject:* Re: [belajar-excel] Initialize combobox ganda > > > Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka > combobox2 menampilkan item anggotanya si anu saja. > > Coba file terlampir pada sheet 'daftar_item_berjenjang' > Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang. > > Wassalam, > Kid. > > > > 2013/5/10 lapendosol opik <[email protected]> > > ** > > Dear Master-master Excel, > Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan > masih saja salah > Private Sub UserForm_Initialize() > dtpJual.Value = Now > ' mengenali tabel referensi > Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0) > Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0) > tRows = Tbl.Rows.Count - 1 > trows2 = Tbl2.Rows.Count - 1 > ' mengisi list pada KomboKategori > sUniq = "|" > sUniq2 = "ll" > For i = 1 To tRows > ' mengambil UniqValues -nya, dgn cara primitif.. > If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then > sUniq = sUniq & Tbl(i, 2) & "|" > cmbKategoriJ.AddItem Tbl(i, 2) > End If > Next i > For ii = 1 To trows2 > If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then > sUniq2 = sUniq2 & Tbl2(i, 2) & "ll" > cmbJenisMotor.AddItem Tbl2(i, 2) > End If > Next ii > txtPelanggan.SetFocus > End Sub > > Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori > barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi > otomatis sesuai tabel referensinya > Trimakasih sebelumnya > > Wassalam, > > > > > >
