Здраствуйте.
Здесь на форуме нарыл примерно нужный код под мою задачу. Работает не совсем так, как мне надо. Подскажите пожалуйста, что нужно допилить на примере тестового файла, что во вложении.
Задача следующая: цвет диапазона A1:J10 листа 1 автоматически копировать в аналогичный (или в другой заданный явным образом). Код, что тут нашёл (диапазоны подставил свои):
Некорректность работы в том, что он берёт образец из ячейки A1 Листа1 и заливает этим цветом весь заданный диапазон на Листе2. Мне нужно, чтобы заливка происходила в точности так, как в диапазоне источнике. И нужно, чтобы это происходило автоматически после любого изменения на листе или по F9. Сейчас работает только по нажатию на кнопку пуска в окне макросов.
Здесь на форуме нарыл примерно нужный код под мою задачу. Работает не совсем так, как мне надо. Подскажите пожалуйста, что нужно допилить на примере тестового файла, что во вложении.
Задача следующая: цвет диапазона A1:J10 листа 1 автоматически копировать в аналогичный (или в другой заданный явным образом). Код, что тут нашёл (диапазоны подставил свои):
Код |
---|
Sub Macros() Dim d As Range, i& With ['Лист1'!A1:J10] 'источник ReDim c(1 To .Count) For Each d In .Cells i = i + 1 c(i) = d.Interior.Color Next End With i = 0 For Each d In ['Лист2'!A1:J10] 'приемник i = i + 1 If i > UBound© Then i = 1 d.Interior.Color = c(i) Next End Sub |