Pages

Wednesday, February 23, 2011

Function To Count cells on the basis of font color

Suppose you want to count the cells on the font color like below




Here is the code----

Function count_colored_font_values(x As Range, su As Range)
Dim Y As Range
Dim sm1 As Long
For Each Y In su
If Y.Font.Color = x.Font.Color Then
sm1 = sm1 + 1
End If
Next Y
count_colored_font_values = sm1
End Function

type like count_colored_font_values(f9,$A$2:$A$23)
"$A$2:$A$23" - is a range in which you have to count the cells .

"f9" - is a cell having font color

the function will return the count of cells in a range passed who are having font color same as of "f9"

No comments:

Post a Comment