G
Guest
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
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