Aiuto urgente su somme celle non colorate di diversi fogli

Buonasera,

Ho un urgente bisogno di una vostra mano. Devo creare una cella con la somma di diverse celle, di diversi fogli con la particolarità di sommare solo le celle non colorate. Esiste un modo per farlo?

Ciao Giuseppe

Excel non dispone di funzioni che facciano la somma di celle "colorate" o meno per cui occorre scrivere una funzione in VBA che lo faccia



Questa funzione va inserita nell'Editor di VBA in un modulo standard.

Supponendo che si debba sommare le celle non colorate nell'intervallo A1:G50 puoi scrivere sul foglio

Ciao,

si può fare solo con il vba ed a patto che il colore di sfondo non sia generato da formattazione condizionaleù


Apri l'editor del vba, inserisci un modulo

copiaci questo codice (trovato su internet)


Attenzione: la prima riga è scritta

Function ColorFunction con la o di Otranto non con uno zero

---------------

Function ColorFuncti0n(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult

lCol = rColor.Interior.ColorIndex

If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell) + vResult
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If

ColorFunction = vResult

End Function

--------------

Esci dall'editor

ora puoi usare la nuova funzione.

Nella funzione devi indicare una cella con lo sfondo che vuoi sommare

Esempio A2 non ha alcun colore di riempimento

=COLORFUNCTI0N(A2;D1:G20;VERO)

somma d1:g20

Saluti

Ciao Stefano

Da quando in qua ti sei buttato sul VBA? (Ho fatto anche la rima )

Io mi sono limitato alla richiesta di Giuseppe di somma delle celle non colorate.

Un caro saluto.

Ciao Alfredo,

confermo: non ci capisco nulla.

Fatto solo una veloce ricerca su internet.

Stavo quasi per proporre una delle udf che si trovano (tipo sumbycolor)

per usarla insieme a somma

=somma(range)-sumbycolor(range)


Somma tutto meno la somma delle celle colorate. ( )

A presto