PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerExcelExcelSummera resultatet av rött färglagda cellerSummera resultatet av rött färglagda celler
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2013-10-07 12:03
 
Hej! Jag har ett Excel ark där jag har summerat olika poster och färglagt summeringen röd. Nu vill jag summera de röda cellerna.

Är det någon som skulle kunna hjälpa mig med en lösning på detta.

Mvh
Nytt inlägg
 2013-10-09 15:56
 

Du måste skapa en egendefinierad funktion för att lösa detta.

Nedanstående VBA kod summerar ett område av celler beroende på mönsterfärg
För att använda denna tryck Alt+F11 och gå till Infoga>Modul.
Kopiera nedanstående kod och klistra in koden i VBA-modulen.
Tryck Alt+Q och spara.

Skriv summeringsformel enligt följande exempel:
=SumColor(A2;A2:A10) där A2 är cellen med en viss färg som ska summeras och A2:A10 är området som ska genomsökas

---------------------------------------------------------

Function SumColor(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 = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult

End Function

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerExcelExcelSummera resultatet av rött färglagda cellerSummera resultatet av rött färglagda celler

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter