Sommare e contare per colore su tutta la cartella di lavoro
Se aveste la necessità di contare o sommare le celle con un determinato colore presenti in tutta una cartella di lavoro, occorre inserire alcune righe di codice aggiuntive. Potete copiarle direttamente dal box qui sotto:
Function CartellaContaCellePerColore(cellRefColor As Range) Dim vWbkRes Dim foglioCorrente As Worksheet Application.ScreenUpdating = False Application.Calculation = xlCalculationManual vWbkRes = 0 For Each foglioCorrente In Worksheets foglioCorrente.Activate vWbkRes = vWbkRes + ContaCellePerColore(foglioCorrente.UsedRange, cellRefColor) Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic CartellaContaCellePerColore = vWbkRes End Function Function CartellaSommaCellePerColore(cellRefColor As Range) Dim vWbkRes Dim foglioCorrente As Worksheet Application.ScreenUpdating = False Application.Calculation = xlCalculationManual vWbkRes = 0 For Each foglioCorrente In Worksheets foglioCorrente.Activate vWbkRes = vWbkRes + SommaCellePerColore(foglioCorrente.UsedRange, cellRefColor) Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic CartellaSommaCellePerColore = vWbkRes End Function
Questa macro si utilizza nello stesso modo del codice precedente e restituisce il conteggio e la somma delle celle colorate usando rispettivamente le seguenti formule, =CartellaContaCellePerColore() e =CartellaSommaCellePerColore(). Basta inserire la formula in una cella vuota su qualsiasi foglio senza definire un intervallo, specificare tra parentesi l’indirizzo di una cella con il colore che volete contare o sommare, ad esempio =CartellaSommaCellePerColore(A1), e la formula visualizzerà la somma di tutte le celle colorate con lo stesso colore della cella indicata.