Sub to list colorindexes and the corresponding fill colours
 

Hi Max,

By fill colour, do you mean the RGB equivalent?

Public Sub Colours()
Dim i As Long
Dim tmp, tRed, tBlue, tGreen

For i = 1 To 56
Cells(i, "A").Value = i
Cells(i, "C").Interior.ColorIndex = i
tmp = GetRGB(ActiveWorkbook.Colors(i), tRed, tGreen, tBlue)
Cells(i, "B").Value = "RGB(" & tRed & ", " & tGreen & ", " & tBlue &
")"
Next i
Columns("B:B").AutoFit

End Sub

--
HTH

Bob Phillips

"Max" wrote in message
...
Hi guys,

(Apologies for the earlier post w/o any subject line)

I'm looking for a sub which can list all the colorindexes down say col A,
and all the corresponding fill colors in col B ?

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----

Sub to list colorindexes and the corresponding fill colours
 

Thanks, Bob

Despite several tries at running your sub, I kept hitting:
Compile error: Sub or Function not defined

and "GetRGB" was highlighted in the line:
tmp = GetRGB(ActiveWorkbook.Colors(i), tRed, tGreen, tBlue)

What can I do ?

By fill colour, do you mean the RGB equivalent?
Actually, I'm afraid I don't know <g. Am new at this.

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----
"Bob Phillips" wrote in message
...
Hi Max,



Public Sub Colours()
Dim i As Long
Dim tmp, tRed, tBlue, tGreen

For i = 1 To 56
Cells(i, "A").Value = i
Cells(i, "C").Interior.ColorIndex = i
tmp = GetRGB(ActiveWorkbook.Colors(i), tRed, tGreen, tBlue)
Cells(i, "B").Value = "RGB(" & tRed & ", " & tGreen & ", " & tBlue
&
")"
Next i
Columns("B:B").AutoFit

End Sub

Sub to list colorindexes and the corresponding fill colours
 

Bob forgot to furnish this function to go along with the code:

Public Function GetRGB(colour As Long, ByRef red, ByRef green, ByRef blue)


red = colour And &HFF
green = colour \ 256 And &HFF
blue = colour \ 256 ^ 2 And &HFF


End Function




--

Regards,

Tom Ogilvy



"Max" wrote in message
...
Thanks, Bob

Despite several tries at running your sub, I kept hitting:
Compile error: Sub or Function not defined

and "GetRGB" was highlighted in the line:
tmp = GetRGB(ActiveWorkbook.Colors(i), tRed, tGreen, tBlue)

What can I do ?

By fill colour, do you mean the RGB equivalent?
Actually, I'm afraid I don't know <g. Am new at this.

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----
"Bob Phillips" wrote in message
...
Hi Max,



Public Sub Colours()
Dim i As Long
Dim tmp, tRed, tBlue, tGreen

For i = 1 To 56
Cells(i, "A").Value = i
Cells(i, "C").Interior.ColorIndex = i
tmp = GetRGB(ActiveWorkbook.Colors(i), tRed, tGreen, tBlue)
Cells(i, "B").Value = "RGB(" & tRed & ", " & tGreen & ", " &
tBlue
&
")"
Next i
Columns("B:B").AutoFit

End Sub

Sub to list colorindexes and the corresponding fill colours
 

"Tom Ogilvy" wrote
Bob forgot to furnish this function to go along with the code:
Public Function GetRGB(colour As Long, ByRef red, ByRef green, ByRef blue)
red = colour And &HFF
green = colour \ 256 And &HFF
blue = colour \ 256 ^ 2 And &HFF
End Function

Thanks, Tom (again) !
Yes, that did it here, too !
--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----

Sub to list colorindexes and the corresponding fill colours
 

Sorry Max, muissed that function. Here it is

Public Function GetRGB(colour As Long, ByRef red, ByRef green, ByRef blue)

red = colour And &HFF
green = colour \ 256 And &HFF
blue = colour \ 256 ^ 2 And &HFF

End Function


--
HTH

Bob Phillips

"Max" wrote in message
...
Thanks, Bob

Despite several tries at running your sub, I kept hitting:
Compile error: Sub or Function not defined

and "GetRGB" was highlighted in the line:
tmp = GetRGB(ActiveWorkbook.Colors(i), tRed, tGreen, tBlue)

What can I do ?

By fill colour, do you mean the RGB equivalent?
Actually, I'm afraid I don't know <g. Am new at this.

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----
"Bob Phillips" wrote in message
...
Hi Max,



Public Sub Colours()
Dim i As Long
Dim tmp, tRed, tBlue, tGreen

For i = 1 To 56
Cells(i, "A").Value = i
Cells(i, "C").Interior.ColorIndex = i
tmp = GetRGB(ActiveWorkbook.Colors(i), tRed, tGreen, tBlue)
Cells(i, "B").Value = "RGB(" & tRed & ", " & tGreen & ", " &
tBlue
&
")"
Next i
Columns("B:B").AutoFit

End Sub

Sub to list colorindexes and the corresponding fill colours
 

"Bob Phillips" wrote
Sorry Max, muissed that function. Here it is ...
It's ok, Bob. Got the missing piece from Tom just now
Thanks for the response !
--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----