Формула ВПР() требует ввода критерия либо в отдельную ячейку, либо непосредственно в саму формулу.
Первое не всегда реализуемо, второе неудобно.
Этот код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
With Application
.EnableEvents = False
Target = .VLookup(Target.Value, Columns("C:D"), 2, 0)
.EnableEvents = True
End With
End Sub
вставленный в модуль листа, позволяет получать искомое значение в той же ячейке, в которую вводился критерий.
В примере необходимо в любой ячейке диапазона А2:А6 выбрать табельный номер и в этой же ячейке появится фамилия сотрудника.
|