Coloring all negative cells' backgrounds red : Cell Format « 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

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

VBA / Excel / Access / Word » Excel » Cell Format

Coloring all negative cells' backgrounds red


 

Sub SelectiveColor1()

    If TypeName(Selection) <> "Range" Then Exit Sub

    Const REDINDEX = 3

    Application.ScreenUpdating = False

    For Each Cell In Selection

        If Cell.value < 0 Then

          Cell.Interior.ColorIndex = REDINDEX

        Else

          Cell.Interior.ColorIndex = xlNone

        End If

    Next Cell

End Sub

Related examples in the same category

1.	the font color of all cells in the active worksheet is set to red
2.	Sets just the color of cell C1 to red.
3.	Set cell color
4.	Make the font in number cell bold
5.	Set data to cell D1 of the selected worksheet. And format its contents with color and borders.
6.	Color cells
7.	Removes all borders for the selected cells
8.	Make a Cell font bold based on the cell value
9.	Color multiple-column ranges
10.	Makes cell background red if the value is negative

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.