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
<<image001.jpg>>
<<image002.jpg>>
