Devo conteggiare separatamente le celle colorate e quelle sottolineate: quindi se una cella è colorata e sottolineata, dev'essere contata una volta dalla macro per le celle colorate (già funzionante), un'altra dalla macro per le celle sottolineate.
Questo è il codice che ho usato
codice:
Function CountByColor(InRange As Range, _
WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Long
'
' This function return the number of cells in InRange with
' a background color, or if OfText is True a font color,
' equal to WhatColorIndex.
'
Dim Rng As Range
Application.Volatile True
For Each Rng In InRange.Cells
If OfText = True Then
CountByColor = CountByColor - _
(Rng.Font.ColorIndex = WhatColorIndex)
Else
CountByColor = CountByColor - _
(Rng.Interior.ColorIndex = WhatColorIndex)
End If
Next Rng
End Function
Poi sul foglio di lavoro vado nelle celle dove voglio effettuare la somma e scrivo
=COUNTBYCOLOR(intervallo_celle;numero_colore;FALSO )