Зацепил, на свою голову, цвета заливки ячеек

Автор Igor_Tr, 19.05.2012, 10:09

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

Igor_Tr

Нужно получить текстовое значение цвета заливки
Например
     ActiveCell.Interior.ColorIndex = 6
     mSring = <текстовое название цвета ("Желтый")>
     ActiveCell.Offset(0,1).Value = mString
Спасибо.

RAN

Получить у кого?
Если вы думаете, что Excel знает, что
Interior.ColorIndex = 6
это по русски желтый, то боюсь вас разочаровать.

Igor_Tr

Aнглийский тоже устраивает.
Неужели никак нельзя вытянуть "желтый" из системы? При наведении на цвет в меню выбора выдает подсказку, соответственно в системе это где-то сидит ведь?

kuklp

#3
Составляйте таблицу соответствий на отдельном листе и будет Вам счастье. 64 цвета не так уж и много.
Так же можно в макросе загнать на лету соответствия в массив или словарь или в Switch. Вариантов море.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771