renkli hücrelerin sayısını bulma

[ugurakin]

herkese merhaba,
excel sayfasının kolonunda bazı hücreler renkli. ( colorindex = 36 )
kaç adet hücrenin renkli olduğunu nasıl hesaplayabilirim ?
teşekkür ederim.

 

[Merhum İdris SERDAR]

Function Renklisay(InRange As Range, _
WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Long

Dim Rng As Range
Application.Volatile True

For Each Rng In InRange.Cells
If OfText = True Then
Renklisay = Renklisay - _
(Rng.Font.ColorIndex = WhatColorIndex)
Else
Renklisay = Renklisay - _
(Rng.Interior.ColorIndex = WhatColorIndex)
End If
Next Rng

End Function

Bu kodları bir modülün içine kopyalayın.

Renkli hücrelerin A1:A11aralığında olduğunu varsayalım.

=renklisay(A1:A11;36;FALSE) desen rengine göre
=renklisay(B1:B11;36;TRUE) karekter rengine göre