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

quinta-feira, 8 de outubro de 2009

Re: ]] XL-mania [[ Menjumlah WARNA

Om om om.... ini saya bikinin UDF....... apa itu UDF (User Define Function)

"Baru tau ane kalo di Excel Fungsi yang dibikin pake VB SKrip bisa di pake di Ceelllsss nya Excel

................. " kodingan untuk itung warna kayak gini nih.... oom :

Function TotalWarna(Warna As Range, TargetRange As Range)

    Dim vRange As Range

    Dim vKol As Long

    Dim vResult

    vKol = Warna.Interior.ColorIndex
        For Each vRange In TargetRange
            If vRange.Interior.ColorIndex = vKol Then
                vResult = 1 + vResult
            End If
        Next vRange

    TotalWarna = vResult

End Function

Cara Pemakaian UDF
- Pada Cells Excel yang ingin ditampilin hasil jumlahan warnaya teken : Shift + F3
- Pada pilihan KomboBoks or Select a Category Pilih : User Defined
- Terussss.......
Pada ....
TeksBoks Warna : Pilih Warna yang ingin di jumlahkan.
TeksBoks Target Range : Plot range yang ingin dijumlahkan
Selanjutnya....

" Terserah Anda.......Maklum baru belajar mengenai UDF oom jadi radak kurang paham.....selanjtunya diapaain lagi..........

"

Contoh Filenya terlampir oom...

- ^ Puthut Wibowo ^ -

--- On Thu, 10/8/09, nursay saefulloh <nursay.saefulloh@gmail.com> wrote:

From: nursay saefulloh <nursay.saefulloh@gmail.com>
Subject: ]] XL-mania [[ Menjumlah WARNA
To: "XL-mania" <xl-mania@yahoogroups.com>
Date: Thursday, October 8, 2009, 1:22 PM

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 (3) 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