Coloring all negative cells' backgrounds red : Cell Format « Excel « VBA / Excel / Access / Word






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