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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод HEX код цвета из конкретной ячейки формулой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод HEX код цвета из конкретной ячейки формулой (Формулы)
Вывод HEX код цвета из конкретной ячейки формулой
Pavell Дата: Четверг, 05.09.2013, 13:20 | Сообщение № 1
Группа: Гости
Друзья, помогите пожалуйста вывести HEX код из ячейки, залитой цветом. Заранее благодарю.
 
Ответить
СообщениеДрузья, помогите пожалуйста вывести HEX код из ячейки, залитой цветом. Заранее благодарю.
Автор - Pavell
Дата добавления - 05.09.2013 в 13:20
KuklP Дата: Четверг, 05.09.2013, 13:29 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Формулы не понимают, что такое цвет. Они работают только со значениями.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеФормулы не понимают, что такое цвет. Они работают только со значениями.
Автор - KuklP
Дата добавления - 05.09.2013 в 13:29
MCH Дата: Четверг, 05.09.2013, 13:41 | Сообщение № 3
Группа: Админы
Ранг: Старожил
Сообщений: 2008
Репутация: 752 ±
Замечаний: ±

UDF
[vba]
Код
Function HexColor$(rng As Range)
     Dim clr&
     clr = rng.Interior.Color
     HexColor = Right(0 & Hex(clr Mod 256), 2) & Right(0 & Hex(clr \ 256 Mod 256), 2) & Right(0 & Hex(clr \ 65536 Mod 256), 2)
End Function
[/vba]
 
Ответить
СообщениеUDF
[vba]
Код
Function HexColor$(rng As Range)
     Dim clr&
     clr = rng.Interior.Color
     HexColor = Right(0 & Hex(clr Mod 256), 2) & Right(0 & Hex(clr \ 256 Mod 256), 2) & Right(0 & Hex(clr \ 65536 Mod 256), 2)
End Function
[/vba]
Автор - MCH
Дата добавления - 05.09.2013 в 13:41
Serge_007 Дата: Четверг, 05.09.2013, 13:41 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Макросом:[vba]
Код
Sub q()
      Dim x
      x = Range("a1").Interior.Color
      x = Hex(x)
      MsgBox x
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеМакросом:[vba]
Код
Sub q()
      Dim x
      x = Range("a1").Interior.Color
      x = Hex(x)
      MsgBox x
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 05.09.2013 в 13:41
Pavell Дата: Пятница, 06.09.2013, 09:00 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Очень благодарен за помощь!
Очевидно, что я далеко не самый умелый пользователь. Буду признателен, если можно показать на примере. В первой колонке цвет, во второй хотелось бы увидеть HEX код.

С уважением Павел.
 
Ответить
СообщениеОчень благодарен за помощь!
Очевидно, что я далеко не самый умелый пользователь. Буду признателен, если можно показать на примере. В первой колонке цвет, во второй хотелось бы увидеть HEX код.
Автор - Pavell
Дата добавления - 06.09.2013 в 09:00
MCH Дата: Пятница, 06.09.2013, 10:40 | Сообщение № 6
Группа: Админы
Ранг: Старожил
Сообщений: 2008
Репутация: 752 ±
Замечаний: ±

.
К сообщению приложен файл: RGB.xls (37.5 Kb)
 
Ответить
Сообщение.
Автор - MCH
Дата добавления - 06.09.2013 в 10:40
Pavell Дата: Пятница, 06.09.2013, 11:25 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Уважаемые метры!
Большое спасибо. Во вложении файл с кодом, который выводится макросом, привел скриншот расхождений с цветом, который выводится по этому коду в фотошопе. Различия на лицо.

Буду признателен за любую помощь
К сообщению приложен файл: RGB2.xls (44.0 Kb)

С уважением Павел.
 
Ответить
СообщениеУважаемые метры!
Большое спасибо. Во вложении файл с кодом, который выводится макросом, привел скриншот расхождений с цветом, который выводится по этому коду в фотошопе. Различия на лицо.

Буду признателен за любую помощь
Автор - Pavell
Дата добавления - 06.09.2013 в 11:25
MCH Дата: Пятница, 06.09.2013, 11:35 | Сообщение № 8
Группа: Админы
Ранг: Старожил
Сообщений: 2008
Репутация: 752 ±
Замечаний: ±

Ваш "Синтий Клейна" Photoshop показывает как - 3a75c4 (там вообще градиент от 3a75c4 до 356ab2), цвет "Fotoshop" - 3972bf (тоже градиент от 3a75c4 до 376eb8), цвет "Excel" - 696dbf


Сообщение отредактировал MCH - Пятница, 06.09.2013, 11:41
 
Ответить
СообщениеВаш "Синтий Клейна" Photoshop показывает как - 3a75c4 (там вообще градиент от 3a75c4 до 356ab2), цвет "Fotoshop" - 3972bf (тоже градиент от 3a75c4 до 376eb8), цвет "Excel" - 696dbf
Автор - MCH
Дата добавления - 06.09.2013 в 11:35
MCH Дата: Пятница, 06.09.2013, 11:44 | Сообщение № 9
Группа: Админы
Ранг: Старожил
Сообщений: 2008
Репутация: 752 ±
Замечаний: ±

Вот пример цвета 696DBF из Photoshop, сравните с Excel


PS: Все таки Excel не предназначен для работы с цветом, для этого есть специализированные программы
К сообщению приложен файл: 5087480.png (0.2 Kb)


Сообщение отредактировал MCH - Пятница, 06.09.2013, 12:23
 
Ответить
СообщениеВот пример цвета 696DBF из Photoshop, сравните с Excel


PS: Все таки Excel не предназначен для работы с цветом, для этого есть специализированные программы
Автор - MCH
Дата добавления - 06.09.2013 в 11:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод HEX код цвета из конкретной ячейки формулой (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

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