Задать имя цвета из библиотеки цветов

@OLEGOFF · Регистрация: 27.02.2013

Студворк — интернет-сервис помощи студентам

Уважаемые форумчане.На просторах редактора VBA,а вернее в его дебрях,натолкнулся на библиотеку цветов.
All Libraries --- XlRgbColor.
Там содержится библиотека названий 144 цветов.
Попробовал составить макрос для вывода элементов на лист

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Палитра()
 
Dim Palletmain As XlRgbColor
 
 For i = 1 To 144
 N = Cells(i, 1).Value
 Cells(i, 2) = rgbN
 'Cells(2, 2) = rgbAqua
 Next i
End Sub

Если вводить название цвета напрямую в код,то все работает и выдает значение данного цвета.Никак не могу добиться замены названия на значение из другой ячейки.(из списка этих цветов).Помогите пожалуйста разобраться.

@KoGG · 24.03.2016, 17:35

Лучше удалить дублирующиеся цвета в массивах.

@MU-GK · 25.11.2017, 13:45

Когда-то я активно работал в GS Surfer, часто перебирал цвета.
В общем, вот подборка цветов:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 Public Const srfColorBlack = &H0        '  0
 Public Const srfColorBlack90 = &H191919     '  1644825
 Public Const srfColorBlack80 = &H333333     '  3355443
 Public Const srfColorBlack70 = &H4D4D4D     '  5066061
 Public Const srfColorBlack60 = &H666666     '  6710886
 Public Const srfColorBlack50 = &H808080     '  8421504
 Public Const srfColorBlack40 = &H999999     '  10066329
 Public Const srfColorBlack30 = &HB3B3B3     '  11776947
 Public Const srfColorBlack20 = &HCCCCCC     '  13421772
 Public Const srfColorBlack10 = &HE6E6E6     '  15132390
 Public Const srfColorWhite = &HFFFFFF      '  16777215
 Public Const srfColorBlue = &HFF0000      '  16711680
 Public Const srfColorCyan = &HFFFF00      '  16776960
 Public Const srfColorGreen = &HFF00       '  -256
 Public Const srfColorYellow = &HFFFF      '  -1
 Public Const srfColorRed = &HFF         '  255
 Public Const srfColorMagenta = &HFF00FF     '  16711935
 Public Const srfColorPurple = &HCC0099     '  13369497
 Public Const srfColorOrange = &H66FF      '  26367
 Public Const srfColorPink = &HCC99FF      '  13408767
 Public Const srfColorDarkBrown = &H333366    '  3355494
 Public Const srfColorPowderBlue = &HFFCCCC   '  16764108
 Public Const srfColorPastelBlue = &HFF9999   '  16751001
 Public Const srfColorBabyBlue = &HFF9966    '  16750950
 Public Const srfColorElectricBlue = &HFF6666  '  16737894
 Public Const srfColorTwilightBlue = &HCC6666  '  13395558
 Public Const srfColorNavyBlue = &H993300    '  10040064
 Public Const srfColorDeepNavyBlue = &H660000  '  6684672
 Public Const srfColorDesertBlue = &H996633   '  10053171
 Public Const srfColorSkyBlue = &HFFCC00     '  16763904
 Public Const srfColorIceBlue = &HFFFF99     '  16777113
 Public Const srfColorLightBlueGreen = &HCCCC99 '  13421721
 Public Const srfColorOceanGreen = &H999966   '  10066278
 Public Const srfColorMossGreen = &H666633    '  6710835
 Public Const srfColorDarkGreen = &H333300    '  3355392
 Public Const srfColorForestGreen = &H336600   '  3368448
 Public Const srfColorDarkBlueGreen = &H8000   '  -32768
 Public Const srfColorGrassGreen = &H339900   '  3381504
 Public Const srfColorKentuckyGreen = &H669933  '  6723891
 Public Const srfColorLightGreen = &H66CC33   '  6736947
 Public Const srfColorSpringGreen = &H33CC33   '  3394611
 Public Const srfColorTurquoise = &HCCFF66    '  13434726
 Public Const srfColorSeaGreen = &H99CC33    '  10079283
 Public Const srfColorFadedGreen = &H99CC99   '  10079385
 Public Const srfColorGhostGreen = &HCCFFCC   '  13434828
 Public Const srfColorMintGreen = &H99FF99    '  10092441
 Public Const srfColorArmyGreen = &H669966    '  6723942
 Public Const srfColorAvocadoGreen = &H339966  '  3381606
 Public Const srfColorMartianGreen = &H33CC99  '  3394713
 Public Const srfColorDullGreen = &H66CC99    '  6737049
 Public Const srfColorChartreuse = &HFF99    '  -103
 Public Const srfColorMoonGreen = &H66FFCC    '  6750156
 Public Const srfColorMurkyGreen = &H3333    '  13107
 Public Const srfColorOliveDrab = &H336666    '  3368550
 Public Const srfColorKhaki = &H669999      '  6723993
 Public Const srfColorOlive = &H339999      '  3381657
 Public Const srfColorBananaYellow = &H33CCCC  '  3394764
 Public Const srfColorLightYellow = &H66FFFF   '  6750207
 Public Const srfColorChalk = &H99FFFF      '  10092543
 Public Const srfColorPaleYellow = &HCCFFFF   '  13434879
 Public Const srfColorBrown = &H336699      '  3368601
 Public Const srfColorRedBrown = &H3366CC    '  3368652
 Public Const srfColorGold = &H3399CC      '  3381708
 Public Const srfColorAutumnOrange = &H3366FF  '  3368703
 Public Const srfColorLightOrange = &H3399FF   '  3381759
 Public Const srfColorPeach = &H6699FF      '  6724095
 Public Const srfColorDeepYellow = &HCCFF    '  -13057
 Public Const srfColorSand = &H99CCFF      '  10079487
 Public Const srfColorWalnut = &H3366      '  13158
 Public Const srfColorRubyRed = &H99       '  153
 Public Const srfColorBrickRed = &H33CC     '  13260
 Public Const srfColorTropicalPink = &H6666FF  '  6711039
 Public Const srfColorSoftPink = &H9999FF    '  10066431
 Public Const srfColorFadedPink = &HCCCCFF    '  13421823
 Public Const srfColorDarkRed = &H80       '  128
 Public Const srfColorCrimson = &H663399     '  6697881
 Public Const srfColorRegalRed = &H6633CC    '  6697932
 Public Const srfColorDeepRose = &H9933CC    '  10040268
 Public Const srfColorNeonRed = &H6600FF     '  6684927
 Public Const srfColorDeepPink = &H9966FF    '  10053375
 Public Const srfColorHotPink = &H9933FF     '  10040319
 Public Const srfColorDustyRose = &H9966CC    '  10053324
 Public Const srfColorPlum = &H660066      '  6684774
 Public Const srfColorDeepViolet = &H990099   '  10027161
 Public Const srfColorLightViolet = &HFF99FF   '  16751103
 Public Const srfColorViolet = &HCC66CC     '  13395660
 Public Const srfColorDustyPlum = &H996699    '  10053273
 Public Const srfColorPalePurple = &HCC99CC   '  13408716
 Public Const srfColorMajesticPurple = &HCC3399 '  13382553
 Public Const srfColorNeonPurple = &HFF33CC   '  16724940
 Public Const srfColorLightPurple = &HFF66CC   '  16737996
 Public Const srfColorTwilightViolet = &HCC6699 '  13395609
 Public Const srfColorEasterPurple = &HFF99CC  '  16751052
 Public Const srfColorDeepPurple = &H660033   '  6684723
 Public Const srfColorGrape = &H993366      '  10040166
 Public Const srfColorBlueViolet = &HFF6699   '  16737945
 Public Const srfColorBluePurple = &HFF0099   '  16711833
 Public Const srfColorDeepRiver = &HCC0066    '  13369446
 Public Const srfColorDeepAzure = &HFF3366    '  16724838
 Public Const srfColorStormBlue = &H990033    '  10027059
 Public Const srfColorDeepBlue = &HCC0033    '  13369395
 Public Const srfColorDarkBlue = &H800000    '  8388608

Приводится гекс-значение, закомментировано десятичное.
Что приятно, мнемоника довольно прозрачная.

@OLEGOFF · 25.11.2017, 14:05 **[ТС]**

MU-GK, спасибо за информацию.

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@KoGG 5730 / 1633 / 419 Регистрация: 23.12.2010 Сообщений: 2,455 Записей в блоге: 1
	24.03.2016, 17:35
	Лучше удалить дублирующиеся цвета в массивах. 1

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	25.11.2017, 14:05 [ТС]
	MU-GK, спасибо за информацию. 0