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 ma*ssss* alah.. 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 prosedur*nya, 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) <[email protected]> > 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 <[email protected]> > > 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.. >> > >
