Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Counting a colour that is Conditionally Formatted
I have a grid that conditionally formats the background colour to Green,
Red or White depending on a criteria. I want to count the number of times green appears in a row. I've tried modifying the CountByColor Function but to no avail. Is this possible? TIA Jon Function CountByColor(InputRange As Range, ColorRange As Range) As Long Dim cl As Range, TempCount As Long, ColorIndex As Integer ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex TempCount = 0 For Each cl In InputRange.Cells If cl.Font.ColorIndex = ColorIndex Then TempCount = TempCount + 1 Next cl Set cl = Nothing CountByColor = TempCount End Function |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Counting a colour that is Conditionally Formatted
On Sat, 08 Nov 2003 14:14:52 -0500, Crash <[email deleted] wrote:
I have a grid that conditionally formats the background colour to Green, Red or White depending on a criteria. I want to count the number of times green appears in a row. I've tried modifying the CountByColor Function but to no avail. Is this possible? TIA Jon Function CountByColor(InputRange As Range, ColorRange As Range) As Long Dim cl As Range, TempCount As Long, ColorIndex As Integer ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex TempCount = 0 For Each cl In InputRange.Cells If cl.Font.ColorIndex = ColorIndex Then TempCount = TempCount + 1 Next cl Set cl = Nothing CountByColor = TempCount End Function How about a Select Case that looks at the formula or the value? If it can be expressed as an Excel formula, it can be expressed in VBA code. -- auric "underscore" "underscore" "at" hotmail "dot" com ***** Don't question authority, he doesn't know either. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Counting a colour that is Conditionally Formatted
Conditional formatting doesn't return a value you can check on directly.
See Chip Pearson's site for an explanation and code: http://www.cpearson.com/excel/CFColors.htm -- Regards, Tom Ogilvy Crash wrote in message ... I have a grid that conditionally formats the background colour to Green, Red or White depending on a criteria. I want to count the number of times green appears in a row. I've tried modifying the CountByColor Function but to no avail. Is this possible? TIA Jon Function CountByColor(InputRange As Range, ColorRange As Range) As Long Dim cl As Range, TempCount As Long, ColorIndex As Integer ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex TempCount = 0 For Each cl In InputRange.Cells If cl.Font.ColorIndex = ColorIndex Then TempCount = TempCount + 1 Next cl Set cl = Nothing CountByColor = TempCount End Function |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Counting a colour that is Conditionally Formatted
On Sat, 08 Nov 2003 14:14:52 -0500, Crash wrote:
I have a grid that conditionally formats the background colour to Green, Red or White depending on a criteria. I want to count the number of times green appears in a row. I've tried modifying the CountByColor Function but to no avail. Is this possible? TIA Jon I do not believe so. You would need your code to check for the *condition* that produces the Green result. --ron |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Counting a colour that is Conditionally Formatted
Thanks Tom, unfortunately the addresses are all relative so Chip's functions
didn't work for me, I ended-up writing a macro to loop through the rows comparing each column to the master. Jon Tom Ogilvy wrote: Conditional formatting doesn't return a value you can check on directly. See Chip Pearson's site for an explanation and code: http://www.cpearson.com/excel/CFColors.htm -- Regards, Tom Ogilvy Crash wrote in message ... I have a grid that conditionally formats the background colour to Green, Red or White depending on a criteria. I want to count the number of times green appears in a row. I've tried modifying the CountByColor Function but to no avail. Is this possible? TIA Jon Function CountByColor(InputRange As Range, ColorRange As Range) As Long Dim cl As Range, TempCount As Long, ColorIndex As Integer ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex TempCount = 0 For Each cl In InputRange.Cells If cl.Font.ColorIndex = ColorIndex Then TempCount = TempCount + 1 Next cl Set cl = Nothing CountByColor = TempCount End Function |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
A UDF for Counting Coloured Cells that are conditionally formatted | New Users to Excel | |||
Conditionally Formatted Cells | Excel Discussion (Misc queries) | |||
Can you add the number of conditionally formatted cells?? | Excel Worksheet Functions | |||
Counting conditionally formatted cells | Excel Worksheet Functions | |||
Counting colour formatted cells | Excel Worksheet Functions |