Come contare le celle secondo il loro colore su VBA Excel

Novembre 2016

Questa guida si basa su un quesito posto su uno dei nostri forum, dove un utente afferma di voler calcolare il numero delle cellule rosse, verde e grigie non vuote.

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

La soluzione al quesito sopra citato porta ad 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):



Potrebbe anche interessarti :
Il documento intitolato « Come contare le celle secondo il loro colore su VBA Excel » da CCM (it.ccm.net) è reso disponibile sotto i termini della licenza Creative Commons. È possibile copiare, modificare delle copie di questa pagina, nelle condizioni previste dalla licenza, finché questa nota appaia chiaramente.