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

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 Java Java Tutorial Java Source Code / Java Documentation Java Open Source Jar File Download Java Articles Java Products Java by API C# / C Sharp C# / CSharp Tutorial ASP.Net JavaScript DHTML JavaScript Tutorial JavaScript Reference HTML / CSS HTML CSS Reference C / ANSI-C C Tutorial C++ C++ Tutorial PHP Python SQL Server / T-SQL Oracle PL / SQL Oracle PL/SQL Tutorial PostgreSQL SQL / MySQL MySQL Tutorial VB.Net VB.Net Tutorial Flash / Flex / ActionScript Microsoft Office PowerPoint 2007 Tutorial Microsoft Office Excel 2007 Tutorial Microsoft Office Word 2007 Tutorial

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

ww___w__._j___a__va__2__s__.c__o___m_ | Contact Us

Copyright 2003 - 08 Demo Source and Support. All rights reserved.

All other trademarks are property of their respective owners.