Function ContaColorate(a as Range)
Dim cel as Range
For Each cel in a
    If cel.Interior.ColorIndex <> xlNone Then
         ContaColorate = ContaColorate + 1
    End If
Next cel
End Function

Sub ContaFormattate()
Dim FC As FormatCondition, F1, F2
Dim cel As Range
For i = 2 To 22
    Cells(i, 2).Select
    For Each FC In ActiveCell.FormatConditions
        If FC.Type = xlCellValue Then
            F1 = Evaluate(FC.Formula1)
            Select Case FC.Operator
                Case xlBetween: If ActiveCell >= F1 And ActiveCell <= Evaluate(FC.Formula2) Then v = 1: Exit For
                Case xlEqual: If ActiveCell = F1 Then v = 1: Exit For
                Case xlGreater: If ActiveCell > F1 Then v = 1: Exit For
                Case xlGreaterEqual: If ActiveCell >= F1 Then v = 1: Exit For
                Case xlLess: If ActiveCell < F1 Then v = 1: Exit For
                Case xlLessEqual: If ActiveCell <= F1 Then v = 1: Exit For
                Case xlNotBetween: If ActiveCell < F1 Or ActiveCell > Evaluate(FC.Formula2) Then v = 1: Exit For
                Case xlNotEqual: If ActiveCell <> F1 Then v = 1: Exit For
            End Select
        Else
            If Evaluate(FC.Formula1) Then Exit For
        End If
    Next FC
    tot = tot + v: Cells(1, 1) = tot: v = 0
Next i
End Sub

Sub mia()
Dim aaa
Dim bbb
Dim cel As Range
Set aaa = Range("A1:A10")
For Each cel In aaa
    'pippo = cel.
    If cel.DisplayFormat.Interior.ColorIndex <> xlNone Then
         bbb = bbb + 1
    End If
Next cel
End Sub

Sub prova()
  MsgBox "colorate: " & ContaColorFC(Range("A1:A6"))
End Sub


Function ContaColorFC(ByRef rng As Range)
  Dim cella As Range
  Dim sFC As String
  
  For Each cella In rng
      If cella.DisplayFormat.Interior.ColorIndex <> xlColorIndexNone Then
        ContaColorFC = ContaColorFC + 1
      End If
  Next cella
End Function

=CONTA.SE(A1:F30;H1)+CONTA.SE(A1:F30;H2)+CONTA.SE(A1:F30;H3)+CONTA.SE(A1:F30;H4)+CONTA.SE(A1:F30;H5)