Conta per colore utilizzazione del VBA in Microsoft Excel
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 dell’intervallo definisce il colore interno della cella e il secondo parametro dell’intervallo definisce l’intervallo del campione.
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]