Sum Cells Based on the Interior Color : Cells « Excel « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Excel » Cells 




Sum Cells Based on the Interior Color
 
Function SumByColor(CellColor As Range, SumRange As Range)
    Dim myCell As Range
    Dim iCol As Integer
    Dim myTotal
    iCol = CellColor.Interior.ColorIndex 
    For Each myCell In SumRange 
        If myCell.Interior.ColorIndex = iCol Then
            myTotal = WorksheetFunction.Sum(myCell+ myTotal
        End If
    Next myCell
    SumByColor = myTotal
End Function

 














Related examples in the same category
1.Select entire sheet
2.Set cell value with For Loop
3.Use row and column index to reference cell
4.Cells(Rows.Count, "A").End(xlUp).Select
5.looping through a worksheet range using a For/Next loop.
6.Cells.Find: Get Real Last Cell
7.Get cell value
8.Entering a value in the next empty cell
9.Use the AutoFill function by specifying the destination range
10.Using Replace Programmatically to Set the Correct Range
11.Calling CurrentRegion to Inspect a List's Useful Characteristics
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.