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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск совпадений по списку и вывод сообщения msgbox (Формулы/Formulas)
Поиск совпадений по списку и вывод сообщения msgbox
Piston Дата: Вторник, 17.01.2017, 09:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день. Прошу помочь в решении задачи приведенной ниже: Имеется вкладка со списком ФИО «Черный список», а также вкладка с Клиентами юр.лицами у которых есть представители (ген. дир, глав бух и проч. лица) При поиске представителей и совпадении по черному списку необходимо вывести сообщение (любое информационное). Т.к. база достаточна велика то условное форматирование визуально помогает, но не достаточно, поэтому при совпадении дополнительно должно выводиться сообщение. Используя функ с IfEmpty не работает, т.к забита формула (ВПР – поиск совпадений по ФИО). Идеально было бы «своять» макрос чтобы в сообщении указывалось наименование Клиента (+ФИО представителя). По всем совпадениям. Файл во вложении.
К сообщению приложен файл: 5300718.xlsm (12.3 Kb)


Piston
 
Ответить
СообщениеДобрый день. Прошу помочь в решении задачи приведенной ниже: Имеется вкладка со списком ФИО «Черный список», а также вкладка с Клиентами юр.лицами у которых есть представители (ген. дир, глав бух и проч. лица) При поиске представителей и совпадении по черному списку необходимо вывести сообщение (любое информационное). Т.к. база достаточна велика то условное форматирование визуально помогает, но не достаточно, поэтому при совпадении дополнительно должно выводиться сообщение. Используя функ с IfEmpty не работает, т.к забита формула (ВПР – поиск совпадений по ФИО). Идеально было бы «своять» макрос чтобы в сообщении указывалось наименование Клиента (+ФИО представителя). По всем совпадениям. Файл во вложении.

Автор - Piston
Дата добавления - 17.01.2017 в 09:21
sboy Дата: Вторник, 17.01.2017, 12:34 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Используя функ с IfEmpty не работает

попробуйте проверять по значению
[vba]
Код
If cells().Value <>"" then MsgBox
[/vba]


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Используя функ с IfEmpty не работает

попробуйте проверять по значению
[vba]
Код
If cells().Value <>"" then MsgBox
[/vba]

Автор - sboy
Дата добавления - 17.01.2017 в 12:34
Piston Дата: Вторник, 17.01.2017, 13:12 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
я не очень силен в макросах, и попробовал использовать if cells - ругается и не работает.
файл приложил с макросом, посмотрите пжлста
К сообщению приложен файл: 3522911.xlsm (17.7 Kb)


Piston
 
Ответить
Сообщениея не очень силен в макросах, и попробовал использовать if cells - ругается и не работает.
файл приложил с макросом, посмотрите пжлста

Автор - Piston
Дата добавления - 17.01.2017 в 13:12
Manyasha Дата: Вторник, 17.01.2017, 13:33 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Piston, опишите задачу более подробно. Когда должен срабатывать макрос, при изменении ячейки? Или по кнопке выводить список тех, кто есть в ЧС?
ругается и не работает

прочитайте, как правильно состовлять If-Else


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеPiston, опишите задачу более подробно. Когда должен срабатывать макрос, при изменении ячейки? Или по кнопке выводить список тех, кто есть в ЧС?
ругается и не работает

прочитайте, как правильно состовлять If-Else

Автор - Manyasha
Дата добавления - 17.01.2017 в 13:33
Wasilich Дата: Вторник, 17.01.2017, 13:35 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Как то все сыро. Что значит:
При поиске представителей
Как и где Вы собираетесь их искать? Не понятны ваши действия.
при совпадении дополнительно должно выводиться сообщение
В какой момент происходит совпадение?
 
Ответить
СообщениеКак то все сыро. Что значит:
При поиске представителей
Как и где Вы собираетесь их искать? Не понятны ваши действия.
при совпадении дополнительно должно выводиться сообщение
В какой момент происходит совпадение?

Автор - Wasilich
Дата добавления - 17.01.2017 в 13:35
sboy Дата: Вторник, 17.01.2017, 13:42 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Ваш макрос правильно вот так записать
[vba]
Код
Sub Макрос1()
If Range("E3").Value <> "" Then
MsgBox "См. ЧерныйСписок", 48, "ВНИМАНИЕ!!!" 'Выводим другое сообщение.
End If
End Sub
[/vba]


Яндекс: 410016850021169
 
Ответить
СообщениеВаш макрос правильно вот так записать
[vba]
Код
Sub Макрос1()
If Range("E3").Value <> "" Then
MsgBox "См. ЧерныйСписок", 48, "ВНИМАНИЕ!!!" 'Выводим другое сообщение.
End If
End Sub
[/vba]

Автор - sboy
Дата добавления - 17.01.2017 в 13:42
sboy Дата: Вторник, 17.01.2017, 13:53 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Как я понял задачу (вдруг угадал)
Кнопка "Проверка"
[vba]
Код
Sub Макрос1()
txt = "См. ЧерныйСписок" & vbCrLf
ilr = Cells(Rows.Count, 1).End(xlUp).Row
For ic = 3 To 7 Step 2
    For ir = 1 To ilr
        If Cells(ir, ic).Value <> "" Then
        txt = txt & Cells(ir, 1).Value & " " & Cells(ir, ic).Value & vbCrLf
        End If
    Next ir
Next ic
MsgBox txt, 48, "ВНИМАНИЕ!!!"
End Sub
[/vba]
К сообщению приложен файл: 3357984.xlsm (19.8 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеКак я понял задачу (вдруг угадал)
Кнопка "Проверка"
[vba]
Код
Sub Макрос1()
txt = "См. ЧерныйСписок" & vbCrLf
ilr = Cells(Rows.Count, 1).End(xlUp).Row
For ic = 3 To 7 Step 2
    For ir = 1 To ilr
        If Cells(ir, ic).Value <> "" Then
        txt = txt & Cells(ir, 1).Value & " " & Cells(ir, ic).Value & vbCrLf
        End If
    Next ir
Next ic
MsgBox txt, 48, "ВНИМАНИЕ!!!"
End Sub
[/vba]

Автор - sboy
Дата добавления - 17.01.2017 в 13:53
anvg Дата: Вторник, 17.01.2017, 13:59 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток.
Параллельное обсуждение. - вдруг помогающие там найдут нечто полезное для понимания ТС :)
 
Ответить
СообщениеДоброе время суток.
Параллельное обсуждение. - вдруг помогающие там найдут нечто полезное для понимания ТС :)

Автор - anvg
Дата добавления - 17.01.2017 в 13:59
Piston Дата: Вторник, 17.01.2017, 14:25 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Феерично!!! Все отработало на 5+.
Огромное спасибо.

P.S. Параллельное обсуждение: конечно прошу прощения, но на "Планете" игнор 2дня...


Piston
 
Ответить
СообщениеФеерично!!! Все отработало на 5+.
Огромное спасибо.

P.S. Параллельное обсуждение: конечно прошу прощения, но на "Планете" игнор 2дня...

Автор - Piston
Дата добавления - 17.01.2017 в 14:25
Piston Дата: Вторник, 17.01.2017, 14:29 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Большое и доброе спасибо "sboy"


Piston
 
Ответить
СообщениеБольшое и доброе спасибо "sboy"

Автор - Piston
Дата добавления - 17.01.2017 в 14:29
Piston Дата: Вторник, 17.01.2017, 14:47 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
ммм, чуть поторопился.
Если совпадений НЕ найдено, то как вывести сообщение что все ОК, например фразу "Проверка завершена успешно, совпадений не найдено"


Piston
 
Ответить
Сообщениеммм, чуть поторопился.
Если совпадений НЕ найдено, то как вывести сообщение что все ОК, например фразу "Проверка завершена успешно, совпадений не найдено"

Автор - Piston
Дата добавления - 17.01.2017 в 14:47
sboy Дата: Вторник, 17.01.2017, 15:02 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добавьте доп проверку
[vba]
Код
Sub Макрос1()
check = False
txt = "См. ЧерныйСписок" & vbCrLf
ilr = Cells(Rows.Count, 1).End(xlUp).Row
For ic = 3 To 7 Step 2
    For ir = 1 To ilr
        If Cells(ir, ic).Value <> "" Then
        check = True
        txt = txt & Cells(ir, 1).Value & " " & Cells(ir, ic).Value & vbCrLf
        End If
    Next ir
Next ic
If check Then
MsgBox txt, 48, "ВНИМАНИЕ!!!"
Else
MsgBox "Все ОК"
End If
End Sub
[/vba]


Яндекс: 410016850021169
 
Ответить
СообщениеДобавьте доп проверку
[vba]
Код
Sub Макрос1()
check = False
txt = "См. ЧерныйСписок" & vbCrLf
ilr = Cells(Rows.Count, 1).End(xlUp).Row
For ic = 3 To 7 Step 2
    For ir = 1 To ilr
        If Cells(ir, ic).Value <> "" Then
        check = True
        txt = txt & Cells(ir, 1).Value & " " & Cells(ir, ic).Value & vbCrLf
        End If
    Next ir
Next ic
If check Then
MsgBox txt, 48, "ВНИМАНИЕ!!!"
Else
MsgBox "Все ОК"
End If
End Sub
[/vba]

Автор - sboy
Дата добавления - 17.01.2017 в 15:02
Piston Дата: Вторник, 17.01.2017, 15:14 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Большое спасибо.
Безгранично благодарен.


Piston
 
Ответить
СообщениеБольшое спасибо.
Безгранично благодарен.

Автор - Piston
Дата добавления - 17.01.2017 в 15:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск совпадений по списку и вывод сообщения msgbox (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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