Получить текстовое значение цвета заливки ячейки

@Igor_Tr · Регистрация: 17.01.2010

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

VBA. W 7. Нужно получить текстовое значение цвета заливки
Например, я так это представляю:

Visual Basic
1
2
3
     ActiveCell.Interior.ColorIndex = 6
     mSring =ActiveCell. <текстовое название цвета ("Желтый")>
     ActiveCell.Offset(0,1).Value = mString

Где-то в системе имена цветов прописаны, но где и как их вытянуть в процедуру?
Нужна подсказка.
Спасибо.

@ikki · 19.05.2012, 14:06

имена - нет, не прописаны
но есть константы (имеющие числовые значения), например vbRed или vbYellow, которые можно указать в качестве цвета заливки.
правда, для этого надо использовать свойство Color, а не ColorIndex.

@Igor_Tr · 19.05.2012, 14:31 **[ТС]**

Хорошо. Прописал ActiveCell.Interior.Color = vbRed - получил в ячейке красный. А как наоборот, получить значение vbRed (как текстовое сообщение)?

@ikki · 19.05.2012, 14:48

как-то так:

Visual Basic
1
2
3
4
5
6
7
select case ActiveCell.Interior.Color
  case 0: sColor="vbBlack"
  case 16711680: sColor="vbBlue"
  case 255: sColor="vbRed"
  '... etc
  case else: sColor="other"
end select

можно оформить это в отдельную функцию и сохранить ее, к примеру, в personal.xls - тогда она будет доступна из любого модуля любой книги.

Добавлено через 1 минуту
значения констант можно посмотреть в Object Browser, раздел ColorConstants

@Igor_Tr · 19.05.2012, 16:37 **[ТС]**

Спасибо за Ваш труд, но через Select, If, ets. для меня не проблема, только для этого все надо забивать руками и листинг получается большой (цветов в обычной палитре - 40, а в расширенной - 56). Вот я и хотел бы как-то обратиться к системе, чтоб она за меня все сделала.

@ikki · 19.05.2012, 16:47

возможно, Вы пропустили в посте #2 вот это:

Сообщение от ikki_cf

имена - нет, не прописаны

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	19.05.2012, 14:06
	имена - нет, не прописаны но есть константы (имеющие числовые значения), например vbRed или vbYellow, которые можно указать в качестве цвета заливки. правда, для этого надо использовать свойство Color, а не ColorIndex. 1

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	19.05.2012, 14:31 [ТС]
	Хорошо. Прописал ActiveCell.Interior.Color = vbRed - получил в ячейке красный. А как наоборот, получить значение vbRed (как текстовое сообщение)? 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	19.05.2012, 16:37 [ТС]
	Спасибо за Ваш труд, но через Select, If, ets. для меня не проблема, только для этого все надо забивать руками и листинг получается большой (цветов в обычной палитре - 40, а в расширенной - 56). Вот я и хотел бы как-то обратиться к системе, чтоб она за меня все сделала. 0