Как заполнить цвет фона ячейки в зависимости от указанного значения c от значения ячейки другого листа в Excel? - PullRequest
0 голосов
/ 04 февраля 2020

Как заполнить цвет фона ячейки в зависимости от указанного значения c из значения другой ячейки листа в Excel?

Я хочу заполнить ячейку sheet2 в зависимости от значения ячейки Sheet1.

Лист 1

enter image description here

Лист 2

enter image description here

Например, в файле sheet1 значение 4 отсутствует, поэтому нет необходимости заполнять ячейку sheet2, которая содержит значение 04, подобное этому.

Пожалуйста, помогите мне.

1 Ответ

0 голосов
/ 04 февраля 2020

Попробуйте:

Sub test()

    Dim rng1 As Range, rng2 As Range, cell As Range, rngFound As Range
    Dim ws1 As Worksheet, ws2 As Worksheet

    With ThisWorkbook
        Set ws1 = .Worksheets("Sheet1")
        Set ws2 = .Worksheets("Sheet2")
    End With

    With ws1
        Set rng1 = .Range("A1:R1")
    End With

    With ws2

        Set rng2 = .Range("A1:E5")

        For Each cell In rng2

            Set rngFound = rng1.Find(cell.Value, LookIn:=xlValues, Lookat:=xlWhole)

            If Not rngFound Is Nothing Then

                cell.Interior.ColorIndex = rngFound.Interior.ColorIndex

            End If

        Next cell

    End With

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...