Чередование цветом строк в 2 таблицах - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день и всех с праздниками))) Есть 2 таблицы, в одну из которых тянутся данные из соседнего листа. Суть в принципе не в этом. Вопрос в том, как сделать так, чтобы было чередование строк цветом как в левой таблице, так и в правой?? При этом цвет строки в левой таблице (не трогая ячейку Status) должен совпадать с цветом строки в правой таблице. Чередование должно быть только в пределах таблиц, потому что кол-во строк с данными в них может как увеличиваться, так и уменьшаться. Ну и само чередование: белый-фиолетовый-белый-фиолетовый (к примеру). То есть практически один цвет)) Возможно ли это??)))

Решение задачи: «Чередование цветом строк в 2 таблицах»

textual
Листинг программы
Sub Чередование_цветов()
    Dim i&, EndRow&
    With ActiveSheet
        EndRow = .Cells(.Rows.Count, 2).End(xlUp).Row - 1
        For i = 11 To EndRow Step 2
            .Range("B1:W1,AA1:AR1").Offset(i).Interior.Color = 10053222
            .Range("B1:W1,AA1:AR1").Offset(i + 1).Interior.Pattern = xlNone
        Next
    End With
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы