Makes cell background red if the value is negative : Cell Format « Excel « VBA / Excel / Access / Word






Makes cell background red if the value is negative

 
Sub SelectiveColor2()
    Dim FormulaCells As Range
    Dim ConstantCells As Range

    Const REDINDEX = 3

    On Error Resume Next
    Application.ScreenUpdating = False

    Set FormulaCells = Selection.SpecialCells (xlFormulas, xlNumbers)
    Set ConstantCells = Selection.SpecialCells (xlConstants, xlNumbers)

    For Each cell In FormulaCells
        If cell.Value < 0 Then _
          cell.Font.ColorIndex = REDINDEX
    Next cell

    For Each cell In ConstantCells
        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.Coloring all negative cells' backgrounds red
10.Color multiple-column ranges