Strolling Through the Color Palette : Range Format « Excel « VBA / Excel / Access / Word






Strolling Through the Color Palette

 

Sub ViewWorkbookColors() 
    Dim rg As Range 
    Dim nIndex As Integer 

    Set rg = ThisWorkbook.Worksheets("Sheet1").Range("A1:E5").Offset(1, 0) 

    For nIndex = 1 To 56 
        rg.Value = nIndex 
        rg.Offset(0, 1).Interior.ColorIndex = nIndex 
        rg.Offset(0, 2).Value = rg.Offset(0, 1).Interior.Color 
        Set rg = rg.Offset(1, 0) 
    Next 

    Set rg = Nothing 
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.Set the color for whole range
12.Change range border style
13.Change range border color
14.Providing Dynamic Scaling to Your Worksheets
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