Разница двух таблиц на разных листах

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Разница двух таблиц на разных листах (Иное/Other)

Arxos

Дата: Среда, 08.02.2017, 16:01 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Подскажите, как в одной из таблиц выделить цветом разницу с другой таблицей, на другом листе, но в одной книге. Ну и чтобы этот процесс был автоматическим
и если нет разницы, то цвет не отражается. Пример прикладываю (элементарный).
Спасибо!

К сообщению приложен файл: 4651823.xlsx (11.5 Kb)

Ответить

sboy

Дата: Среда, 08.02.2017, 16:03 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.

Цитата Arxos, 08.02.2017 в 16:01, в сообщении № 1 ()

как в одной из таблиц выделить цветом разницу с другой таблицей

разница по каким столбцам/строкам? что с чем сравнить?

Яндекс: 410016850021169

Ответить

Arxos

Дата: Среда, 08.02.2017, 16:06 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Все ячейки согласно их положению в таблице. Таблицы идентичны, только инфо в ячейках поставил разное, чтобы сразу появлялся цвет.

Ответить

Arxos

Дата: Среда, 08.02.2017, 16:07 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

sboy, пробовал так делать, но не то...
[vba]

Код

Option Explicit
Public val
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngFull As Range
Set rngFull = Range("A2:K157") 'диапазон, в котором должно срабатывать
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(rngFull, Target) Is Nothing Then
If Target > val Then Target.Interior.Color = RGB(255, 191, 191)
If Target = val Then Target.Interior.Color = xlNone
If Target < val Then Target.Interior.Color = RGB(191, 255, 191)
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
val = ActiveCell.Value
End Sub

[/vba]