
metti questo codice all'interno di un modulo VBA
Option explicit
Sub Conta_celle_colorate()
somma = 0
For Each cella In Range("A1:B4")? qui ci metti il tuo intervallo di celle.
If cella.Interior.ColorIndex = 6 Then somma = somma + cella.Value
Next
MsgBox somma
End Sub
N.B. il numero 6 corrispone al colore giallo come tu hai richiesto. |
