![]() |
Count Formats
Can you use a count function to count the number of cells with a particular
format, say a colour? |
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 -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=467415 |
See http://www.xldynamic.com/source/xld.ColourCounter.html
-- HTH Bob Phillips "Matt" wrote in message ... Can you use a count function to count the number of cells with a particular format, say a colour? |
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" schreef in bericht ... Can you use a count function to count the number of cells with a particular format, say a colour? |
All times are GMT +1. The time now is 06:06 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com