ColorFillCells в Excel документе

[Poleax]

Создаю отчет Екселевский.
Есть метод ColorFillCells(Номер ячейки, сolorIndeх)

Кто знает градацию цветов для сolorIndeх?

[Gustav]

В хелпе Excel 2000 про ColorIndex

[Poleax]

Gustav
Спасибо, чет я туда и не заглянул.

[Gustav]

Хм... а самое смешное, что в 2003 я что-то подобной картинки не вижу...
И еще по своему опыту знаю, что мне всегда хотелось иметь на эти случаи красивые пацанские константы типа xlRed или xlLightYellow, ан не нашёл я их чего-то в Excel... И макрорекордер сам тоже тупо пишет конкретные литеральные цифры.

P.S. Поискал в Сети. Люди в мире тоже озабочены и, как выяснилось, пишут этот енум сами:

http://www.ozgrid.com/forum/showthread.php?t=53791

 'ColorIndex Enumeration
Public Enum Color 
    Aqua = 42 
    Black = 1 
    Blue = 5 
    BlueGray = 47 
    BrightGreen = 4 
    Brown = 53 
    Cream = 19 
    DarkBlue = 11 
    DarkGreen = 51 
    DarkPurple = 21 
    DarkRed = 9 
    DarkTeal = 49 
    DarkYellow = 12 
    Gold = 44 
    Gray25 = 15 
    Gray40 = 48 
    Gray50 = 16 
    Gray80 = 56 
    Green = 10 
    Indigo = 55 
    Lavender = 39 
    LightBlue = 41 
    LightGreen = 35 
    LightLavender = 24 
    LightOrange = 45 
    LightTurquoise = 20 
    LightYellow = 36 
    Lime = 43 
    NavyBlue = 23 
    OliveGreen = 52 
    Orange = 46 
    PaleBlue = 37 
    Pink = 7 
    Plum = 18 
    PowderBlue = 17 
    Red = 3 
    Rose = 38 
    Salmon = 22 
    SeaGreen = 50 
    SkyBlue = 33 
    Tan = 40 
    Teal = 14 
    Turquoise = 8 
    Violet = 13 
    White = 2 
    Yellow = 6 
     '    Blue = 32 'duplicate of 5
     '    DarkBlue = 25 'duplicate of 11
     '    DarkRed = 30 'duplicate of 9
     '    LightTurquoise = 34 'duplicate of 20
     '    Pink = 26 'duplicate of 7
     '    Plum = 54 'duplicate of 18
     '    Teal = 31 'duplicate of 14
     '    Turquoise = 28 'duplicate of 8
     '    Violet = 29 'duplicate of 13
     '    Yellow = 27 'duplicate of 6
End Enum

http://www.vbforums.com/showthread.php?t=380919

1. Public Enum Colour  'Colours list
2.     None = -4142
3.     Black = 1
4.     White = 2
5.     Red = 3
6.     BrightGreen = 4
7.     Blue = 5
8.     Yellow = 6
9.     Magenta = 7
10.     Cyan = 8
11.     DarkRed = 9
12.     Green = 10
13.     DarkBlue = 11
14.     DarkYellow = 12
15.     Violet = 13
16.     Teal = 14
17.     Grey25 = 15
18.     Grey50 = 16
19.     Lilac = 17
20.     Cream = 19
21.     DarkViolet = 21
22.     Pink = 22
23.     MidBlue = 23
24.     PaleLavender = 24
25.     SkyBlue = 33
26.     LightCyan = 34
27.     LightGreen = 35
28.     LightYellow = 36
29.     PaleBlue = 37
30.     Rose = 38
31.     Lavender = 39
32.     Tan = 40
33.     LightBlue = 41
34.     Aqua = 42
35.     Lime = 43
36.     Gold = 44
37.     LightOrange = 45
38.     Orange = 46
39.     BlueGrey = 47
40.     Grey40 = 48
41.     DarkTeal = 49
42.     SeaGreen = 50
43.     DarkGreen = 51
44.     Olive = 52
45.     Brown = 53
46.     Plum = 54
47.     Indigo = 55
48.     Grey80 = 56
49. End Enum

В первом примере отсортировано по возрастанию названий, во втором - по возрастанию значений. Имена констант соответствует тексту всплывающей подсказки в английской версии Excel (конечно, без пробелов и %) при наводе мыши на элемент раскрывающейся палитры пиктограмм "Цвет заливка" или "Цвет шрифта". Кстати, в выпадающей палитре всего 40 цветов, т.е. не все из 56 там присутствуют. И отсутствующие в 40-цветной палитре фантазиями авторов примеров называются по-разному: например, 17: PowderBlue = 17 и Lilac = 17.

[Poleax]

Попробывал цвета. Не все оказываются соответствуют тем что на картинке..
Некоторые номера отличаются по результату.
По названию если только ориентироваться, и то пока не попробуешь смутно представляешь как какой он цвет из себя.
Проще саму себе отчет написать и цвета по ячейкам раставить по циклу ;-)

[Владимир Максимов]

Как правило, в Excel есть аналогичный метод, позволяющий передать RGB() значение. По полученному значению Excel сам, автоматически, определит ближайших похожий ColorIndex.

Обычно такие методы называются просто Color().

Например, для задания цвета фона ячейки можно записать так:

Range.Interior.Color = RGB(0,255,0)

[Gustav]

Набрёл на интересную ссылку: http://www.mvps.org/dmcritchie/excel/colors.htm
В числе прочего там есть табличка представления цветов для ColorIndex через параметры функции RGB для Color:

Color		Red	Green	Blue
-------------------------------------
[Black]		0	0	0
[White]		255	255	255
[Red]		255	0	0
[Green]		0	255	0
[Blue]		0	0	255
[Yellow]	255	255	0
[Magenta]	255	0	255
[Cyan]		0	255	255
[Color 9]	128	0	0
[Color 10]	0	128	0
[Color 11]	0	0	128
[Color 12]	128	128	0
[Color 13]	128	0	128
[Color 14]	0	128	128
[Color 15]	192	192	192
[Color 16]	128	128	128
[Color 17]	153	153	255
[Color 18]	153	51	102
[Color 19]	255	255	204
[Color 20]	204	255	255
[Color 21]	102	0	102
[Color 22]	255	128	128
[Color 23]	0	102	204
[Color 24]	204	204	255
[Color 25]	0	0	128
[Color 26]	255	0	255
[Color 27]	255	255	0
[Color 28]	0	255	255
[Color 29]	128	0	128
[Color 30]	128	0	0
[Color 31]	0	128	128
[Color 32]	0	0	255
[Color 33]	0	204	255
[Color 34]	204	255	255
[Color 35]	204	255	204
[Color 36]	255	255	153
[Color 37]	153	204	255
[Color 38]	255	153	204
[Color 39]	204	153	255
[Color 40]	255	204	153
[Color 41]	51	102	255
[Color 42]	51	204	204
[Color 43]	153	204	0
[Color 44]	255	204	0
[Color 45]	255	153	0
[Color 46]	255	102	0
[Color 47]	102	102	153
[Color 48]	150	150	150
[Color 49]	0	51	102
[Color 50]	51	153	102
[Color 51]	0	51	0
[Color 52]	51	51	0
[Color 53]	153	51	0
[Color 54]	153	51	102
[Color 55]	51	51	153
[Color 56]	51	51	51

P.S. Несколько странные на первый взгляд промежуточные значения типа 51, 102, 153, 204 на самом деле просто кратные 20% доли от числа 255: 20%, 40%, 60% и 80% соответственно. 128 и 192 - практически 50% и 75%. В связи с этим открытием круглое число 150 для [Color 48] выглядит неожиданно, хотя, возможно, просто описка вместо "обоснованного" 153.