Terima kasih Mr. Kid, pa Zainul Ulum, serta bu Siti Vi atas bantuan dan
solusinya. Sementara saya menggunakan solusid dari Mr. Kid dan pa Zainul Ulum
karena sudah memenuhi kebutuhan. Solusi dari bu Siti Vi akan saya pelajari dulu
dan mudah-mudahan berguna dilain waktu.
Mukromin
----- Original Message -----
From: siti Vi
To: belajar-excel@yahoogroups.com
Sent: 17 February, 2010 18:18
Subject: Re: [belajar-excel] Rekapitulasi data dengan pivot table atau formula
kalau ndak usah pakai mikir, tinggal pencet tombol,
& setelah hasil tertulis, tidak membebani worksheet karena ndak ada
rumus2nya..
pakai ini :
(dijamin hasil tidak salah / hasil salah tidak dijamin )
Sub Rrrrrekap()
' siti Vi / feb 17, 2010
' for milis belajar-excel
'---------------------------------
Dim tbAssal As Range, tbHasil As Range
Dim tbHeig As Long, tbWidt As Integer
Dim CriteList, Descripti, AkumBl(1 To 12), ttl
Dim i As Long, n As Long, r As Long, c As Integer
Set tbAssal = Sheet1.Cells(4, "B").CurrentRegion
tbHeig = tbAssal.Rows.Count
tbWidt = tbAssal.Columns.Count
Set tbHasil = Sheet2.Cells(4, 2)
tbAssal.Resize(1, tbWidt).Copy tbHasil(0, 1)
CriteList = LOUV(tbAssal.Offset(1, 0).Resize(tbHeig - 1, 1))
Descripti = Ctv(CriteList, tbAssal.Offset(1, 0).Resize(tbHeig - 1, 1))
For i = LBound(CriteList) To UBound(CriteList)
tbHasil(i, 1) = CriteList(i)
tbHasil(i, 2) = Descripti(i)
For r = 2 To tbHeig
If tbAssal(r, 1) = CriteList(i) Then
For c = 1 To UBound(AkumBl)
AkumBl(c) = AkumBl(c) + tbAssal(r, 2 + c)
Next c
End If
Next r
For c = 1 To UBound(AkumBl)
tbHasil(i, 2 + c) = AkumBl(c)
ttl = ttl + AkumBl(c)
AkumBl(c) = 0
Next c
tbHasil(i, 2 + c) = ttl
ttl = 0
Next i
tbHasil.CurrentRegion.EntireColumn.AutoFit
tbhasil.Parent.Activate
End Sub
------------------------------------------------------------------------------
----- Original Message -----
From: mukromin
To: belajar-excel@yahoogroups.com
Sent: Wednesday, February 17, 2010 3:40 PM
Subject: [belajar-excel] Rekapitulasi data dengan pivot table atau formula
Dear pakar excel,
Mohon pencerahan tentang pembuatan rekap data menggunakan pivot table. Saya
sudah berhasil membuat pivot table tetapi belum sesuai dengan yang diharapakan.
Mudah-mudahan ada solusi yang tepat dari para pakar disini. Solusi
penggunaan formula juga tidak masalah selama tidak membuat kinerja excel
menjadi lambat, karena data yang diolah sangat banyak. Untuk memperjelas
masalah disertakan juga contoh filenya. Terima kasih atas bantuannya.
Mukromin
