Generate Excel Colour Codes in Hex / RGB

The following code will generate the colours available to you in Excel.

This works in all flavors of Excel i believe (including 2010 although there maybe more colours available to 2010... i don't know)

Paste the following code into a new workbook - ThisWorkbook module

Private Sub Workbook_open()

'57 colors, 0 to 56

  Application.ScreenUpdating = False

  Application.Calculation = xlCalculationManual   'pre XL97 xlManual

Dim i As Long

Dim str0 As String, str As String

For i = 0 To 56

  Cells(i + 1, 1).Interior.ColorIndex = i

  Cells(i + 1, 1).Value = "[Color " & i & "]"

  Cells(i + 1, 2).Font.ColorIndex = i

  Cells(i + 1, 2).Value = "[Color " & i & "]"

  str0 = Right("000000" & Hex(Cells(i + 1, 1).Interior.Color), 6)

  'Excel shows nibbles in reverse order so make it as RGB

  str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)

  'generating 2 columns in the HTML table

  Cells(i + 1, 3) = "#" & str

  Cells(i + 1, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"

  Cells(i + 1, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"

  Cells(i + 1, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"

  Cells(i + 1, 7) = "[Color " & i & ")"

Next i

done:

  Application.Calculation = xlCalculationAutomatic  'pre XL97 xlAutomatic

  Application.ScreenUpdating = True

End Sub

You can either run it from the VBA Editor, or save the workbook, close it and open it again.