Re: ]] XL-mania [[ Count cell berdasarkan warna font

 

kemarin siang ada yg protes via japri

"lha wong mencari data dengan kriteria warna FONT.. kok nama UDF nya  BackKolorCount !!",
" yok opo rek.... kayak jaka sembung naik odong-odong !"

sudah langsung dibalas:
"lha wong pemilik kasus-nya saja ndak ribut; kok sampeyan yang malah ribut toh lur, .."
"tinggal mengganti nama Fungsi kan tidak bikin cappek.."
"ikut milis gratis kok mintaknya yang bermutu... he he..."
(ini senada dengan gerutu tukang becak di surabaya kepada penumpangnya :
  " bayarannya cuma duaribu kok mintaknya 'selamat'?  kumaha.. ta-iye...!" )

btw, protes ini baik, karena nama fungsi yg tepat akan lebih mudah diingat

ini juga sekaligus menegaskan bahwa NAMA PROSEDUR Fungsi maupun Sub
dalam VBA Excel walaupun ada aturannya (karakter yg boleh dipakai dan jumlah karakter)
tetap boleh bebas.
Fungsi 'MencariLUAS' jika diberi NAMA  'MencariDuit' ndak ada massssalah..

Function MencariDuit(Argument)
'--- ketak-ketik-ketak-ketik...
'--- plikiwik...!
End Function

..toh tidak akan merubah kerjaan di dalam fungsi-nya, artinya tidak ada hubungan antara
ARTI nama dengan pekerjaan yg terjadi di dalam prosedurnya, kecuali kita sendiri yang
meng-hubung-hubungkan..

UDF yg diberikan pun sebenarnya tidak terlalu tepat,
karena si pemilik kasus ingin mencari BANYAKNYA "Huruf P" dengan warna font tertentu,
(berkemungkinan di dalam 1 cell terdapat beberapa "P" dengan berbagai warna font)
sedangkan UDF malah mencari BANYAKNYA CELL yg data teks-nya ber-Font dgn warna tertentu.!!

Jadi memang betul kalau dikatakan = "JakaSembung naik "kendondong"...!!"

'gitu kan ya...
(waduh OOT ya....!! kan ada kata-kata "Excel"-nya..)

2010/6/23 stdev(i) <setiyowati.devi@gmail.com>

gampang..
rumusnya  begini  
=BackKolorCount($B$3:$I$21;K3)

B3:I121 adalah range yg berisi data string: yg text / Fontnya
di format warna warni

K3 adalah cell berisi text yg warna-fontnya-nya dijadikan kriteria

Untuk jelasnya lihar lampiran.

Fungsi  BackKolorCount tsb tidak akan berlaku di workbook anda
jika anda ogah menulis function prosedur spt di bawah ini di module standar
di workbook anda

Function BackKolorCount(Rng As Range, Krite As Range) As Long
Dim x As Range, i As Long
For Each x In Rng
If x.Font.ColorIndex = Krite.Font.ColorIndex Then i = i + 1
Next
BackKolorCount = i
End Function

2010/6/21 cyl.tandy <cyl.tandy@yahoo.co.id>

suhu-suhu excel, tolong dong...
bagaimana cara count cell yang tidak kosong berdasarkan warna hurufnya..?
misalnya, ada huruf P yang dibedakan dengan warna merah dan hitam. 

Saya ingin menghitung berapa banyak huruf P yang warna merah..

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (5)

Recent Activity:

• New Members 134

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| jangan lupa sebelum bertanya, cek dulu www.XL-mania.com dan       |
| http://tech.groups.yahoo.com/group/XL-mania/messages              |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___