Where to find the code for each color

[mrchonginhk]

For eg color for normal black is 1677215

Where to find the code of other color ??

 

[tactps]

I am not sure where you get that colour code from, but if you look in VBA help, under "ColorIndex Property" you will get a list of colours and their codes. Also, see "RGB function".

 

[jindon]

Hi
add new sheet and run the code

Sub clr()
Dim lastR As Range, i As Integer
With ActiveSheet
    .Range("a:b").Clear
    For i = 1 To 56
        Set lastR = .Range("a65536").End(xlUp)
        lastR.Offset(i).Interior.ColorIndex = i
        lastR.Offset(i, 1) = i
    Next
End With
End Sub

it will display colrindex in Col.B
rgds,
jindon

 

[HalfAce]

Wow Jindon!
That is way cool.

 

[jindon]

Hi, HalfAce

I'm glad if you like it!

rgds,
jindon

 

[tactps]

Agreed - very neat!

 

[Fergus]

Hi,

Also have a look at http://www.geocities.com/davemcritchie/excel/colors.htm
HTH