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

Вход

Регистрация

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

 

= Мир MS Excel/Считывание цвета ячейки закрашенное при УФ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Считывание цвета ячейки закрашенное при УФ (Макросы/Sub)
Считывание цвета ячейки закрашенное при УФ
MSL Дата: Пятница, 04.09.2020, 10:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Подскажите пожалуйста как считать програмно цвет ячеек с УФ в выбранном диапазоне.
(Цвета ячеек получены через условное форматирование.)
УФ красит ячейки каким либо цветом, не важно сколько там условий в УФ.
Цвета могут быть разные, в зависимости от условий.
Просто закрашенные ячейки без УФ я считывать могу, а вот закраску через УФ не знаю как.

Не волнуйтесь, если что-то не работает. Если бы всё работало, вас бы уволили.
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста как считать програмно цвет ячеек с УФ в выбранном диапазоне.
(Цвета ячеек получены через условное форматирование.)
УФ красит ячейки каким либо цветом, не важно сколько там условий в УФ.
Цвета могут быть разные, в зависимости от условий.
Просто закрашенные ячейки без УФ я считывать могу, а вот закраску через УФ не знаю как.
Автор - MSL
Дата добавления - 04.09.2020 в 10:08
Hugo Дата: Пятница, 04.09.2020, 11:15 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
DisplayFormat используйте. Но не будет работать в UDF!
[vba]
Код

Sub tt()
MsgBox Cells(1, 1).DisplayFormat.Font.Color
Cells(1, 5).Font.Color = Cells(1, 1).DisplayFormat.Font.Color
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Пятница, 04.09.2020, 11:21
 
Ответить
СообщениеDisplayFormat используйте. Но не будет работать в UDF!
[vba]
Код

Sub tt()
MsgBox Cells(1, 1).DisplayFormat.Font.Color
Cells(1, 5).Font.Color = Cells(1, 1).DisplayFormat.Font.Color
End Sub

[/vba]
Автор - Hugo
Дата добавления - 04.09.2020 в 11:15
MSL Дата: Пятница, 04.09.2020, 12:13 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Hugo! Спасибо. "А ларчик просто открывался". А я всю голову сломал... :-)

Не волнуйтесь, если что-то не работает. Если бы всё работало, вас бы уволили.
 
Ответить
СообщениеHugo! Спасибо. "А ларчик просто открывался". А я всю голову сломал... :-)
Автор - MSL
Дата добавления - 04.09.2020 в 12:13
Hugo Дата: Пятница, 04.09.2020, 12:16 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Работает начиная с 2010.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеРаботает начиная с 2010.
Автор - Hugo
Дата добавления - 04.09.2020 в 12:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Считывание цвета ячейки закрашенное при УФ (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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