Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Открыть окно выбора цвета, чтобы получить цвет и его названи - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Открыть окно выбора цвета, чтобы получить цвет и его названи
George87 Дата: Пятница, 06.10.2017, 14:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Названия цветов определяются только с эстетической целью.
Хочу показать-поделиться. Может быть, кому-то пригодится вариант решения.
Макрос см. на диске Yandex:
http://yadi.sk/d/efel4tND3NXFbH
(файл с макросом – около 1 Мб – больше разрешённого для загрузки на форум, даже если максимально сжать архиватором)

Для работы с системными цветами (GetSysColor) макрос использует библиотеку
%systemroot%\system32\user32.dll

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

Название выбранного пользователем цвета определяется названием ближайшего цвета, которое записано в соответствующий массив.
Для этого используется формула аналитической геометрии для вычисления расстояния между двумя точками (представляющими цвета) в трёхмерной прямоугольной системе координат Декартова пространства. В качестве осей координат выступают составляющие компоненты цвета: красный (red), зелёный (green) и синий (blue).
Производится обработка и значений системных цветов Windows.

Я не стал делать массив названий цветов доступным для пользователя (например, в виде txt-файла), т.к. это значительно усложнило бы код макроса, ведь надо было бы не только прочитать данные из txt-файла, но и проверить их корректность. Для моего проекта в этом нет необходимости.

В программировании я – любитель-самоучка, поэтому понимаю, что мой алгоритм может требовать оптимизации.
Представленный проект разрабатывался в Excel 2003 на Windows 7x32 и немного тестировался под более новыми версиями Excel и Windows.

Представленный алгоритм был использован мною в макросе, создающем в Excel иерархический список всех каталогов и файлов, как в проводнике Windows:
http://yadi.sk/d/M6-sV68v3K7ie3
excelworld.ru/forum/3-34371-1

С уважением,
Георгий Данилов


Сообщение отредактировал George87 - Пятница, 06.10.2017, 14:33
 
Ответить
СообщениеНазвания цветов определяются только с эстетической целью.
Хочу показать-поделиться. Может быть, кому-то пригодится вариант решения.
Макрос см. на диске Yandex:
http://yadi.sk/d/efel4tND3NXFbH
(файл с макросом – около 1 Мб – больше разрешённого для загрузки на форум, даже если максимально сжать архиватором)

Для работы с системными цветами (GetSysColor) макрос использует библиотеку
%systemroot%\system32\user32.dll

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

Название выбранного пользователем цвета определяется названием ближайшего цвета, которое записано в соответствующий массив.
Для этого используется формула аналитической геометрии для вычисления расстояния между двумя точками (представляющими цвета) в трёхмерной прямоугольной системе координат Декартова пространства. В качестве осей координат выступают составляющие компоненты цвета: красный (red), зелёный (green) и синий (blue).
Производится обработка и значений системных цветов Windows.

Я не стал делать массив названий цветов доступным для пользователя (например, в виде txt-файла), т.к. это значительно усложнило бы код макроса, ведь надо было бы не только прочитать данные из txt-файла, но и проверить их корректность. Для моего проекта в этом нет необходимости.

В программировании я – любитель-самоучка, поэтому понимаю, что мой алгоритм может требовать оптимизации.
Представленный проект разрабатывался в Excel 2003 на Windows 7x32 и немного тестировался под более новыми версиями Excel и Windows.

Представленный алгоритм был использован мною в макросе, создающем в Excel иерархический список всех каталогов и файлов, как в проводнике Windows:
http://yadi.sk/d/M6-sV68v3K7ie3
excelworld.ru/forum/3-34371-1

С уважением,
Георгий Данилов

Автор - George87
Дата добавления - 06.10.2017 в 14:08
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!