Changes color of numbers < 100 : Range Format « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Range Format

Changes color of numbers < 100

 
Sub ColorCells1()
   Dim myRange As Range
   Dim i As Long, j As Long
 
   Set myRange = Range("A1:A5")
   For i = 1 To myRange.Rows.Count
      For j = 1 To myRange.Columns.Count
         If myRange.Cells(i, j).Value < 100 Then
            myRange.Cells(i, j).Font.ColorIndex = 3
         Else
            myRange.Cells(i, j).Font.ColorIndex = 1
         End If
      Next j
   Next i
End Sub

 

Related examples in the same category