Bagaimana dengan formula filtering ? User hanya input seperti di sebuah combobox di user form (tapi di sebuah cell worksheet), kemudian data tampil sesuai pilihan user.
Kid. 2011/7/25 Ridwan Rahman <[email protected]> > ** > > > Saya kira bukan Cuma SELERA, Mr.Kid. Kita orang yg terbiasa lihat data > banyak mungkin oke-2 aja, tapi bagi user clerical, biasanya rada pusing liat > data banyak, lum lagi di kasih fitur filter, banyak yg bilang mumet. > (Menurut saya lho mr.kid). Jadi saya pikir lebih aman, kalau dibatasi > tampilan data banyak yg seram-seram itu.**** > > ** ** > > Regards**** > > RidwanRahman**** > > ** ** > > *From:* [email protected] [mailto: > [email protected]] *On Behalf Of *Mr. Kid > *Sent:* 25 Juli 2011 15:18 > > *To:* [email protected] > *Subject:* Re: [belajar-excel] ctv_ListBox Multi_Kolom.xls**** > > ** ** > > **** > > Apakah harus pakai userform ? > Bukankah sheet dengan proteksi sheet sudah bisa membantu ? > Oh mungkin selera saja. ;-) > > Kid.**** > > 2011/7/25 Ridwan Rahman <[email protected]>**** > > **** > > He…he…, kurang heboh y mbak siti, sebenarnya datanya lebih heboh > (Buaaaanyaaak)**** > > Idenya pingin buat tampilan ke user biar data asli gak di utak-atik**** > > Cuma…, Maaf mbak siti, kok di kompi ku gak jalan y?**** > > Apa karna format tgl-nya beda, (di data 12/01/2011, di userform nya > 1/12/2011)**** > > Kompiku format date-nya Indonesia**** > > Salam**** > > RidwanRahman**** > > **** > > *From:* [email protected] [mailto: > [email protected]] *On Behalf Of *STDEV(i) > *Sent:* 25 Juli 2011 13:51 > *To:* [email protected] > *Subject:* Re: [belajar-excel] ctv_ListBox Multi_Kolom.xls**** > > **** > > **** > > Private Sub UserForm_Initialize()**** > > ' siti Vi // 21 Juli 2011**** > > ' rev2: 25 jul 2011**** > > '----------------------------**** > > Dim Cabang As Range, UniqCab, UniqTgl, UniqPjb, n As Long**** > > Set Tbl = Sheets("Sheet1").Cells(4, 3).CurrentRegion**** > > Set Cabang = Tbl.Offset(2, 2).Resize(Tbl.Rows.Count - 2, 1)**** > > **** > > UniqCab = LOUV(Cabang)**** > > UniqTgl = LOUV(Cabang.Offset(0, -1))**** > > UniqPjb = LOUV(Cabang.Offset(0, 1))**** > > ComboBox1.Clear: ComboBox2.Clear: ComboBox3.Clear**** > > **** > > For n = LBound(UniqCab) To UBound(UniqCab)**** > > ComboBox1.AddItem UniqCab(n)**** > > Next n**** > > **** > > For n = LBound(UniqTgl) To UBound(UniqTgl)**** > > ComboBox2.AddItem UniqTgl(n)**** > > Next n**** > > **** > > For n = LBound(UniqPjb) To UBound(UniqPjb)**** > > ComboBox3.AddItem UniqPjb(n)**** > > Next n**** > > **** > > End Sub**** > > **** > > **** > > '----part code mengisi listbox ---------**** > > ' items dlm listbox**** > > For r = 3 To Tbl.Rows.Count**** > > If ComboBox1.ListIndex > -1 Then**** > > If Tbl(r, 2) = CStr(ComboBox2) Then**** > > If Tbl(r, 3) = ComboBox1 Then**** > > If Tbl(r, 4) = ComboBox3 Then**** > > n = n + 1**** > > For c = 1 To Tbl.Columns.Count**** > > .AddItem: .List(n, c - 1) = Tbl(r, c)**** > > Next c**** > > End If**** > > End If**** > > End If**** > > End If**** > > Next r**** > > '---------------------------------**** > > **** > > > 2011/7/25 Ridwan Rahman <[email protected]> > > > > Kapan lalu telah dibahas oleh mbak ctv tentang listbox multi kolom dari > satu pilihan combo box. > > Mohon pencerahannya, gimana listbox multi kolom tersebut didapat dari > multi combo box,… > > Terima kasih sebelumnya. > > Salam > > RidwanRahman**** > > **** > > ** ** > > **** > > >
