In questo articolo, creeremo una funzione personalizzata per calcolare la somma dei numeri nelle celle nell’intervallo con colore definito.

Per questo esempio, i dati di esempio sono costituiti dai dati del team di vendita. I dati del team di vendita contengono dettagli relativi al numero di articoli venduti. Contiene informazioni relative al prodotto disponibile in tre colori: grigio, rosso e verde. Vogliamo trovare la somma degli articoli venduti per colore del prodotto.

ArrowRaw

Per calcolare la somma per colore, abbiamo creato la funzione personalizzata “SumByColor”. 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

Viene utilizzato Application.Volatile perché 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

Option Explicit

Function SumByColor(DefinedColorRange As Range, SumRange 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 SumRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the sum of matching colored cell

SumByColor = SumByColor + GCell.Value

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]