Private Sub Semprul_Sum_Bersyarat() Dim TabRef As Range, Items Dim i As Integer, Totaaaaaal As Long, r As Long
Set TabRef = Range("B6").CurrentRegion
Items = Array("MAKANAN", "MINUMAN")
For i = 0 To UBound(Items)
Totaaaaaal = 0
For r = 2 To TabRef.Rows.Count
' inilah makro filternya
' sambil mengakumulasi nilai kolom3
If TabRef(r, 1).Value = Items(i) Then
Totaaaaaal * = * *Totaaaaaal + TabRef(r, 3).Value*
End If
Next r
Range("E18").Offset(i, 0) = Items(i) ' kriteria dituliskan
Range("F18").Offset(i, 0) = Totaaaaaal ' SUM hasil Filter
dituliskan
Next i
End Sub
*Semprul..Ki!*
2012/3/13 Ipam <[email protected]>
> **
>
> Dear Milis,
> Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field
> di auto filter misalnya dengan data sederhana sbb:
> JENIS NAMA HARGA
> MINUMAN JUS JERUK 10000
> MINUMAN JUS JAMBU 12000
> MINUMAN ES TEH 5000
> MAKANAN SOTO AYAM 10000
> MAKANAN BAKSO 10000
>
> Bila data tsb di auto filter bagaimana perintah dalam macro untuk
> menjumlahkan semua nilai total yang ada dalam kategori MINUMAN saja?
>
> Terima kasih sebelumnya
>
>
sum bersyarat sebenarnya adalah filter juga.xls
Description: MS-Excel spreadsheet
