In questo articolo, creeremo una funzione personalizzata per calcolare la somma dei numeri nelle celle nell'intervallo con un 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 che è disponibile in tre colori grigio, rosso e verde. Vogliamo trovare la somma dell'articolo venduto per colore del prodotto.
Per calcolare la somma per colore, abbiamo creato la funzione personalizzata "SumByColor". Questa funzione accetta due parametri di range 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 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.
Si prega di seguire sotto per il codice
Opzione Funzione esplicita SumByColor(DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Dichiarare variabili Dim ICol As Integer Dim GCell As Range 'Ottenere il colore interno della cella ICol = DefinedColorRange.Interior.ColorIndex 'Percorrere in loop l'intervallo definito For Each GCell In SumRange If ICol = GCell.Interior.ColorIndex Then 'Ottenere la somma delle celle colorate corrispondenti SumByColor = SumByColor + GCell.Value 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