Renkleri saymak

[mustafa_k78]

Tablodaki veya seçili hücrelerdeki renklerdeki sayıları toplama yapılabilirmi?
örneğin a1-b7-c9-d9 hücrelerinde turuncu olursa topla a5 e yaz
veya sarı da olursa a6 yaz

 

[hoguz2]

merhaba ,

1) asagidaki fonksiyonu bir module kaydedin.

Function Renktopla(Aralık As Range, Renkİndeksi As Integer, _
    Optional OfText As Boolean = False) As Double

Dim rng As Range
Dim OK As Boolean

Application.Volatile True
For Each rng In Aralık.Cells
    If OfText = True Then
        OK = (rng.Font.ColorIndex = Renkİndeksi)
    Else
        OK = (rng.Interior.ColorIndex = Renkİndeksi)
    End If
    If OK And IsNumeric(rng.Value) Then
        Renktopla = Renktopla + rng.Value
    End If
Next rng
End Function

2 ) makrolari calistirarak dosyanizi acin

=Renktopla($A$1:$A$15;6;0) bu formulu hucreye yazdiginizda a1 a15 arasindaki hucrelerden sari zeminli olanlarin toplamini alirsiniz 6 sanirinin indexsidir. diger index numaralari icin asagidaki linke bakabilirsiniz...

http://dmcritchie.mvps.org/excel/colors.htm

fonksiyonu ihtiyaciniza gore if li bir formulle de kullanabilirsiniz

 

[mustafa_k78]

örnek uygulama gönderebilirmisiniz

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

Harici Link (Silinebilir) ; http://s8.dosya.tc/server5/0epw5u/RENGE_GORE_TOPLA.rar.html

Renk kodlarını öğrenebilmeniz için dosyanın içinde RENK_KODU adında bir makro var. Aktif hücre üzerindeyken bu kodu çalıştırıp aktif hücrenin renk kodunu öğrenebilirsiniz.