Всем привет.
И у меня созрел вопрос. Обнаружил странность при получении номеров цветов при градиентной заливке.
Залиты две ячейки: одна градиентной, вторая - одноцветной заливкой. Вторая только для сравнения. Нажимаем кнопку "записать" - номера цветов записываются в ячейки:
Странности начинаются, если кнопку нажимать повторно:
- второе срабатывание макроса вызывает подсветку цветов градиентной заливки белым и изменение номера первого цвета (ячейка D5) на 16777215;
- третий проход видимых изменений не вызывает;
- четвертый раз макрос меняет номер второго цвета (ячейка E5) на 16777215;
- пятый - подсветка белым пропадает;
- шестой - подсветка появляется;
- на седьмой раз макрос показывает правильный номер первого цвета;
- далее номер опять меняется, при последующих запусках подсветка то появляется, то пропадает, номера цветов могут определиться нормально, а могут как 16777215 (зависимости от чего-либо не обнаружил)
Запись номеров в ячейки другого листа и запуск кода из другого листа на результат не повлияли.
Прошу помочь разобраться. Вопросов два:
1. Правильно ли определяю номер цвета?
2. Что происходит? (на другой машине не проверял)
И у меня созрел вопрос. Обнаружил странность при получении номеров цветов при градиентной заливке.
Залиты две ячейки: одна градиентной, вторая - одноцветной заливкой. Вторая только для сравнения. Нажимаем кнопку "записать" - номера цветов записываются в ячейки:
Код |
---|
Sub RecordColor() With Range("C5").Interior.Gradient.ColorStops Range("D5").Value = .Add(0).Color ' цвет1 градиентной Range("E5").Value = .Add(1).Color ' цвет2 градиентной End With Range("D6").Value = Range("C6").Interior.Color ' цвет ячейки End Sub |
Странности начинаются, если кнопку нажимать повторно:
- второе срабатывание макроса вызывает подсветку цветов градиентной заливки белым и изменение номера первого цвета (ячейка D5) на 16777215;
- третий проход видимых изменений не вызывает;
- четвертый раз макрос меняет номер второго цвета (ячейка E5) на 16777215;
- пятый - подсветка белым пропадает;
- шестой - подсветка появляется;
- на седьмой раз макрос показывает правильный номер первого цвета;
- далее номер опять меняется, при последующих запусках подсветка то появляется, то пропадает, номера цветов могут определиться нормально, а могут как 16777215 (зависимости от чего-либо не обнаружил)
Запись номеров в ячейки другого листа и запуск кода из другого листа на результат не повлияли.
Прошу помочь разобраться. Вопросов два:
1. Правильно ли определяю номер цвета?
2. Что происходит? (на другой машине не проверял)