Allora,
questa che segue
codice:
Function CountUnderline(InRange As Range) As Long
'
' This function return the number of underlined cells in InRange
'
Dim RngU As Range
Application.Volatile True
CountUnderline = 0
For Each RngU In InRange.Cells
If RngU.Font.Underline = 2 Then
CountUnderline = CountUnderline + 1
End If
Next RngU
End Function
è una macro fatta sul modello di quella che mi hai passato che invece di contare le celle colorate conta quelle sottolineate.
Per utilizzarla devi sono copiarla nello stesso posto in cui si trova l'altra e richiamarla con:
codice:
=CountUnderline(intervallo_celle)
Come per l'altra funzione, anche questa viene attivata nel momento in cui una qualsiasi cella del foglio cambia valore, ma non se cambia solo formattazione (colore o sottolineatura).
E' possibile poi anche attivarla a mano con F9.
Come ti dicevo prima, vengono contate le celle che presentano la formattazione sottolineata non a livello di carattere ma a livello di cella, anche se vuote.
Spero che ti vada bene perché non sono riuscito a trovare né un modo per attivarle anche al variare della formattazione né un modo per contare i caratteri sottolineati interni.