цвет строки, чтобы соответствовать конкретному цвету ячейки

Question

У меня есть электронная таблица, в которой значения вставляются из другого места и каждый раз имеют различное форматирование цвета.Что я хотел бы сделать, это установить цвет строки, чтобы соответствовать цвету конкретной ячейки.я использовал следующий код для установки цвета интерьера (см. ниже).

В настоящее время мне нужно повторить эту строку кода для каждой строки в моем листе, как я могу сделать код короче и не ссылаться на негокаждая строка?

    Private Sub Work:sheet_SelectionChange(ByVal Target As Range)
Me.Range("G114:AH114").Interior.Color = Me.Range("B114").Interior.Color
Me.Range("G115:AH115").Interior.Color = Me.Range("B115").Interior.Color
Me.Range("G116:AH116").Interior.Color = Me.Range("B116").Interior.Color
Me.Range("G117:AH117").Interior.Color = Me.Range("B117").Interior.Color
Me.Range("G118:AH118").Interior.Color = Me.Range("B118").Interior.Color
Me.Range("G119:AH119").Interior.Color = Me.Range("B119").Interior.Color
Me.Range("G120:AH120").Interior.Color = Me.Range("B120").Interior.Color
    End Sub

спасибо

Answer 1

Вы можете изменить имя листа и переменную строки и попробовать:

Option Explicit

Sub test()

    Dim Row As Long

    Row = 114

    Do Until Row = 121

        With ThisWorkbook.Worksheets("Sheet1")

            .Cells(Row, 2).Interior.Color = .Cells(Row, 7).Interior.Color

        End With

        Row = Row + 1

    Loop

End Sub

Answer 2

Спасибо за помощь; Я использовал следующий код:

Option Explicit

Sub test()

    Dim Row As Long

    Row = 88

    Do Until Row = 121

        With ThisWorkbook.Worksheets("Two Weekly Plan 2019")

            .Range(Cells(Row, 7), Cells(Row, 34)).Interior.Color = .Cells(Row, 2).Interior.Color

        End With

        Row = Row + 1

    Loop

End Sub