VBA: Excel’s Colour Scheme
To change the colour of a cell we can use:
Cell.Interior.ColorIndex = Num
• Cell is the cell reference
• Interior – refers to the colour of the actual cell colour (The interior property)
• Colourindex is a value between 1 and 56 for one of Excel’s 56 predefined colours
And Num is the number colour assigned to the cell. However, it isn’t always easy to remember which number represents which colour. The following subroutine changes the cell colour based on the row number. So for example row 3 will have colour 3 etc.
As there are 56 preset colours in Excel, this means that cells 59, 115 will have the same colour as the cell in row 3:
Option Explicit Private Sub CommandButton1_Click() Colour_Range (Sheets("Sheet2").Range("A1:A2000")) End Sub Sub Colour_Range(Cell_Range As Range) ' Will Colour each cell in range Dim Cell For Each Cell In Cell_Range Cell.Interior.ColorIndex = Cell.Row Mod 56 Cell.Offset(0, 0).Value = Cell.Row Next End Sub
The routine is activated by a click event.