Fare la somma dei valori nelle celle colorate

Ciao Catello1964.,

non c'è una regola per cui la cella diventa rossa.

Il colore della cella lo dò io con il semplice pulsante di riempimento.

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'========>>

Option Explicit

'-------->>

Function SommaPerColore(Intervallo_da_Sommare As Range, Cella_colore As Range)

Dim rCell As Range 

Dim dSum As Double 

Dim iColor As Long 

Application.Volatile 

iColor = Cella\_colore.Cells(1, 1).Interior.Color 

For Each rCell In Intervallo\_da\_Sommare.Cells 

    With rCell 

        If .Interior.Color = iColor Then 

            dSum = dSum + .Value 

        End If 

    End With 

Next rCell 

SommaPerColore = dSum 

End Function

'<<========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm

Questa funzione viene utilizzata, per esempio, come segue:

  **=SommaPerColore(A1:A10,C1)**

dove l'intervallo A1:A10 è l'intervallo da sommare e la cella C1 dimostra il colore di interesse.

Nota che questa funzione non restituirà la somma delle celle colorate tramite la formattazione condizionale.

Se fosse di interesse potrei pubblicare il codice per una UDF che restituirebbe la somma sia delle celle riempite manualmente che di quelle colorate con formattazione condizionale.

===

Regards,

Norman

Ciao Catello1964.,

Avrei dovuto lanciare un avviso! La funzione che ho pubblicato si aggiornerà automaticamente ogni volta che viene modificato un valore sul foglio di interesse o quando il foglio viene ricalcolato.

Purtroppo Excel non espone un evento intercettabile quando il colore di riempimento di una cella cambia e la semplice modifica del colore della cella non aggiornerà il risultato restituito dalla funzione. Quindi, per garantire l'accuratezza del risultato della funzione, dopo aver cambiato il colore di riempimento premi F9. Ciò forzerà un ricalcolo e assicurerà che anche la funzione sia aggiornata.

===

Regards,

Norman

Buongiorno Norman,

non c'è una regola per cui la cella diventa rossa.

Il colore della cella lo dò io con il semplice pulsante di riempimento.

Ciao Catello1964,

ho la problematica di dover trovare una formula che mi dia il totale di valori contenuti in una colonna (A1:A12), là dove

le celle sono solo colorate di rosso.

Ho provato ad utilizzare la formula =SUBTOTALE(109; A1:A12) senza sortire ilrisultato sperato.

Non vorrei utilizzare il fitlro perchè chi andrà a utilizzare il file, non è molto pratico.

Esiste una formula specifica?

Per sommare le celle rosse con una formula, sarebbe necessario conoscere la regola che determina la colorazione delle celle.

In alternativa, potremmo sfruttare VBA e fornire una UDF (funzione utente) che potrebbe essere utilizzata come una funzione nativa di Excel.

===

Regards,

Norman