Как сделать так, чтобы совпадающие данные из одного листа таблицы Excel подсвечивались во втором?
Есть первый лист таблицы, куда я добавляю название доменов, есть второй лист страницы где есть список доменов разбитых по категориям (каждая категория свой столбец). Как сделать так, чтобы если я внес название домена на первый лист, ячейка с этим доменом на втором листе меняла цвет?
ТехнологииПрограммирование+2
Добрый день.
Вариант - применить макрос обработки события (при вводе имени домена в диапазон A2:A52 листа "домены" соответствующая ячейка с тем же именем домена на листе "структура доменов" закрашивается желтым цветом).
' макрос обработки события
Private Sub Worksheet_Change(ByVal Target As Range) ' ввод имени домена (лист "домены") и окрашивание соответствующей ячейки
Dim rCell As Range ' тип ячейки в таблице доменов
Dim Cell_item As String ' тип ячейки в диапазоне ввода доменов A2:A52 листа "домены"
Dim rRng As Range ' тип объектной переменной
Set rRng = Sheets("структура доменов").Range("A3:H52") ' объектная переменная диапазона в таблице доменов
Cell_item = Sheets("домены").Cells(ActiveCell.Row - 1, 1).Value 'набранное имя домена
' проверка принадлежности набранному имени домена принадлежности диапазону - событие
If Not Intersect(Target, Sheets("домены").Range("A2:A52")) Is Nothing Then
For Each rCell In rRng.Cells ' цикл перебора ячеек в таблице доменов
If Cell_item Like rCell.Text Then ' условие совпадения набранного домена ячейке в таблице доменов
rCell.Interior.Color = vbYellow ' окрашиваем найденную ячейку в желтый цвет в таблице доменов
Else ' иначе
End If ' конец условия
Next rCell ' продолжение цикла
Else
End If
End Sub
Подробнее в:
Примените условное форматирование. На втором листе, где список и выделите ячейки с названиями доменов. Далее перейдите: Главная - условное форматирование - создать правило. Тип - использовать формулу. для определения... Читать далее
Ух ты. Интересная задачка. "Условное форматирование" между разными листами не действует.
Хотелось бы увидеть простое решение.
А так, если пойти "сложным" путём, то на листе 1 добавил бы поле с перенесенными значениями листа... Читать далее