Здравствуйте. Подскажите пожалуйста, как сделать так чтобы информация автоматически проставлялась во все ячейки по горизонтали, если этот человек уже встречался.
Например: Имеются данные граждан приходивших в баню (Ф.И.О., последние 4 цифры номера страховки (у каждого индвидуальный), дата посещения бани). Начинаю заполнять данные по каждому месяцу. И хотелось бы чтобы при указании последних 4-ёх цифр страховки, информация о человеке автоматически проставлялась. Т.е. чтобы заново не приходилось вручную печатать все данные.
Это можно как-то реализовать? Можете помочь пожалуйста
Здравствуйте. Подскажите пожалуйста, как сделать так чтобы информация автоматически проставлялась во все ячейки по горизонтали, если этот человек уже встречался.
Например: Имеются данные граждан приходивших в баню (Ф.И.О., последние 4 цифры номера страховки (у каждого индвидуальный), дата посещения бани). Начинаю заполнять данные по каждому месяцу. И хотелось бы чтобы при указании последних 4-ёх цифр страховки, информация о человеке автоматически проставлялась. Т.е. чтобы заново не приходилось вручную печатать все данные.
Это можно как-то реализовать? Можете помочь пожалуйстаmagnigin
Вот пример файла. Если информация о человеке уже ранее была указана, то нужно чтобы при заполнении последних 4-х цифр соц карты (индивидуальное значение у каждого), информация автоматически о нём проставлялась, а именно Ф.И.О. и дата посещения
Вот пример файла. Если информация о человеке уже ранее была указана, то нужно чтобы при заполнении последних 4-х цифр соц карты (индивидуальное значение у каждого), информация автоматически о нём проставлялась, а именно Ф.И.О. и дата посещенияmagnigin
magnigin, здравствуйте. Пример не очень информативен, да и название темы, возможно, тоже. Как понял задачу - один из примеров реализации (см. желтые ячейки, формулы в столбцах G и H). Может, как-то так хотите?
magnigin, здравствуйте. Пример не очень информативен, да и название темы, возможно, тоже. Как понял задачу - один из примеров реализации (см. желтые ячейки, формулы в столбцах G и H). Может, как-то так хотите?
Private Sub Worksheet_Change(ByVal Target As Range) Dim Arr, i As Long If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Columns(3)) Is Nothing Then Application.EnableEvents = False Arr = Range("B2:D" & Target.Row - 1) For i = 1 To UBound(Arr) If Target.Value = Arr(i, 2) Then Exit For Next i On Error Resume Next Target.Offset(0, -1) = Arr(i, 1) Target.Offset(0, 1) = Arr(i, 3) Application.EnableEvents = True End If End Sub
[/vba]
Автоматически макросом. код в модуле листа[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim Arr, i As Long If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Columns(3)) Is Nothing Then Application.EnableEvents = False Arr = Range("B2:D" & Target.Row - 1) For i = 1 To UBound(Arr) If Target.Value = Arr(i, 2) Then Exit For Next i On Error Resume Next Target.Offset(0, -1) = Arr(i, 1) Target.Offset(0, 1) = Arr(i, 3) Application.EnableEvents = True End If End Sub
Излишнее цитирование удалено Не могли бы вы пожалуйста подправить макрос, чтобы он по последним 6-ти цифрам проставлял информацию. И хочется поинтересоваться. Например имеется полностью база данных граждан со всей информацией (оформленная точь-в-точь как файл), но она в отдельном excel файле. Создаю новый excel файл, начинаю вбивать 6-последних цифр соц карты, и нужно чтобы информация перетаскивалась с Базы Данных граждан автоматически в новый созданный документ. Это реально реализовать в Exel ? Подскажете
Излишнее цитирование удалено Не могли бы вы пожалуйста подправить макрос, чтобы он по последним 6-ти цифрам проставлял информацию. И хочется поинтересоваться. Например имеется полностью база данных граждан со всей информацией (оформленная точь-в-точь как файл), но она в отдельном excel файле. Создаю новый excel файл, начинаю вбивать 6-последних цифр соц карты, и нужно чтобы информация перетаскивалась с Базы Данных граждан автоматически в новый созданный документ. Это реально реализовать в Exel ? Подскажетеmagnigin