Kepada teman-teman Master Excel,
Mohon dapat diinformasikan cara dan formulanya akan pertanyaan saya ini. Terutama pada pertanyaan No. 1 (Jika pada table / sheet dimaksud kita lindungi dengan password apakah UserForm tersebut masih bisa difungsikan…??? Jika bisa, bagaimana caranya…??? Mohon berkenan lampirannya) Terima kasih atas berkenan jawabannya. ________________________________ Dari: Harry <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Jumat, 2 September 2011 21:52 Judul: Bls: [belajar-excel] Filter Range kemudian memasukkannya dalam ListBox UserForm Dear Moderator (Pakar Excel), Saya tertarik dengan pembahasan tentang “ctv ListBox Multi Kolom” ini dan ingin tahu lebih lanjut mengenai hal-2 sbb: 1. Jika pada table / sheet dimaksud kita lindungi dengan password apakah UserForm tersebut masih bisa difungsikan…??? Jika bisa, bagaimana caranya…??? Mohon berkenan lampirannya. 2. Untuk contoh pada Form dimaksud mengacu pada “Cabang”. Bagaimana caranya jika kita ingin menggantinya dengan mangacu pada “Tanggal” atau “Nama Pejabat”…??? 3. Jika kita ingin membuatnya lebih spesifik, bisakah kita mengacu pada 2 kriteria, mis: “Cabang” dan “Nama Pejabat”…??? Terima kasih atas berkanan jawabannya. Regards, Harry ________________________________ Dari: STDEV(i) <[email protected]> Kepada: [email protected] Dikirim: Kamis, 21 Juli 2011 19:21 Judul: Re: [belajar-excel] Filter Range kemudian memasukkannya dalam ListBox UserForm biasa"nya" begini: ' (module userform) Dim Tbl As Range Private Sub UserForm_Initialize() ' siti Vi // 21 Juli 2011 '------------------------ Dim Cabang As Range, UniqCabang, n As Long Set Tbl = Sheets("Sheet1").Cells(4, 3).CurrentRegion Set Cabang = Tbl.Offset(2, 2).Resize(Tbl.Rows.Count - 2, 1) ' prosedur ini perlu fungsi Louv (list of UniqValues) UniqCabang = LOUV(Cabang) ComboBox1.Clear For n = LBound(UniqCabang) To UBound(UniqCabang) ComboBox1.AddItem UniqCabang(n) Next n End Sub Private Sub ComboBox1_Change() ' siti Vi / 21 Jul 2011 '---------------------- Dim HeadArray(), r As Long, n As Long, c As Integer ReDim HeadArray(0 To Tbl.Columns.Count - 1) With ListBox1 .ColumnCount = Tbl.Columns.Count .Clear ' Header dlm listbox For c = 0 To Tbl.Columns.Count - 1 HeadArray(c) = Tbl(2, c + 1) Next c .AddItem: .Column() = HeadArray n = 0: r = 0: c = 0 ' items dlm listbox For r = 3 To Tbl.Rows.Count If ComboBox1.ListIndex > -1 Then If Tbl(r, 3) = ComboBox1 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 Next r End With End Sub ' Note ' Pengisian ComboBox tidak secara Hardcoded (merujuk Alamat range yg dibuat manual ) ' tetapi dengan cara mengambil UniqValue pada Kolom Cabang ' cara ini hanya berguna bila tabelnya dinamis dan nama cabang bisa bertambah / berkurang ' Combobox akan berisi sesuai UniqList dari Kolom Cabang tsb) ' Untuk pekerjaan spt ini diperlukan UDF seperti Louv (tidak harus Louv, silakan dibuat sendiri ' yg sesuai selera) 2011/7/21 MAMUDA PONTIM <[email protected]> > > Para Pakar Excel yang budiman. > Kali ini saya minta pencerahan tentang cara memfilter range dan menampilkan > hasil filter di ListBox UserForm. Filter yang dimaksud berdasarkan value > ComboBox di UserForm juga. Dalam file yang saya sertakan, misalnya di Combo > Box saya Pilih Cabang Surabaya, maka pada ListBox akan ditampilkan hasil > filter range TabelKunjungan yang berasal dari Surabaya saja. > Terima kasih.
