Operazioni in base a colore cella senza VBA

[deniel69]

Buon serata a tutti !

Domanda!

Avendo dei valori numerici nelle celle da A1 ad A10 ,è possibile in esempio B1 eseguire delle operazioni di somma o sottrazione in base al colore delle celle da A1 ad A10 senza utilizzare macro?
.... e senza dover scrivere una Function?

Spero di essere stato chiaro...........

[Anthony47]

No, non direttamente (il colore in Excel non ha un valore).

Potresti applicare il colore tramite una formattazione condizionale che lavora con una colonna di appoggio e poi usare Matrice.Somma.Prodotto per le somme che ti servono.
C'e' anche una finta istruzione INFO.CELLA (get.cell, in inglese), un residuo del vecchio linguaggio Macro (ante VBA), che potrebbe essere usata per estrarre il numero del colore, ma allora tanto vale passare a una soluzione vba.

Ciao

[deniel69]

Ti ringrazio.......

Ho risolto creando un componente aggiuntivo ed inserendo in un modulo la seguente function......

Codice: Seleziona tutto

Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
  If cl.Interior.ColorIndex = ColIndex Then
    cSum = WorksheetFunction.Sum(cl, cSum)
  End If
Next cl
SumByColor = cSum
End Function

In questo modo è disponibile nel foglio in cui mi serve ma senza macro ........ CTRL+Alt+F9 per aggiornare...


Lo so sarà disponibile solo per chi ha il componente aggiuntivo nella cartella XLSTART ....ma va bene così....

Grazie ancora....