Hvordan oppsummere celler i henhold til deres skriftfarge i Excel

1. Skriv inn dataene mine i den nye Excel-regneark.
2. Etter det trykker du på Alt
+ F11
nøkler sammen for å åpne Microsoft Visual Basic for Applications vinduet.
Klikk på Sett Hotell og velg Module
.
3. Skriv følgende VBA-kode:
Funksjon sumcolor (ByVal ref As Range) Dim cl As Rangesumcolor = 0 ° C i hver cl I ref Hvis cl.Font.Color = vbRed Og IsNumeric (cl) Deretter sumcolor = sumcolor + clNextEnd Funksjon
4. Lukk vinduet.
5. Klikk på tilfeldig tom celle.
6. Skriv inn følgende formel:
= sumcolor (A1: A5)
A1: A5 betyr celler fra A1 til A5.
7. Trykk Enter
nøkkel og cellen vil oppsummere alle cellene med rød skrift inne.
Når data vil bli endret, må du velge cellen med formelen og bekrefte den igjen for å oppdatere resultatet.
<