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, >
