Come contare le celle secondo il loro colore su VBA Excel

Ultimo aggiornamento 19 gennaio 2020 alle 13:20 da Antonello Ciccarello .

Se si desidera calcolare, ad esempio, il numero delle cellule rosse, verde e grigie non vuote su Excel, ma non si sa come fare, ecco una guida utile per contare le celle secondo il loro colore su VBA.

Nota Bene: questa operazione è una formula personalizzata di VBA (Visual Basic for Application) messo a disposizione in Excel. Essa non funziona se i colori sono ottenuti da una formattazione condizionale.

La somma delle celle colorate piene

Per calcolare il numero delle celle, basta operare nel seguente modo: aprire VBA cliccando i tasti ALT + F11, inserire un nuovo modulo e poi nello stesso fare copia/incolla del codice, come qui riportato:

Function NmroCelluleColore(Intervallo As Range, Colore As Byte) As Long
'Contare il numero delle cellule di un colore dato in un determinato intervallo
'Intervallo: intervallo delle cellule da ispezionare
'Colore: valore del colore ricercato

Application.Volatile

Dim Cellule As Range

For Each Cellule In Intervallo
    If Cellule.Interior.ColorIndex = Colore And Not IsEmpty(Cellule) Then
        NmroCelluleColore = NmroCelluleColore + 1
    End If
Next Cellule

End Function

Scritto il codice chiudere l’editor VBA poi su una qualunque cellula del proprio foglio di calcolo digitare la formula che segue:

	A	B	C	D
1	=NmroCelluleColore(B4:B8;3)
2
3
4

I parametri

B4:B8 è un intervallo da trattare, e 3 è il colore da cercare (nell'esempio è il rosso).

Ecco qui la tabella dei codici colore, scegliere tra i colori VBA (da uno a 56):