Hvordan lage fargesummer
Vil du legge til celleinnhold, men ta hensyn til cellens farge? Du kan gjøre det med en makro. Følgende figur viser en datatabell der noen celler har gul bakgrunn (gul fyllfarge):
Hvis du bare vil legge til cellene fra det nåværende utvalget som har en gul bakgrunnsfarge, bruker du følgende makro:
Sub AddColor -celler ()
Dim Sum så lenge
Dim Cell As Range
For hver celle i utvalg
Hvis Cell.Interior.ColorIndex = 6 Da
Sum = Sum + celle. Verdi
Slutt om
Neste celle
MsgBox "Fargesummen er:" & sum
Slutt Sub
Etter at du har startet makroen, viser Excel summen av cellene i et vindu, som er markert med en gul bakgrunnsfarge. Følgende figur viser hvordan resultatet ser ut hvis du velger celleområdet presentert ovenfor:
Hvis du vil bruke andre farger i stedet for celler med gul bakgrunn, justerer du sammenligningsverdien i If -spørringen. Erstatt andre verdier med gult i stedet for 6. For å finne ut hvilken verdi ColorIndex skal bruke for en farge du ønsker, kan du bruke en liten makro. Klikk på en celle du ønsker, og start følgende makro for å finne ut hvilken bakgrunnsfarge den aktive cellen er formatert med:
Sub ActiveColor ()
MsgBox "Aktiv bakgrunnsfarge:" & _
(Utvalg (1, 1). Interiør.ColorIndex)
Slutt Sub
Tips: Hvis du vil vite hvordan du skriver inn og starter makroer i Excel, finner du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
