Hot Fox: RE: ]] XL-mania [[ Data Aktifitas

terça-feira, 9 de fevereiro de 2010

RE: ]] XL-mania [[ Data Aktifitas

Wah belum kesiangan banget…..karena saya tidak menerima email dari Mr. Kid (ga tau kenapa??)

Terima kasih banyak, karena jawaban ini sangat membantu saya.

Fajar Sidik Gumay | PT. Huawei Tech Investment | 08119001195 | fajarsg@huawei.com

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of siti Vi
Sent: Monday, February 08, 2010 11:11 AM
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ Data Aktifitas

maaf ya tulisan ini sudah terlalu kesiangan; mungkin bagi pak Fajar S Gumai
kasus ini sudah selesai.
siti ngeyel tetap mengirim tanggapan karena ada teman yg masih menanyakan
"prakateknya bgmana"? (prakterk atas saran dari mas Kid)

Dlm workbook "contoh.xls" kiriman pak fajar; ada tabel kiri; ada tabel kanan
Tabel KIRI, oleh pak Fajar sudah dikatakan sebagai database; ya boleh saja.
Tetapi menurut pendapatku tabel tsb baru "dikatakan sbg database"; tetapi
belum berstruktur database 'beneran'.
Dia (Tabel KIRI) itu malah dapat dikatakan sebngai REPORT (yaitu tabel yg
disusun berdasarkan database, untuk keperluan tertentu)

Keinginan menyusun REPORT LAIN (yaitu seperti Tabel KANAN) teryata
sulit dilakukan kalau berdasarkan Tabel KIRI (Database-nya pak Fajar),
Kesulitan ini pun merupakan salah satu bukti bahwa tabel KIRI = strukturnya
belum berupa struktur tabel database.
(karena 'tabel database beneran' PASTI DAPAT DENGAN MUDAH dapat dibuat
tabel report dlm bentuk bagaimana pun): bahkan dengan pilihan berbagai cara
antara lain: dengan formula, dengan makro, dengan sql, dengan pivot tabel )

Jadi Jawaban kpd teman yg menanyakan "bgmana prakteknya"...

(1).

Kita konversi dulu Tabel KIRI tsb menjadi tabel dengan struktur tabel database;
semula (aslinya) seperti ini:

Nama	Level			Senin	Selasa	Rabu	Kamis
Simon	L1			ABC123
Heru	L1			ABC123
Anton	L1			ABC123
Fajri	L1			ABC123
Simon		L2		ABC1234
Heru		L2		ABC1234
Anton		L2		ABC1234
Fajri		L2		ABC1234
Simon		L2			ABCD12
Heru		L2			ABCD12
Fajri		L2			ABCD12
Simon			L3			AB1234
Heru			L3			AB1234
Anton			L3			AB1234
Simon		L2					EFG123
Heru		L2					EFG123
Anton		L2					EFG123
Fajri		L2					EFG123

menjadi seperti ini (caranya dengan: "klik tombol" saja lah biar gampang)

Nama	Level	Hari	dValue
Simon	L1	Senin	ABC123
Heru	L1	Senin	ABC123
Anton	L1	Senin	ABC123
Fajri	L1	Senin	ABC123
Simon	L2	Senin	ABC1234
Heru	L2	Senin	ABC1234
Anton	L2	Senin	ABC1234
Fajri	L2	Senin	ABC1234
Simon	L2	Selasa	ABCD12
Heru	L2	Selasa	ABCD12
Fajri	L2	Selasa	ABCD12
Simon	L3	Rabu	AB1234
Heru	L3	Rabu	AB1234
Anton	L3	Rabu	AB1234
Simon	L2	Kamis	EFG123
Heru	L2	Kamis	EFG123
Anton	L2	Kamis	EFG123
Fajri	L2	Kamis	EFG123

(2)

Jika anda sudah punya tabel berstruktur "database beneran"
maka membuat report dlm bentuk macem-macem tidak terlau sulit lagi
Tabel KANAN yg diinginkan pak Fajar itu, dapat di buat hanya dengan
SATU FORMULA Universal spt ini

=IF(SUMPRODUCT(($L$4:$L$21=$R5)*($M$4:$M$21=S$4)*($N$4:$N$21=S$3))=0,"",
OFFSET($O$3,
SUMPRODUCT(($L$4:$L$21=$R5)*($M$4:$M$21=S$4)*($N$4:$N$21=S$3)*(ROW($1:$18))),0))

(3)
'-------code vba agar tombol mau bekerja seperti diceritakan di atas--------

Private Sub CommandButton1_Click()
   '---RepToTdb---------------------------
   ' siti Vi / 8 feb 2010; for milis XL-mania
   '-----------------------------------------
   Dim Rep As Range, Tdb As Range, HariBar As Range
   Dim n As Long, r As Long, c As Integer

   Set Rep = Cells(3, 2).CurrentRegion.Offset(1, 0)
   Set Tdb = Rep.Offset(0, Rep.Columns.Count + 2)
   Tdb(0, 1) = "Nama": Tdb(0, 2) = "Level":
   Tdb(0, 3) = "Hari": Tdb(0, 4) = "dValue"
   Set HariBar = Rep(0, 5).Resize(1, Rep.Columns.Count - 4)
   Application.Calculation = xlCalculationManual
   For r = 1 To Rep.Rows.Count - 1
      For c = 1 To Rep.Columns.Count - 4
         If Len(Rep(r, 4 + c)) > 0 Then
            n = n + 1
            Tdb(n, 1) = Rep(r, 1)
            Tdb(n, 2) = Rep(r, 2) & Rep(r, 3) & Rep(r, 4)
            Tdb(n, 3) = HariBar(c)
            Tdb(n, 4) = Rep(r, 4 + c)
         End If
      Next c
   Next r
   Application.Calculation = xlCalculationManual
   Me.Calculate
End Sub

----- Original Message -----
From: Mr. Kid
To: XL-mania@yahoogroups.com
Sent: Wednesday, January 27, 2010 9:33 PM
Subject: Re: ]] XL-mania [[ Data Aktifitas

Dear Pak Fajar,
Susun tabel dengan header : Nama, Level, Tanggal
Format as table atau buat named range dinamis untuk tabel normal tersebut
Summary bisa dengan pivot tables atau formula-formula summary
Regards.
Kid.

2010/1/27 Fajar S Gumay <fajarsg@huawei.com>
Dear Para Master XL,
Mohon bantuannya dengan file terlampir.
Saya mempunyai database aktifitas per orang per hari.

Inginnya sih data tersebut dapat lebih disingkat sehingga lebih mudah

membaca aktivitas orang tersebut.

Masalahnya datanya sudah mencapai ribuan, kalau dipindahkan satu persatu

akan merepotkan dan membuang banyak waktu.
Sudah dicoba pakai vlookup dan index tapi ga bisa juga atau mungkin ada trik lainnya?
Mohon petunjuknya agar dapat otomatis mencari data2 tersebut.

Terima kasih sebelumnya.

Fajar Sidik Gumay | PT. Huawei Tech Investment | 08119001195 | fajarsg@huawei.com

__._,_.___

Reply to sender | Reply to group

Messages in this topic (8)

Recent Activity:

New Members 112

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :D :D :D                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living