Hot Fox: Re: ]] XL-mania [[ Menjumlah WARNA

sexta-feira, 9 de outubro de 2009

Re: ]] XL-mania [[ Menjumlah WARNA

Sebetulnya masih gag jelas: WARNA TERTENTU mau dijumlah itu sebenarnya
bgmana persisnya? Apalah Barangkali yg dimaksud = menjumlah nilai dalam cells
yg mempunyai warna tertentu ??

Di Sheet excel; fungsi yang langsung mendeteksi WARNA = belum ada
jadi "harus" dibuat fungsi sendiri
("harus" ditulis dlam tanda kutip karena bertentangan dengan salah satu jurus
dlm kitab 50 jurus sakti"

(1) fungsi pertama SumKolor
BENAR BENAR MENJUMLAH value yg ada di tiap cell yg warnanya sesuai kriteria
penggunaannya di sheet:
=SumKolor($E8:$AG8,BD$7)

(2) fungsi kedua CountKolor
MENGHITUNG (Cacah / Count) banyaknya cell (bukan menjumlah)
penggunaannya di sheet
=CountKolor($E8:$AG8,BD$7)

'-----------------------------------
Function SumKolor(Rng As Range, KriteKolor As Range)
Dim KriteIdx As Long
Dim n As Long, x As Range, i
KriteIdx = KriteKolor.Interior.ColorIndex
For Each x In Rng
' menjumlah
If x.Interior.ColorIndex = KriteIdx Then i = i + x.Value
Next x
SumKolor = i
End Function

Function CountKolor(Rng As Range, KriteKolor As Range)
Dim KriteIdx As Long
Dim n As Long, x As Range, i
KriteIdx = KriteKolor.Interior.ColorIndex
For Each x In Rng
'mencacah / menghitung
If x.Interior.ColorIndex = KriteIdx Then i = i + 1
Next x
CountKolor = i
End Function

'catatan
'kasus ini sudah berulangkali muncul (dan mendapat solusi) di milis...

2009/10/8 nursay saefulloh <nursay.saefulloh@gmail.com>
>
> Selamat siang para XL_Mania...
> Adm saya punya problem tentang jumlahkan warna tertentu
> dari ABSEN setahun
> Keterangan ada dalam lampiran.....
> Terimaksaih sebelumnya

__._,_.___

Messages in this topic (2) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Tolong cariin momods kerjaan jadi direktur dongggg... :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

Mom Power: Discover the community of moms doing more for their families, for the world and for each other