Применить l oop, чтобы проверить, равно ли значение между диапазонами - PullRequest
0 голосов
/ 20 апреля 2020

Привет, кто-нибудь может мне помочь со следующим; Я пытаюсь выделить ячейку, если она не равна значению, определенному в диапазоне листа. Ниже, насколько мне удалось получить. Я проверяю каждую ячейку в диапазоне «ADS_Export [ADS_208_SZ]» на «Рабочий лист (ADS_Validator»). Диапазон («E3: E500»), но ему не нравится диапазон E3: E500. Кажется, работает, если я просто поставил E3, но все после первой проверки ячейки неверны, так как проверка выполняется в 3-й строке, а не в следующей строке в диапазоне листа (E4 et c.). Необходимо проверить первое значение в диапазоне ADS_Export по первому значению в диапазоне рабочих листов, которое начинается с E3, а затем выполняет следующее. Кроме того, необходимо переопределить, чтобы выделить, если не равно, а не равно.

Любая помощь будет оценена. Я только вхожу в VBA, поэтому мои знания очень ограничены.

'' '

Sub IF_Loop()
    Dim cell As Range
    For Each cell In Range("ADS_Export[ADS_208_SZ]")
        If cell.Value = Worksheets("ADS_Validator").Range("E:E").Value Then
            cell.Interior.Color = 65535
        End If
    Next cell

End Sub

' ''

1 Ответ

0 голосов
/ 20 апреля 2020

Попробуйте этот код, пожалуйста:

Sub IF_Loop()
    Dim cell As Range, celVal As Range, lastRow As Long
    lastRow = Worksheets("ADS_Validator").Range("E" & Rows.Count).End(XlUp).row
    For Each cell In Range("ADS_Export[ADS_208_SZ]")
        For Each cellval In Worksheets("ADS_Validator").Range("E3:E" & lastRow)
            If cel.value = celVal.value Then
                 cell.Interior.Color = 65535
            End If
        Next
    Next cell
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...