Доброго времени суток!
Возникла такого рода проблема:
У меня в таблице есть столбец "Код объекта" и столбец "Название объекта"
Как мне сделать, чтобы когда я пишу определенный код объекта, название объекта вписывалось само?
Есть база в которой каждому объекту присвоен свой код. Коды состоят из букв и цифр, например: АБ-0001 это код объекта "Объект 1".
АБ-0001 Объект 1
АБ-0002 Объект 2
АБ-0003 Объект 3
АБ-0004 Объект 4
АБ-0005 Объект 5
АБ-0006 Объект 6
АБ-0007 Объект 7
АБ-0008 Объект 8
АБ-0009 Объект 9
АБ-0010 Объект 10
Вот такая база, теперь мне нужно чтобы при вводе в ячейку А1, код АБ-0002 в ячейке В1, было написано соотвествуещее этому коду название, в моем случае это Объект 2.
Прошу тех кто знает помочь решить задачу.
Заранее спасибо.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset( 0 , 1 ).Value = GetObjName(Target.Value)
End If
End Sub
Private Function GetObjName(ByVal p_Code As String) As String
' запрос к базе с возвратом названия объекта по его коду
End Function
На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых
сервисов с использованием метрической программы Яндекс.Метрика.
Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.
По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.
