Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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