Страницы: 1
RSS
Появление всплывающего окна при введении данных
 
Здравствуйте!
Есть "регистрация клиентов", где заполняем данные - ФИО, дата рождения, адрес и тд. Есть нерадивые клиенты, они у нас в чёрном списке.
Вопрос- нужно, чтобы мы вводили фамилию или др. данные клиента, то сразу же, всплывало бы окно, или выпадало бы окно, что он в чёрном списке.
Как это сделать, подскажите, пожалуйста.  
 
Макросом.
 
Проверку данных можно запрячь.
По вопросам из тем форума, личку не читаю.
 
Можно, не всплывающее окно, а, например, просто красить ячейку красным с помощью условного форматирования, если это клиент из черного списка.
 
Спасибо всем, кто ответил!  
 
malina89, макрос на всякий случай
"A1:A1000" - столбец с вашими ФИО
"G1:G1000" - столбец с черным списком
в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
  If Target <> "" Then
  If Application.WorksheetFunction.CountIf(Range("G1:G1000"), Target.Value) >= 1 Then
  MsgBox Target.Value & " находится в ЧЕРНОМ СПИСКЕ !"
  End If
  End If
End If
End Sub

Изменено: Mershik - 25.03.2020 11:06:44
Не бойтесь совершенства. Вам его не достичь.
 
Предвижу технические сложности однозначной идентификации клиента. Нужны ID. Ну там персональный код, или номер паспорта хотя бы...
 
Вероятность совпадения фамилии, имени, отчества и даты рождения у двух разных людей обычно оценивается не более, чем 1E-5.
Изменено: sokol92 - 25.03.2020 13:50:44
Владимир
Страницы: 1
Наверх