Добрый день. Друзья, нужна ваша помошь.
Задача:
Сравнить данные в столбце с листа "Имя в домене" с данными в столбце с листа "АО" . Сравнить нужно не по порядку (A с A, В с B), а каждое значение из столбца "Имя в домене" с листа "Имена в домене" со всеми значениями столбца "Имя в домене" листа "АО"
Дано:
iChislo, i - Счетчик
lRowDomainName - Последняя ячейка в столбце(Имя в домене)
TIP_Column - Номер столбца в шапке ("Тип")
DOMAIN_Column - Номер столбца в шапке ("Имя в домене")
В финале: Если ячейка в столбце "Имя в домене" на листе "АО" не содержит значения из диапазона i-lRowDomainName то заливаем красным ячейку на листе "АО" столбца Имя в домене (Если тип = "miniPC" )
Задача:
Сравнить данные в столбце с листа "Имя в домене" с данными в столбце с листа "АО" . Сравнить нужно не по порядку (A с A, В с B), а каждое значение из столбца "Имя в домене" с листа "Имена в домене" со всеми значениями столбца "Имя в домене" листа "АО"
Дано:
iChislo, i - Счетчик
lRowDomainName - Последняя ячейка в столбце(Имя в домене)
TIP_Column - Номер столбца в шапке ("Тип")
DOMAIN_Column - Номер столбца в шапке ("Имя в домене")
Код |
---|
For iChislo = 2 To lRow For i = 2 To lRowDomainName Select Case Cells(iChislo, TIP_Column).Value Case "miniPC" Set fCell = Cells(iChislo, DOMAIN_Column).Find(What:=Sheets("Имена в домене").Cells(i, 1).Value, LookAt:=xlWhole) If Not fCell Is Nothing Then Sheets("АО").Cells(fCell.Row, DOMAIN_Column).Interior.Color = vbGreen End If End Select Next i Next iChislo |