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.
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 di intervallo definisce il colore interno della cella e il secondo parametro di intervallo definisce l'intervallo di campionamento.
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.
Si prega di seguire sotto per il codice
Function CountByColor(DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Dichiarare variabili Dim ICol As Integer Dim GCell As Range 'Ottenere il colore interno della cella ICol = DefinedColorRange.Interior.ColorIndex 'Eseguire il loop attraverso l'intervallo definito For Each GCell In CountRange If ICol = GCell.Interior.ColorIndex Then 'Ottenere il conteggio delle celle colorate corrispondenti CountByColor = CountByColor + 1 End If Next GCell End Function
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica
