Try this macro
Sub test()
Dim r As Range, c As Range, j As Integer, m As Integer
Set r = Range(Range("A1"), Range("A1").End(xlDown))
For Each c In r
If c.Interior.ColorIndex <> -4142 Then
j = c.Interior.ColorIndex
MsgBox j
GoTo exitloop
End If
Next c
exitloop:
m = 0
For Each c In r
If c.Interior.ColorIndex = j Then m = m + 1
Next c
MsgBox "count of cell in color " & j & " is " & m
End Sub |
Calculator to the number of days in a year Change cell background color using vba Change cell format to number in excel 2007 using vb.net Counting number of rows for a month from the date cell Date showing as text in cell but as number in formula bar Excel "$worksheet cells" color Excel list all cells with red text Excel text change cell color if Excel vba cell color won't change How do i change my facebook password if my login is my old cell phone number How to make a free call from a computer to a cell phone number in india If cell text is red list Programming excel cell color Random cell number generator Serial number command & conquer red alert 3 Sheet1.cells color Vba color cells if text is bold Why do some excel cells have color?