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

[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]

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