Counting cells with a specific range

T

teresa

This function is taken from C Pearsons site and it counts the number of cells
within
a range. Can someone explain the asterixxed lines below
Thanks

#CountByColor = CountByColor - _
# (Rng.Font.ColorIndex = WhatColorIndex)
#Else
# CountByColor = CountByColor - _
# (Rng.Interior.ColorIndex = WhatColorIndex)



Function CountByColor(InRange As Range, _
WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Long
'
' This function return the number of cells in InRange with
' a background color, or if OfText is True a font color,
' equal to WhatColorIndex.
'
Dim Rng As Range
Application.Volatile True

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

End Function
 
B

Bob Phillips

It is simply working out whether it counts the cells that meet the required
colour, or whether to count the cells whose text meets the colour.

The function has an optional parameter OfText that you can set to True to
count the cell text colour.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top