Автоматическая замена цвета фона списка

Пользователь

Сообщений: 48 Регистрация: 01.01.1970

10.05.2012 12:26:04

Нужно в зависимости от значения одного списка менять цвет фона в другом. Строка ComboBox2.BackColor = "&H0000C000&" в коде

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0
ComboBox2.BackColor = "&H0000C000&"
Case 1
ComboBox2.BackColor = "&H0000FF00&"
End Select
End Sub

выдает ошибку.

Прикрепленные файлы

post_333147.xlsx (15.61 КБ)

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 10.05.2012 13:04:39 Кавычки уберите - требуется число, а не текст. Компилятор убирает ведущие нули: ComboBox2.BackColor = &HC000& Case 1 ComboBox2.BackColor = &HFF00&

Bozhkov Пользователь Сообщений: 48 Регистрация: 01.01.1970	#3 10.05.2012 13:27:26 Спасибо большое, работает!

Bozhkov Пользователь Сообщений: 48 Регистрация: 01.01.1970	#4 10.05.2012 15:52:14 Еще один нюанс. Есть ли таблица цветов? Я бы хотел изменить оттенок цвета (сделать чуть светлее чем стандартный цвет).

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

10.05.2012 22:20:37

Вызовите меню выбора цвета ячейки (или автофигуры, графика и пр.) - Спектр. При выборе цвета там отображается текущий и новый цвет, так что удобно сравнивать.
Запишите числа, соответствующие компонентам Красный, Зеленый, Синий и используйте их:

ComboBox2.BackColor = RGB(r,g,b)

Bozhkov Пользователь Сообщений: 48 Регистрация: 01.01.1970	#6 10.05.2012 22:26:12 Еще раз спасибо!

Читают тему