Function CountByColor(CellColor As Range, CountRange As Range) Application.Volatile Dim ICol As Integer Dim TCell As Range ICol = CellColor.Interior.ColorIndex For Each TCell In CountRange If ICol = TCell.Interior.ColorIndex Then CountByColor = CountByColor + 1 End If Next TCell End Function
|excel pivot question||4||40|
|Match formula returns N/A||5||25|
|Excel 2010 Text Formatting placing a hyphen in front of text||3||20|
|Excel 2010 - Comparison of texts in a cell||14||37|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!