Excel - VBA - Sommare o Contare celle colorate

Funzione VBA personalizzata per Sommare o Contare celle colorate.
VBA Custom Function to Sum or Count Colored Cells in Excel Microsoft Spreadsheet
by Ezio Sieff
Funzione VBA da copiare in un modulo (da Excel ALT +F11)
----------------
' Funzione Personalizzata per Contare o Sommare il contenuto di Celle dello stesso colore
Function ZicoColor(zColor As Range, zRange As Range, Optional zSommaConta As String) As Double
Dim Color As Long
Dim rCell As Range
Dim risultato As Double
' Ottiene il colore della cella
Color = zColor.Interior.Color
risultato = 0
' Controllo e esecuzione per ciascuna cella nel range
For Each rCell In zRange
If rCell.Interior.Color = Color Then
If zSommaConta = "S" Then
If IsNumeric(rCell.Value) Then
risultato = risultato + rCell.Value
End If
Else
risultato = risultato + 1
End If
End If
Next rCell
' inserisco il risultato nella Funzione
ZicoColor = risultato
End Function

[@corracomics2182]

Grazie! Utilissimo e chiaro.

[@alessandroventuri7292]

Ciao Ezio la formula me la riconosce ma il risultato è sempre zero. Grazie

[@alessandroventuri7292]

Ciao ho capito come mai non sommava perché il colore della cella derivava da una formattazione condizionale. Ma è possibile ovviare a questo problema??