Автоматически копировать только цвет из одной ячейки в другую - EXCEL VBA

У меня есть клетка 017 значение и цвет этой ячейки постоянно изменяются из-за формулы и условного форматирования.

клетка O16 меняется также постоянно из-за формулы, но формула и их значения отличаются от ячейки 017,

Я хочу, чтобы эта клетка O16 содержит один и тот же цвет клетки O17 автоматически, как только значение ячейки 017 изменился

Должно быть решение в VBA. Я надеюсь на вашу помощь.

РЕДАКТИРОВАТЬ:

Пользователь Dmitry Pavliv решение для Excel 2010 и более поздних Dmitry Pavliv:

Private Sub Worksheet_Calculate()
    Range("O16").Interior.Color = Range("O17").DisplayFormat.Interior.Color
End Sub

К сожалению, я использую Excel 2007, существует ли и эквивалентен ли этот код в 2007 году?

Источник

1 ответ

Работает только с Excel 2010 и выше

Если ваша клетка O17 можно изменить только по формуле, используйте следующий код (этот код должен использоваться в Sheet модуль):

Private Sub Worksheet_Calculate()
    Range("O16").Interior.Color = Range("O17").DisplayFormat.Interior.Color
End Sub

В противном случае также добавьте Worksheet_Change событие с тем же кодом.

Источник
Другие вопросы по тегам