Scarica la cartella di lavoro di esempio
Questo tutorial ti mostrerà come contare o sommare le celle di un determinato colore di sfondo usando VBA.
Considera il seguente intervallo in Excel.
Non esiste una funzione Excel integrata per contare le celle colorate. Invece dobbiamo creare una funzione definita dall'utente usando VBA.
Conta celle: crea una funzione personalizzata VBA
Contare quante celle sono di un certo colore usando VBA è una questione di creare una funzione definita dall'utente (UDF) che scorrerà tutte le celle nell'intervallo e determinerà se il colore di sfondo di ogni cella corrisponde al colore di sfondo che hai stanno testando e quindi utilizzano tale funzione nel foglio di lavoro di Excel.
In VBA, creiamo una funzione per contare le celle selezionate.
| 12345678910111213141516 | Funzione CountCellsByColor (rng As Range, ColorCell As Range) As DoubleDim dblCount As DoubleDim rngCell As Range'Ciclo attraverso ogni cella nell'intervalloPer ogni rngCell In rng'controlla se il colore interno è lo stesso colore della cella che hai selezionatoSe rngCell.Interior.Color = ColorCell.Interior.Color ThenIf IsNumeric(rngCell.Value) = True Then'aumenta il conteggio di 1 se il colore è corretto.dblCount = dblCount + 1Finisci seFinisci seProssimo'Restituisci il valore a ExcelCountCellsByColor = dblCountFine funzione |
Quindi utilizzare questa funzione nel foglio di lavoro per restituire il valore.
| 1 | =ContaCellePerColore(B2:E10,G4) |
- Fare clic nella cella arancione in G4 e fare clic su Inserisci funzione.
- Selezionare Definito dall'utente come categoria, quindi selezionare ContaCellule Per Colore come funzione da utilizzare.
- Clic ok.
- Evidenzia l'intervallo che contiene tutte le celle colorate.
- Seleziona il ColoreCell, quindi fare clic su ok.
Ripeti il processo per contare le celle con un colore di sfondo verde.
| 1 | =ContaCellePerColore(B2:E10,G5) |
Somma celle: crea una funzione VBA personalizzata
Creiamo una funzione personalizzata simile in VBA per sommare i valori delle celle di un determinato colore.
| 12345678910111213141516 | Funzione SumCellsByColor (rng As Range, ColorCell As Range) As DoubleDim dblSum come doppioDim rngCell As Range'Ciclo attraverso ogni cella nell'intervalloPer ogni rngCell In rng'controlla se il colore interno è lo stesso colore della cella che hai selezionatoSe rngCell.Interior.Color = ColorCell.Interior.Color ThenIf IsNumeric(rngCell.Value) = True Then'aggiungi il valore alla tua variabile se il colore è correttodblSum= dblSum + rngCell.ValueFinisci seFinisci seProssimo'Restituisci il valore a ExcelSumCellsByColor = dblSumFine funzione |
Utilizzeremmo quindi ancora una volta questa funzione nel foglio di lavoro per riassumere le celle richieste.
| 1 | =SommaCellePerColore(B2:E10,G7) |
