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

Вход

Регистрация

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

 

= Мир MS Excel/Проверка на совпадение данных и вывод сообщения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка на совпадение данных и вывод сообщения (Макросы/Sub)
Проверка на совпадение данных и вывод сообщения
dmtgrs Дата: Среда, 30.09.2020, 09:09 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день!
Как сравнить две таблицы на совпадение данных в столбцах ФИО и если в 1й или 2й таблице не хватает ФИО, которая есть в другой таблице, вывести сообщение об этом?
К сообщению приложен файл: 8138101.xlsx(18.7 Kb)
 
Ответить
СообщениеДобрый день!
Как сравнить две таблицы на совпадение данных в столбцах ФИО и если в 1й или 2й таблице не хватает ФИО, которая есть в другой таблице, вывести сообщение об этом?

Автор - dmtgrs
Дата добавления - 30.09.2020 в 09:09
Pelena Дата: Среда, 30.09.2020, 10:53 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16638
Репутация: 3597 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Условным форматированием подкрасить не вариант?
К сообщению приложен файл: 8138101-1-.xlsx(13.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Условным форматированием подкрасить не вариант?

Автор - Pelena
Дата добавления - 30.09.2020 в 10:53
dmtgrs Дата: Среда, 30.09.2020, 11:05 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
1 Таблица
Васичкин
Сидоров
Иванов
Петров

2Таблица
Васичкин
Иванов
Петров

нужно именно сообщением, типа такого формата

Итого строк, которые есть только в Таблице: 1
Сидоров

Итого строк, которые есть только в Таблице 2: 0
 
Ответить
Сообщение1 Таблица
Васичкин
Сидоров
Иванов
Петров

2Таблица
Васичкин
Иванов
Петров

нужно именно сообщением, типа такого формата

Итого строк, которые есть только в Таблице: 1
Сидоров

Итого строк, которые есть только в Таблице 2: 0

Автор - dmtgrs
Дата добавления - 30.09.2020 в 11:05
Nic70y Дата: Среда, 30.09.2020, 12:24 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 6508
Репутация: 1431 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Sub u_459()
    Application.ScreenUpdating = False
    aa = Application.CountA(Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]"))
    ba = Application.CountA(Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]"))
    ab = Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]").Row
    bb = Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]").Row
    ac = aa + ab - 1
    bc = ba + bb - 1
    ad = Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]").Address
    bd = Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]").Address
    ae = InStrRev(ad, "$")
    be = InStrRev(bd, "$")
    af = Left(ad, ae) & ac
    bf = Left(bd, be) & bc
    ag = 0
    ah = ""
    For Each ai In Range(af)
        aj = Application.Match(ai, Range(bf), 0)
        ak = Application.IsNumber(aj)
        If ak = False Then
            ag = ag + 1
            ah = ah & Chr(10) & ai
        End If
    Next
    bg = 0
    bh = ""
    For Each bi In Range(bf)
        bj = Application.Match(bi, Range(af), 0)
        bk = Application.IsNumber(bj)
        If bk = False Then
            bg = bg + 1
            bh = bh & Chr(10) & bi
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Итого строк, которые есть только в Таблице 1: " & ag & ah & _
            Chr(10) & "Итого строк, которые есть только в Таблице 2: " & bg & bh
End Sub
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_459()
    Application.ScreenUpdating = False
    aa = Application.CountA(Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]"))
    ba = Application.CountA(Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]"))
    ab = Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]").Row
    bb = Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]").Row
    ac = aa + ab - 1
    bc = ba + bb - 1
    ad = Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]").Address
    bd = Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]").Address
    ae = InStrRev(ad, "$")
    be = InStrRev(bd, "$")
    af = Left(ad, ae) & ac
    bf = Left(bd, be) & bc
    ag = 0
    ah = ""
    For Each ai In Range(af)
        aj = Application.Match(ai, Range(bf), 0)
        ak = Application.IsNumber(aj)
        If ak = False Then
            ag = ag + 1
            ah = ah & Chr(10) & ai
        End If
    Next
    bg = 0
    bh = ""
    For Each bi In Range(bf)
        bj = Application.Match(bi, Range(af), 0)
        bk = Application.IsNumber(bj)
        If bk = False Then
            bg = bg + 1
            bh = bh & Chr(10) & bi
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Итого строк, которые есть только в Таблице 1: " & ag & ah & _
            Chr(10) & "Итого строк, которые есть только в Таблице 2: " & bg & bh
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 30.09.2020 в 12:24
dmtgrs Дата: Среда, 30.09.2020, 16:52 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Nic70y, Огромное спасибо!!!
 
Ответить
СообщениеNic70y, Огромное спасибо!!!

Автор - dmtgrs
Дата добавления - 30.09.2020 в 16:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка на совпадение данных и вывод сообщения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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