Kadang... UDF tidak untuk di pelajari, tetapi *untuk dipakai langsung.* tentu saja setelah di evaluasi hasilnya sesuai dengan kehendak...
Pemakaian UDF itu, seperti kita tiap hari memakai fungsi SUM, INDEX, VLOOKUP tanpa harus tahu bgmana cara Oom Bill Gentholett membuatnya, ya 'kan? Nanti sambil jalan, pelan pelan VBA bisa dipelajari.. Tetapi itu semua *kalau* pak Suhendra memang ingin menggunakan *WARNA Cell sebagai Kriteria.* Berhubung di excel belum ada fungsi mendeteksi warna cell maka kita harus "mbikin UDF sendiri" (atau dengan memanfaatkan fungsi MakroExcel4, yg juga termasuk makro hanya lain cara penggunaannya (lebih terbatas) Seandainya, Seandainya lho ya... * bapak tahu / mau menjelaskan* *mengapa suatu cell bapak beri warna kuning ?* (saya fikir peberian warna itu bukan asal beri saja, tentu ada alasannya bukan) Nah *alasan/syarat pemberian warna *itu dapat kita bantu menuangkan dlm bentuk* formula ! *dan dengan demikian: UDF tidak perlu lagi dipakai: *Hello Formula, Goodbay UDF* coba perhatikan tadi ada kata kata: "kalau memang anda ingin mengKOLOR-i beberapa cell *dengan * *aturan yg kita pun tidak perlu tahu*. (maka)....." by busway, Kita masih menunggu barangkali ada penjelasan dari Pak Suhendro alasan / syarat pemberian warna kuning pada cell spt dlm contoh ~siti 2011/10/17 Suhendra St <[email protected]> > ** > terima kasih sebelumnya atas pencerahannya > tapi walahh... Bu siti, bisa pake formula saja tidak... > karena sya beloman begitu mudeng n familiar sama si mas "VBA" nya > > B'regards > > ----- Pesan yang Diteruskan ----- > Dari: STDEV(i) <[email protected]> > Kepada: [email protected] > Dikirim: Senin, 17 Oktober 2011 16:09 > Judul: Re: [belajar-excel] Re-Bgaimana cara menghitung rata2 > conditional_lanjutan (terutama utk bu siti dan Mr. Kid) > > kalau memang anda ingin mengKOLOR-i beberapa cell dengan aturan yg > kita pun tidak perlu tahu; maka kita dapat merata-rata bilangan yg ada > di cell berKOLOR (dlm suatu range tertentu) > Sesuai yg saya tangkap > walaupun diberi KOLOR tetapi yg akan di ambil reratanya adalah > ** Cell berisi nilai bilangan POSITIP (walaupun diberi warna kalau negatip > dicuekin) > ** Cell yg tidak blank > ** cell yg tidak berisi data Text > ** Cell yg berKOLOR tertentu (sesuai kriteria) > pada umusnya kita perlu kriteria (yaitu sebuah cell dengan warna tertentu) > misalnya > =AvgKolorPositip(A49:A66,O55) > dimana O55 adalah cell yg ediberi warna backgroun kuning seperti kuningnya > cell > yg ada di A49:A66 > Warna tidak harus kuning asal konsisten > -ctv- > listing udfnya kira kira spt ini > Function AvgKolorPositip(Rng As Range, KriteriaWarna As Range) As Double > Dim Kriteria As Long, x As Range, n As Long, j As Double > Kriteria = KriteriaWarna.Interior.ColorIndex > For Each x In Rng > If x.Interior.ColorIndex = Kriteria Then > If IsNumeric(x.Value) Then > If x.Value > 0 Then > n = n + 1 > j = j + x.Value > End If > End If > End If > Next > AvgKolorPositip = j / n > End Function > > 2011/10/17 Suhendra St <[email protected]> > > sebelumnya terima kasih jawabanya, terutama utk Bu siti n pak Mr. Kid > tetapi jawaban yang dinginkan belum sesuai... > krn yg dinginkan, yaitu mencari nilai rata2 yg diinginkan (atau berada pd > cell tertentu) ketika nilai yg dinginkan berada di antra nilai2 yg ada > seandainya dari nilai yg ditandai, [kosong (blank) ,"-" atau "0"] maka > jumlahnya otomatis dibagi jumlah nilai yg ada sesuai nilai rata2 yg > dinginkan (berada pd cell tertentu tsb) > > berikut cth masalh nya terlampir > terima kasih >
