Hej Kris!

För att åstadkomma detta måste du skapa en egendefinierad funktion med VBA kod enligt följande:

Öppna din VBA editor genom att trycka Alt+F11
Högerklicka på Microsoft Excel-objekt i den vänstra listen
Välj Infoga – Modul

Klistra in nedanstående kod i den stora vita boxen:

Function CountColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = vResult + 1
End If
Next rCell
CountColor = vResult
End Function


Denna VBA kod räknar antalet celler i ett område beroende på mönsterfärg
Funktionen kommer att ligga under kategorin "Anpassade" i Infoga funktion (Shift+F3).

Summeringsformeln skrivs enligt följande exempel:

=CountColor(A25;A2:F20)

där A25 är cellen med en viss färg som ska räknas och A2:F20 är området som ska genomsökas.

Men i ditt fall vill du att varje cell ska ha ett värde av 10. Då måste formeln skrivas enligt följande:

=CountColor(A25;A2:F20)*10

Jag utgår från att du har fler färger än blå som du vill summera. I mitt formelexempel är det tänkt att den färg som ska räknas är formaterad i cell A25. Då kan du lägga formeln direkt under färgen i cell A26. Sedan kan du ha en annan färg i cell B25 och C25 osv. Formeln i cell A26 kan du då kopiera till cell B26:C26 förutsatt at du absolut referens på områdesintervallet som i formeln nedan.

=CountColor(A25;$A$2:$F$20)*10

Det du säger stämmer när jag testar själv.

Däremot uppdateras formeln automatiskt om man färgsätter cellerna genom att kopiera formatet från en färgad cell med målarpenseln. Om du har en färgpalett på raden ovanför summeringsformlerna som jag föreslog, så funkar det att kopiera färgen från den paletten med målarpenseln och sedan markera den cell som du vill färga. Då uppdateras summeringen direkt.

Om du vill ta bort en färg så använd då samma teknik genom att kopiera med målarpenseln från en ofärgad cell.