Count by color using VBA in Microsoft Excel

My Account

Check out

Shopping Cart

JOIN OUR NEWSLETTER
and receive for joining:
	Free eBook Learn More!
	Free Excel ADD-IN
	Free Weekly Excel Tip








F1 eBook (Spanish)

» Count by color using VBA in Microsoft Excel

VBA macro tip contributed by Erlandsen Data Consulting* offering Microsoft Excel Application development, template customization, support and training solutions*

CATEGORY: Custom Functions , Printing in VBA	VERSIONS: All Microsoft Excel Versions

With the built-in COUNTA()-function it's not possible to count cells in a range depending on each cells background color.
With the custom function below you can count the cells depending on their background color:

Function CountByColor(InputRange As Range, ColorRange as Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
    ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
    TempCount = 0
    For Each cl In InputRange.Cells
        If cl.Interior.ColorIndex = ColorIndex Then 
            TempCount = TempCount + 1
        End If
    Next cl
    Set cl = Nothing
    CountByColor = TempCount
End Function

This function is used in the same way as built-in worksheetfunctions. InputRange is the range that the function
is going to count, ColorRange is a reference to a cell containing the background color you wish to count.
In Excel 5/95 the variables InputRange and ColorRange must be declared as Variant instead of Range.
This function can easily be adapted for use with other worksheetfunctions that you wish to use on cells
with different background colors.

Rate this tip



1	2	3	4	5

RATING: 4.06
VIEWS: 35038

Email Tip

Print Tip

Add to My Tips

READER COMMENTS (view all comments)

good one.. but not refreshing
sathish wrote on December 31, 1969 19:00 EST

good one..
but is not automatically refreshed when the cell color is changed

wrote on December 31, 1969 19:00 EST

Be aware that the changing of a cells fill color will not cause the function to recalculate, even if you press F9. You will need to either select the cell and re-enter the formula, or go to Edit>Replace and replace = with =, or use Ctrl+Alt+F9

Special Edition Using Microsoft Office XP

Real Estate Loopholes: Secrets of Successful Real Estate Investing

Essentials of Investments with Standard & Poor's Educational Version of Market Insight + PowerWeb + Stock Trak Coupon

Keys to Reading an Annual Report (Barron's Business Keys)

Cashflow Quadrant: Rich Dad's Guide to Financial Freedom

Business Analysis with Microsoft Excel (2nd Edition)

RELATED MICROSOFT EXCEL TIPS

• Excel VBA books
• Accounting books
• Business Plans
• MS Office books
• Taxes books

VIEW ALL BOOKS

	Advertise With Us
Tips	Add-In in VBA \| Applications - Word, Outlook in VBA \| Array Formulas \| Cells, Ranges, Rows, and Columns in VBA \| Counting \| Custom Functions \| Custom Functions in VBA \| Database Formulas \| Database in VBA \| Date & Time Formulas \| Date & Time in VBA \| Events in VBA \| Excel 2003 \| Excel Chart \| Excel Consolidating \| Excel Counting \| Excel Custom Functions using VBA \| Excel Customizing \| Excel Data \| Excel Dates \| Excel Editing \| Excel Files \| Excel Filter \| Excel Format \| Excel Formula \| Excel General \| Excel Grouping and Outlining \| Excel Importing Text Files \| Excel Information \| Excel Keyboard Shortcuts \| Excel Loan Formulas \| Excel Macros - VBA \| Excel Pivot Tables \| Excel Printing \| Excel Range Name \| Excel Security - Protection \| Excel Sorting \| Excel Style \| Excel Subtotals \| Excel Summing \| Excel Text \| Excel Time \| Excel Tools \| Excel Worksheet, Workbook \| Files, Workbook, and Worksheets in VBA \| Financial Formulas \| Formating in VBA \| General Topics in VBA \| Import and Export in VBA \| Information Formulas \| Keyboard & Other Shortcuts in VBA \| Keyboard Formula Shortcuts \| Links between Worksheet and Workbooks \| Links in VBA \| Logical Formulas \| Lookup Formulas \| Mail - Send and Receive in VBA \| Menus, Toolbars, Status bar in VBA \| Modules, Class Modules in VBA \| Other Q&A Formulas \| Printing in VBA \| Protecting in VBA \| Summing \| Text Formulas \| User Forms, Input boxes in VBA \| Using Loops \| Working with Formulas \|
Tips by Version	Microsoft Excel 97 \| Microsoft Excel 2000 \| Microsoft Excel 2002 \| All Microsoft Excel Versions \| New in Excel 2002 \| New in Excel 2003 - Office 11
Website	Home \| Tip of Hour \| Recommended Tips \| Most Viewed Tips \| Tips by Version \| Submit a Tip \| My Tips Microsoft Excel Tutorials \| Excel Links \| Write for Us \| About Us \| Search Results \| Tip Archives \| Excel Forum \| Excel Forum Archives
Excel Book	Excel 97 Book \| Excel 2000 Book \| Excel 2002 Book \| Excel XP Book \| Book Store

Terms and Conditions of use The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.
Copyright © 2003 ExcelTip.com Microsoft, Microsoft Excel is a U.S. registered trademark of Microsoft Corporation Site Developed By: Varien