Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Как узнать цвет ячейки

Автор Poltava, 19.03.2012, 15:37

« назад - далее »

Poltava

Добрый день. Как узнать цвет ячейки заданный условным форматированием.
        For Each tCell In Range("A1:D3").SpecialCells(xlCellTypeAllFormatConditions)
            MsgBox "Àäðåñ: " & tCell.Address & "  Öâåò: " & tCell.Interior.Color
        Next tCell

Такой код работает только если цвет задан в свойствах, а если через условное_форматирование то нет. у кого какие идеи ???
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.

sergo44441

Я записал макрос с условным форматированием, и от полученного:
MsgBox (Range("A6").FormatConditions(1).Interior.ColorIndex)
работает
Не торопись, и все успеешь намного быстрее

kuklp

#2
Узнать цвет, полученный в результате условного форматирования, можно только последовательно вычисляя все формулы УФ. Можете еще глянуть здесь: http://www.planetaexcel.ru/forum.php?thread_id=31265 И надстройка The_Prist: http://www.excel-vba.ru/general/moi-nadstrojki/the_prist_fctoreal-zamena-uslovnogo-formatirovaniya-obychnym/
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Poltava

sergo44441 Выложите фай лик где у вас все работает.
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.

kuklp

Poltava, Вы мне не верите? Код Сергея, выдаст Вам цвет заливки, к-рый ЗАДАН в первом условии УФ. Но не тот цвет, в к-рый реально окрашена ячейка(кроме того случая, когда условие УФ выполняется).
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Poltava

Ув. KuklP от чего же сразу не верю! Верю но хотелось увидеть может я чего то не знаю. Просто не хочется вам верить потому что в таком случае придется раскрашивать все это программно и переходить от УФ к VBA а в программировании не силен. Но похоже вариантов нет будем разбираться. Спасибо за ответы.
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.