|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.10.2010, 16:04 | #1 |
Регистрация: 03.10.2010
Сообщений: 6
|
цвета
есть кнопка, которая раскрашивает заданные ячейки в разные цвета
Private Sub CommandButton1_Click() For i = 1 To 20 For j = 1 To 10 Cells(i, j).Interior.Color = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd()) Как сделать так, что в каждой ячейке отображалось шестнадцатиричное значение цвета в формате (R://, G://, B://). Понятно, что будет использоваться Hex(N), возможно понадобится функция Len(N) для посчета длины строки, но как это все скомпоновать |
05.10.2010, 16:39 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Попробуйте такой вариант:
Код:
|
05.10.2010, 16:48 | #3 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Есть вот такой примерчик от Дж. Уокенбаха. Может подойдет.
|
05.10.2010, 18:51 | #4 |
Регистрация: 03.10.2010
Сообщений: 6
|
Все хорошо, но мне нужно чтобы в ячейках значение было уже переведено в шестнадцатиричное -R:33,G:CC,B:CC
|
05.10.2010, 19:06 | #5 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
|
05.10.2010, 19:36 | #6 |
Регистрация: 03.10.2010
Сообщений: 6
|
Черт...Извиняюсь за такие глупые вопросы
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Цвета | Sergeo_89 | Общие вопросы Delphi | 3 | 23.01.2010 18:08 |
Цвета из Парадокса | babalaba | Общие вопросы Delphi | 3 | 22.05.2009 19:56 |
цвета на канве | Juffin | Общие вопросы Delphi | 3 | 17.05.2009 21:57 |
Формат цвета | xTANATOSx | Общие вопросы Delphi | 14 | 02.11.2007 20:22 |
цвета | Toxa | Общие вопросы Delphi | 3 | 20.04.2007 12:03 |