RE: [belajar-excel] ctv_ListBox Multi_Kolom.xls

[Ridwan Rahman]

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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On 
Behalf Of STDEV(i)
Sent: 25 Juli 2011 13:51
To: belajar-excel@yahoogroups.com
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 <ridwan7...@gmail.com>
>
> 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>>