Messages In This Digest (2 Messages)

1a.: Bls: [belajar-excel] Filter Range kemudian memasukkannya dalam ListB From: Harry

2.: Create fungsi di excel From: Tjahya Hartono

View All Topics | Create New Topic

Messages

1a.: Bls: [belajar-excel] Filter Range kemudian memasukkannya dalam ListB

Posted by: "Harry" hariansyahptk@yahoo.com hariansyahptk

Fri Sep 2, 2011 7:52 am (PDT)

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) <setiyowati.devi@gmail.com>
Kepada: belajar-excel@yahoogroups.com
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 <uud_mamuda@yahoo.com>
>
> 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.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2.: Create fungsi di excel

Posted by: "Tjahya Hartono" tjahyahartono@yahoo.co.id tjahyahartono

Fri Sep 2, 2011 10:26 am (PDT)

Dear master excel,

Saya sering melihat para master2 excel dsini membuat fungsi sendiri, untuk mengerjakan kasusnya, bisakah saya diajarkan bagaimana cara membuat fungsi sendiri di ex-cel.

terima kasih

tjahya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.