Somma in base al colore utilizzando VBA in Microsoft Excel
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.
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.
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]