Re: ]] XL-mania [[ Jumlah Berdasar WARNA

 



so... sudah dibuktikan oleh pak anton bahwa menghitung bersyarat (warna) terhadap

drawing object itu = BISA, walaupun tidak sesederhana menghitung data yg tertulis

dlm cell (juga bersyarat warna).

terima kasih pak anton...

 

jika tujuannya untuk melatih pencarian algoritma dan peng-implementasian coding;

ini adalah hal yg menyenangkan dan dianjurkan;

tetapi bila hal ini akan dijadikan dasar (oleh pak m luthfi) untuk mengembangkan project

nya lebih lanjut,  ada beberapa alasan bagi siti untuk tidak menyarankan, yaitu

 

1.

drawing object dan cell tidak punya hubungan yg fixed seperti fixed-nya hubungan

antara cell dan data yg tertulis didalamnya.

si object memang punya properti (topleftcornercell dan rightbottomcornercell) untuk

mengetahui dia berada di 'atas' cell apa, tetapi cell tidak tahu / tidak punya properti

/ method untuk mengetahui : object apa yg ada di 'atasnya'

 

2.

drawing object yg sama (yg itu juga) dapat dengan mudah di/ter-geser ke tempat lain

dengan / tanpa disadari oleh user.

tidak demikian dengan DATA yg tertulis di cell.  data hanya dapat diisikan atau dihapus

dari cell.  data (itu sendiri) tidak dapat di"GESER" dari tempatnya semula

 

3.

dlm satu cell dapat di isikan 1 data;

tetapi dalam satu cell dengan/tanpa sengaja dapat digambar ribuan drawing object

(di atasnya), walaupun mungkin hanya tampak satu atau beberapa saja, karena object lain

bisa diletakkan berimpit dgn object lain.

sebagai ilustrasi : lihat sheet1 dan bandingkan dengan sheet 2 pada workbook terlampir...

 

4.

prosesnya tidak sederhana, tidak sesederhana jika kita mengganti drawing object tsb

dengan DATA dlm cell.

 

rasio tingkat kesulitan / kerumitannya kira kira  104 : 7, dapat dilihat pada

 

(a) makro (sub procedur) kiriman pak anton

(menghitung drawing object - dlm range tertentu - berdasarkan kriteria object lain

dilihat dari warna objectnya)

-vs-

(b) makro (function procedure) posting sebelum pak anton

(menghitung data - dlm range tertentu - berdasarkan kriteria data lain dilihat dari

warna FONT nya)

 

makro a = mengandung 26 baris code vba

didalamnya terdapat 2 looping, masing masing bertingkat /nested  2 (loop in loop)

 

makro b = mengandung 7 baris code vba

di dalamnya hanya ada 1 looping tidak bertingkat.

 

(.. hayyah.. itu kan hanya pendapat siti saja.. dan belum tentu benar...

 pendapat lain dgn argumentasi lain tentu ada,  syah dan mungkin benar...).

 

---

----- Original Message -----

From: anton suryadi

To: XL-mania@yahoogroups.com

Sent: Friday, March 26, 2010 1:27 PM

Subject: Re: ]] XL-mania [[ Jumlah Berdasar WARNA

Biar tambah pusing, eh tambah tertarik dengan macro
Coba,
Sub KolorSape()
'anton suryadi 26/Mar/2010
'Menghitung jumlah warna pada shapes
Application.ScreenUpdating = False
Dim p As Shape, q As Shape, i As Integer, j As Integer, a As Range, b As Range, x
Cells([M2], [M6] + 1).Resize([M3] - [M2] + 1).ClearContents
For i = [M2] To [M3]
   For Each p In Shapes
       If Not Application.Intersect(p.TopLeftCell, Cells(i, [M6])) Is Nothing Then
            x = p.Fill.ForeColor.SchemeColor
            Cells(i, [M6] + 2) = x
        End If
    Next p
Next
For j = [M2] To [M3]
    For Each q In Shapes
        Set a = Cells([J2], [J6])
        Set b = Cells([J3], [J6])
        If Not Application.Intersect(q.TopLeftCell, Range(a, b)) Is Nothing Then
        If q.Fill.ForeColor.SchemeColor = Cells(j, [M6] + 2) Then
            Cells(j, [M6] + 1) = Cells(j, [M6] + 1) + 1
        End If
       End If
    Next q
Next
Cells([M2], [M6] + 2).Resize([M3]).ClearContents
Application.ScreenUpdating = True
End Sub

File terlampir
>semoga bermanfaat

---

From: siti Vi <setiyowati.devi@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Thu, March 25, 2010 9:09:15 AM
Subject: Re: ]] XL-mania [[ Jumlah Berdasar WARNA

kalau yang diberi warna itu CELL nya (baik Font-nya atau BackGround /Interior-nya)

maka cells tsb dapat dihitung (bukan ditotal) berdasarkan warnanya .

( yg merah ada berapa bijik dst.. 'gitu loch...)

 

atetapi kalau anda membuat Drawing-Object SHAPE 'Oval' dan harus dihitung

(berdasarkan warnanya juga), saya kira lebih sulit, tapi bisa,  tidak akan dijawab dulu..

 

Gambar SHAPE Oval itu bisa diganti dengan Huruf "n" dlm Font Webdings , dgn fontsize 16.

Nah karena berupa DATA (huruf n) bukan berupa Object gambar, maka dihitungnya

lebih mudah misal dengan fungsi  (udf)

=CountFontKolor( $B$5:$B$33, F5)

aturan penulisan (sintaks nya, seperti COUNTIF yah ?..)

 

---

----- Original Message -----
From: M. Luthfi
To: XL-mania@yahoogroup s.com
Sent: Wednesday, March 24, 2010 10:45 AM
Subject: ]] XL-mania [[ Jumlah Berdasar WARNA

 

Dear Rekan rekan XL-Mania yang baik,
Mau minta bantuan nih
Bagaimana cara menjumlah berdasarkan warna?
Lebih jelas dapat dilihat pada lampiran
Terimakasih sebelumnya
Regards
M.Luthfi

 

__._,_.___

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

Messages in this topic (8)

Recent Activity:

• New Members 78

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods pecas ndaheeee... :( :( :(                                 | 
| 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

.

__,_._,___