Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск совпадений в двух таблицах и выделение цветом. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск совпадений в двух таблицах и выделение цветом. (Формулы/Formulas)
Поиск совпадений в двух таблицах и выделение цветом.
BoldinaEk Дата: Воскресенье, 16.12.2018, 19:52 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер!Помогите создать формулу для поиска совпадений в двух таблицах и выделение цветом.
К сообщению приложен файл: 4941649.xlsx (6.0 Kb)
 
Ответить
СообщениеДобрый вечер!Помогите создать формулу для поиска совпадений в двух таблицах и выделение цветом.
Автор - BoldinaEk
Дата добавления - 16.12.2018 в 19:52
Nic70y Дата: Воскресенье, 16.12.2018, 20:01 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

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

ЮMoney 41001841029809
 
Ответить
Сообщениеэтож сколько цветов нужно?
Автор - Nic70y
Дата добавления - 16.12.2018 в 20:01
BoldinaEk Дата: Воскресенье, 16.12.2018, 20:04 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Nic70y, Вот я тоже думаю что с этим будет проблематично...цветов 10 хотя бы :shy:
 
Ответить
СообщениеNic70y, Вот я тоже думаю что с этим будет проблематично...цветов 10 хотя бы :shy:
Автор - BoldinaEk
Дата добавления - 16.12.2018 в 20:04
Nic70y Дата: Воскресенье, 16.12.2018, 20:35 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 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]
К сообщению приложен файл: 4941649.xlsm (18.9 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 16.12.2018, 20:40
 
Ответить
Сообщениену как-то так, примерно:
[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]
Автор - Nic70y
Дата добавления - 16.12.2018 в 20:35
Nic70y Дата: Воскресенье, 16.12.2018, 21:19 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
ошибка, сейчас исправлю
формулы УФ (по 10 правил)
Код
=ПОИСКПОЗ(C4;F:F;)^0*ОСТАТ(СТРОКА()-1;10)+1
Код
=ОСТАТ(ПОИСКПОЗ(F4;C:C;)-1;10)+1
=1, =2, .... =10
К сообщению приложен файл: 4941649-1-.xlsx (10.9 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 16.12.2018, 21:26
 
Ответить
Сообщениеошибка, сейчас исправлю
формулы УФ (по 10 правил)
Код
=ПОИСКПОЗ(C4;F:F;)^0*ОСТАТ(СТРОКА()-1;10)+1
Код
=ОСТАТ(ПОИСКПОЗ(F4;C:C;)-1;10)+1
=1, =2, .... =10
Автор - Nic70y
Дата добавления - 16.12.2018 в 21:19
BoldinaEk Дата: Воскресенье, 16.12.2018, 22:22 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Nic70y, ошибку выдает :(
 
Ответить
СообщениеNic70y, ошибку выдает :(
Автор - BoldinaEk
Дата добавления - 16.12.2018 в 22:22
BoldinaEk Дата: Воскресенье, 16.12.2018, 22:24 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата Nic70y, [url=http://www.excelworld.ru/forum/2-40163-266108-16-1544981708 ()


а может так красивее:
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


Сообщение отредактировал BoldinaEk - Воскресенье, 16.12.2018, 22:31
 
Ответить
Сообщение
Цитата Nic70y, [url=http://www.excelworld.ru/forum/2-40163-266108-16-1544981708 ()


а может так красивее:
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
Автор - BoldinaEk
Дата добавления - 16.12.2018 в 22:24
Nic70y Дата: Понедельник, 17.12.2018, 08:39 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Цитата BoldinaEk, 16.12.2018 в 22:22, в сообщении № 6 ()
ошибку выдает
что, где, когда?

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата BoldinaEk, 16.12.2018 в 22:22, в сообщении № 6 ()
ошибку выдает
что, где, когда?
Автор - Nic70y
Дата добавления - 17.12.2018 в 08:39
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск совпадений в двух таблицах и выделение цветом. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!