In questo articolo, creeremo una funzione personalizzata per contare il numero di celle nell’intervallo con colori definiti.

Per questo esempio, i dati di esempio sono costituiti da un intervallo con valori compresi tra 100 e 1000. I valori nelle celle sono evidenziati con colori diversi. Vogliamo trovare il conteggio di ogni colore.

ArrowMain

Per calcolare il conteggio di un colore specifico, abbiamo creato una funzione personalizzata “CountByColor”. Questa funzione accetta due parametri di intervallo come input. Il primo parametro dell’intervallo definisce il colore interno della cella e il secondo parametro dell’intervallo definisce l’intervallo del campione.

ArrowOutput

Spiegazione del codice

Application.Volatile viene utilizzato in quanto verrà ricalcolato ogni volta che il valore di una cella viene modificato nella cartella di lavoro.

DefinedColorRange.Interior.ColorIndex Il codice sopra viene utilizzato per ottenere il colore interno dell’intervallo definito.

Segui sotto per il codice

Function CountByColor(DefinedColorRange As Range, CountRange As Range)

Application.Volatile

'Declaring variables

Dim ICol As Integer

Dim GCell As Range

'Getting the interior color of the cell

ICol = DefinedColorRange.Interior.ColorIndex

'Looping through the defined range

For Each GCell In CountRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the count of matching colored cell

CountByColor = CountByColor + 1

End If

Next GCell

End Function

Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.

Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]