H HuaMin Mar 16, 2010 #3 Many thanks. I've tried the values 3, 4 for the index. But I don't see any difference in the cell. How do we know which index is for which color?
Many thanks. I've tried the values 3, 4 for the index. But I don't see any difference in the cell. How do we know which index is for which color?
B Bob Phillips Mar 16, 2010 #4 Here is an enumerated list which you can add to a module and then use the colour constant name. Public Enum xlColorIndex xlCIBlack = 1 xlCIWhite = 2 xlCIRed = 3 xlCIBrightGreen = 4 xlCIBlue = 5 xlCIYellow = 6 xlCIPink = 7 xlCITurquoise = 8 xlCIDarkRed = 9 xlCIGreen = 10 xlCIDarkBlue = 11 xlCIDarkYellow = 12 xlCIViolet = 13 xlCITeal = 14 xlCIGray25 = 15 xlCIGray50 = 16 xlChartCIPeriwinkle = 17 '----------------------------- xlChartCIPlum = 18 ' chart colours xlChartCIIvory = 19 ' xlChartCILightTurquoise = 20 ' xlChartCIDarkPurple = 21 ' xlChartCICoral = 22 ' xlChartCIOceanBlue = 23 ' xlChartCIIceBlue = 24 ' xlChartCIDarkBlue = 25 ' xlChartCIPink = 26 ' xlChartCIYellow = 27 ' xlChartCITurquoise = 28 ' xlChartCIViolet = 29 ' xlChartCIDarkRed = 30 ' xlChartCITeal = 31 ' xlChartCIBlue = 32 '----------------------------- xlCISkyBlue = 33 xlCILightGreen = 35 xlCILightYellow = 36 xlCIPaleBlue = 37 xlCIRose = 38 xlCILavender = 39 xlCITan = 40 xlCILightBlue = 41 xlCIAqua = 42 xlCILime = 43 xlCIGold = 44 xlCILightOrange = 45 xlCIOrange = 46 xlCIBlueGray = 47 xlCIGray40 = 48 xlCIDarkTeal = 49 xlCISeaGreen = 50 xlCIDarkGreen = 51 xlCIBrown = 53 xlCIIndigo = 55 xlCIGray80 = 56 End Enum
Here is an enumerated list which you can add to a module and then use the colour constant name. Public Enum xlColorIndex xlCIBlack = 1 xlCIWhite = 2 xlCIRed = 3 xlCIBrightGreen = 4 xlCIBlue = 5 xlCIYellow = 6 xlCIPink = 7 xlCITurquoise = 8 xlCIDarkRed = 9 xlCIGreen = 10 xlCIDarkBlue = 11 xlCIDarkYellow = 12 xlCIViolet = 13 xlCITeal = 14 xlCIGray25 = 15 xlCIGray50 = 16 xlChartCIPeriwinkle = 17 '----------------------------- xlChartCIPlum = 18 ' chart colours xlChartCIIvory = 19 ' xlChartCILightTurquoise = 20 ' xlChartCIDarkPurple = 21 ' xlChartCICoral = 22 ' xlChartCIOceanBlue = 23 ' xlChartCIIceBlue = 24 ' xlChartCIDarkBlue = 25 ' xlChartCIPink = 26 ' xlChartCIYellow = 27 ' xlChartCITurquoise = 28 ' xlChartCIViolet = 29 ' xlChartCIDarkRed = 30 ' xlChartCITeal = 31 ' xlChartCIBlue = 32 '----------------------------- xlCISkyBlue = 33 xlCILightGreen = 35 xlCILightYellow = 36 xlCIPaleBlue = 37 xlCIRose = 38 xlCILavender = 39 xlCITan = 40 xlCILightBlue = 41 xlCIAqua = 42 xlCILime = 43 xlCIGold = 44 xlCILightOrange = 45 xlCIOrange = 46 xlCIBlueGray = 47 xlCIGray40 = 48 xlCIDarkTeal = 49 xlCISeaGreen = 50 xlCIDarkGreen = 51 xlCIBrown = 53 xlCIIndigo = 55 xlCIGray80 = 56 End Enum
J Jacob Skaria Mar 16, 2010 #5 Check out http://www.mvps.org/dmcritchie/excel/colors.htm ActiveSheet.Range("A1:A10").Font.ColorIndex = 3
Check out http://www.mvps.org/dmcritchie/excel/colors.htm ActiveSheet.Range("A1:A10").Font.ColorIndex = 3
