Color cells : Cell Format « Excel « VBA / Excel / Access / Word






Color cells

 

Public Sub ColorCells()
  Dim Sales As Range
  Dim i As Long
  Dim j As Long
  
  Set Sales = Range("SalesData")
  For i = 1 To Sales.Rows.Count
    For j = 1 To Sales.Columns.Count
      If Sales.Cells(i, j).Value < 100 Then
        Sales.Cells(i, j).Font.ColorIndex = 3
      Else
        Sales.Cells(i, j).Font.ColorIndex = 1
      End If
    Next j
  Next i
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.Removes all borders for the selected cells
7.Make a Cell font bold based on the cell value
8.Coloring all negative cells' backgrounds red
9.Color multiple-column ranges
10.Makes cell background red if the value is negative