Counting cells with a specific range
 

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

Counting cells with a specific range
 

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.

--
HTH

Bob Phillips

"teresa" wrote in message
...
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