Can someone tell me where i can find the Interior Cell Color Numbers for
2003?

They range from 0 to 55.

If you want to see what color correspond to what number, just create a small
macro to do so :-)


CE

I would if I had 2003

"Charlotte E." wrote:

They range from 0 to 55.

If you want to see what color correspond to what number, just create a small
macro to do so :-)


CE

hi
see this site
http://www.mvps.org/dmcritchie/excel/colors.htm

regards
FSt1

"Mike" wrote:

I would if I had 2003

"Charlotte E." wrote:

They range from 0 to 55.

If you want to see what color correspond to what number, just create a small
macro to do so :-)


CE

XL stores 56 colours (0 - 55). obviously your computer has more than 56
colours but that is the maximum number of colours that XL can keep track of.
By default XL starts off with a stock pallette, but you are free to change
those colours if you wish. So while we could give you a listing of the stock
colours if you have changed any of the colours then all bets are off.

Here is a mocro that you can run to get a listing of the current colours...

Sub ColourList()
Dim rng As Range
Dim lng As Long

Set rng = Range("A1")
For lng = 0 To 55
rng.Value = lng
rng.Offset(0, 1).Interior.ColorIndex = lng
Set rng = rng.Offset(1, 0)
Next lng
End Sub
--
HTH...

Jim Thomlinson


"Mike" wrote:

Can someone tell me where i can find the Interior Cell Color Numbers for
2003?

Thanks Jim

"Jim Thomlinson" wrote:

XL stores 56 colours (0 - 55). obviously your computer has more than 56
colours but that is the maximum number of colours that XL can keep track of.
By default XL starts off with a stock pallette, but you are free to change
those colours if you wish. So while we could give you a listing of the stock
colours if you have changed any of the colours then all bets are off.

Here is a mocro that you can run to get a listing of the current colours...

Sub ColourList()
Dim rng As Range
Dim lng As Long

Set rng = Range("A1")
For lng = 0 To 55
rng.Value = lng
rng.Offset(0, 1).Interior.ColorIndex = lng
Set rng = rng.Offset(1, 0)
Next lng
End Sub
--
HTH...

Jim Thomlinson


"Mike" wrote:

Can someone tell me where i can find the Interior Cell Color Numbers for
2003?

Thanks FSt1

"FSt1" wrote:

hi
see this site
http://www.mvps.org/dmcritchie/excel/colors.htm

regards
FSt1

"Mike" wrote:

I would if I had 2003

"Charlotte E." wrote:

They range from 0 to 55.

If you want to see what color correspond to what number, just create a small
macro to do so :-)


CE

Excel Help doesn't provide this, 40 color palette is on a toolbar icon, and
56 color palette is available with Format, Cells, Patterns(tab)

run this macro to generate 56 colors and its related constants on a worksheet

Sub ColorValue()

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)

For i = 1 To 14
objExcel.Cells(i, 1).Value = i
objExcel.Cells(i, 2).Interior.ColorIndex = i
Next

For i = 15 To 28
objExcel.Cells(i - 14, 3).Value = i
objExcel.Cells(i - 14, 4).Interior.ColorIndex = i
Next

For i = 29 To 42
objExcel.Cells(i - 28, 5).Value = i
objExcel.Cells(i - 28, 6).Interior.ColorIndex = i
Next

For i = 43 To 56
objExcel.Cells(i - 42, 7).Value = i
objExcel.Cells(i - 42, 8).Interior.ColorIndex = i
Next

End Sub

Hope this help. Pls click Yes if this help

cheers

"Mike" wrote:

Can someone tell me where i can find the Interior Cell Color Numbers for
2003?

XL stores 56 colours (0 - 55).

The index of the first colour in the palette is 1, so colours 1 - 56

Regards,
Peter T


"Jim Thomlinson" wrote in message
...
XL stores 56 colours (0 - 55). obviously your computer has more than 56
colours but that is the maximum number of colours that XL can keep track
of.
By default XL starts off with a stock pallette, but you are free to change
those colours if you wish. So while we could give you a listing of the
stock
colours if you have changed any of the colours then all bets are off.

Here is a mocro that you can run to get a listing of the current
colours...

Sub ColourList()
Dim rng As Range
Dim lng As Long

Set rng = Range("A1")
For lng = 0 To 55
rng.Value = lng
rng.Offset(0, 1).Interior.ColorIndex = lng
Set rng = rng.Offset(1, 0)
Next lng
End Sub
--
HTH...

Jim Thomlinson


"Mike" wrote:

Can someone tell me where i can find the Interior Cell Color Numbers
for
2003?