Coba deh dilihat lagi pada file vba_contoh_combobox.xlsm Apa beda tabel di kolom A dan kolom lainnya ? Dalam 1 sheet tersebut ada 3 tabel, tabel dikolom A hanya berisi unique item dari kolom pertama Di kolom lain (ada jarak kolom kosong) ada tebel berisi 2 kolom yang unique record berdasar kolom pertama dan kedua Begitu seterusnya.
Kemudian bandingkan dengan data yang telah Anda susun. Wassalam, Kid. 2013/5/11 lapendosol opik <[email protected]> > ** > > > Tabel susah sesuai kebutuhan Mas, susunan script juga sudah beriringan > (menurut saya) > Tapi masih salah juga > Private Sub UserForm_Initialize() > dtpJual.Value = Now > ' mengenali tabel referensi > Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0) > tRows = Tbl.Rows.Count - 1 > 'mengisi list pada KomboKategori > sUniq = "|" > > 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 > > Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0) > tRows2 = Tbl2.Rows.Count - 1 > sUniq2 = "||" > For ii = 1 To tRows2 > If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||") = 0 Then > sUniq2 = sUniq2 & Tbl2(ii, 2) & "||" > cmbJenisMotor.AddItem Tbl2(ii, 2) > > End If > Next ii > txtPelanggan.SetFocus > End Sub > > Lebih jelasnya saya lampirkan filenya > Trimakasih sebelumnya > Wassalam, > > ------------------------------ > *From:* Mr. Kid <[email protected]> > *To:* BeExcel <[email protected]> > *Sent:* Saturday, May 11, 2013 12:05 AM > > *Subject:* Re: [belajar-excel] Initialize combobox ganda > > > 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, > > > > > > > > >
