Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
cells interior/color index
How/Where do I get the color index? I used the names of the colors: Code: -------------------- For i = 1 To grpnr Select Case D1(i) Case Cells.Interior("Light Orange") grpsize(i) = 6 Case Cells.Interior("Aqua") grpsize(i) = 4 Case Cells.Interior("Plum") grpsize(i) = 3 Case Cells.Interior("Rose") grpsize(i) = 2 Case Else MsgBox "error in grouping color" End Select Next i -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
cells interior/color index
Hi tandavina
The best way for you to learn something like this (the same as for everyone - myself included) is to use the Macro recorder on the Tools...Macros menu This is always the best way to start when you don't know what objects you need... When you have finished recording the actions that you need the code for, click Stop on the Tools..Macros menu, and use ALT-F8 to show the Macros dialog. Select the new macro that you just recorded, and choose 'Edit' then you can see the code that has been recorded, and this will help you see what objects are used, and give you a head start. If you are still stuck modifying the code, let uis know and we'll help .... Regards Yngve |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
cells interior/color index
Hi
Run this macro on a empty sheet Sub ListColorIndexes() Dim Ndx As Integer For Ndx = 1 To 56 Cells(Ndx, 1).Interior.ColorIndex = Ndx Cells(Ndx, 2).Value = Ndx Next Ndx End Sub See also http://www.mvps.org/dmcritchie/excel/colors.htm -- Regards Ron de Bruin http://www.rondebruin.nl "tandavina" wrote in message ... How/Where do I get the color index? I used the names of the colors: Code: -------------------- For i = 1 To grpnr Select Case D1(i) Case Cells.Interior("Light Orange") grpsize(i) = 6 Case Cells.Interior("Aqua") grpsize(i) = 4 Case Cells.Interior("Plum") grpsize(i) = 3 Case Cells.Interior("Rose") grpsize(i) = 2 Case Else MsgBox "error in grouping color" End Select Next i -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
cells interior/color index
See http://tinyurl.com/8h9lw, Peter and I cover most there.
Your code should look like Cells.Interior.Colorindex = xlCILight Orange although your case statement looks odd to me, so perhaps it should say Select Case D1(i) Case xlCILight Orange grpsize(i) = 6 etc. -- HTH Bob Phillips (remove nothere from the email address if mailing direct) "tandavina" wrote in message ... How/Where do I get the color index? I used the names of the colors: Code: -------------------- For i = 1 To grpnr Select Case D1(i) Case Cells.Interior("Light Orange") grpsize(i) = 6 Case Cells.Interior("Aqua") grpsize(i) = 4 Case Cells.Interior("Plum") grpsize(i) = 3 Case Cells.Interior("Rose") grpsize(i) = 2 Case Else MsgBox "error in grouping color" End Select Next i -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
cells interior/color index
1. enter this tiny macro:
Sub Macro1() MsgBox (Selection.Interior.ColorIndex) End Sub 2. set the background color of any cell to any color and select that cell 3. run the macro to get the number So if you set a cell t light orange, you would see 45 -- Gary''s Student "tandavina" wrote: How/Where do I get the color index? I used the names of the colors: Code: -------------------- For i = 1 To grpnr Select Case D1(i) Case Cells.Interior("Light Orange") grpsize(i) = 6 Case Cells.Interior("Aqua") grpsize(i) = 4 Case Cells.Interior("Plum") grpsize(i) = 3 Case Cells.Interior("Rose") grpsize(i) = 2 Case Else MsgBox "error in grouping color" End Select Next i -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
lock cells based on interior color | Excel Discussion (Misc queries) | |||
Chart axes color index vs font color index | Charts and Charting in Excel | |||
Range based on interior color index? | Excel Programming | |||
Sum all cells with interior color... | Excel Programming | |||
Passing Back Color to Interior Color | Excel Programming |