Set the color for whole range : Range Format « Excel « VBA / Excel / Access / Word






Set the color for whole range

 
Sub ColorCells4()
   Dim Rng As Range
  
   For Each Rng In Range("A1:E5")
      If Rng.Value < 100 Then
         Rng.Font.ColorIndex = 4
      Else
         Rng.Font.ColorIndex = 1
      End If
   Next Rng
End Sub

 








Related examples in the same category

1.Format current region
2.The Font property
3.Use the Range and Cells properties of the Worksheet object to return a Range object.
4.Sets to True the Bold property of the Font object contained in the Range object
5.The Interior property:changes the Color property of the Interior object contained in the Range object:
6.Specify colors with VBA's RGB function.
7.Formatting Range: HorizontalAlignment, VerticalAlignment, MergeCells
8.Formatting Range: Font
9.Changes font to bold
10.Changes color of numbers < 100
11.Change range border style
12.Change range border color
13.Providing Dynamic Scaling to Your Worksheets
14.Strolling Through the Color Palette
15.Line style: xlContinuous
16.Line style: xlDash
17.Line style: xlDashDot
18.Line style: xlDashDotDot
19.Line style: xlDot
20.Line style: xlDouble
21.Line style: xlLineStyleNone
22.Line style: xlSlantDashDot
23.Using the Interior Object to Alter the Background of a Range
24.Set the underline, color and font name
25.Make column headings bold
26.Add & format totals
27.Format date on report
28.Widen first column to display text
29.Make text in first column bold