Count Formats

[Matt]

Can you use a count function to count the number of cells with a particular
format, say a colour?

[dominicb]

Good morning Matt

There is no native function to do this. I have an add-in available to anyone who requests it that will count or sum the number of cells with fonts or backgrounds that are a particular colour, but it will not interrogate based on any other format (bold, underline, centred etc.

HTH

DominicB
[email protected]

[Bob Phillips]

See http://www.xldynamic.com/source/xld.ColourCounter.html

--
HTH

Bob Phillips

"Matt" <[email protected]> wrote in message
news:[email protected]...
> Can you use a count function to count the number of cells with a
particular
> format, say a colour?

[Jack Sons]

Matt,

During the years I gathered a lot of handy code. I once found these macro's.
Just what you need.

Jack Sons
The Netherlands
----------------------------------------------------------------------------------------------------
Sub SumColorCountYellow()
Dim Yellow6 As Integer
Dim Cell As Range

For Each Cell In Range("DataY")
If Cell.Interior.ColorIndex = 6 Then
Yellow6 = Yellow6 + Cell.Value
End If
Next
originalF = Range("F1").Value
Range("F1").Value = "Yellow = " & Yellow6

MsgBox " Yellow adds to " & Yellow6, _
vbOKOnly, "CountColor"

Range("F1").Value = originalF '""
End Sub
---------------------------------------------------------------------------------------------
Function BoldSum(rng)
' sommeert de vette cellen in de range
Dim c
For Each c In rng
If c.Font.Bold Then
BoldSum = BoldSum + c.Value
End If
Next

End Function
-------------------------------------------------------------------------------------------------

"Matt" <[email protected]> schreef in bericht
news:[email protected]...
> Can you use a count function to count the number of cells with a
> particular
> format, say a colour?