Поиск совпадений в двух таблицах и выделение цветом.

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

Поиск совпадений в двух таблицах и выделение цветом. (Формулы/Formulas)

BoldinaEk

Дата: Воскресенье, 16.12.2018, 19:52 | Сообщение № 1

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

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

Сообщений: 10

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

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

Excel 2016

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

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

Ответить

Nic70y

Дата: Воскресенье, 16.12.2018, 20:01 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9131

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

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

Excel 2010

этож сколько цветов нужно?

ЮMoney 41001841029809

Ответить

BoldinaEk

Дата: Воскресенье, 16.12.2018, 20:04 | Сообщение № 3

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

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

Сообщений: 10

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

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

Excel 2016

Nic70y, Вот я тоже думаю что с этим будет проблематично...цветов 10 хотя бы :shy:

Ответить

Nic70y

Дата: Воскресенье, 16.12.2018, 20:35 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 9131

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

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

Excel 2010

ну как-то так, примерно:
[vba]

Код

Sub U_431()
    Application.ScreenUpdating = False
    u_1 = Cells(Rows.Count, "c").End(xlUp).Row
    u_5 = Cells(Rows.Count, "f").End(xlUp).Row
    Range("c4:c" & u_1).Interior.Pattern = xlNone
    Range("f4:f" & u_5).Interior.Pattern = xlNone
    u_4 = 0
    For Each u_2 In Range("c4:c" & u_1)
        u_3 = Application.Match(u_2, Range("f:f"), 0)
        If Application.IsNumber(u_3) Then
            u_4 = u_4 + 123
            u_2.Interior.Color = 65412 + u_4
            Range("f" & u_3).Interior.Color = 65412 + u_4
        End If
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]
а может так красивее:
[vba]

Код

        If Application.IsNumber(u_3) Then
            u_4 = u_4 + 12345
            u_2.Interior.Color = u_4
            Range("f" & u_3).Interior.Color = u_4
        End If

[/vba]