Добрый вечер, господа.
Уже писал в рубрике приемы (Выпадающий список с добавлением новых элементов), там не кто не ответил.
С excel-ем знаком давно, многое чего могу умею, но не программировать, не получается.
Соответственно в приеме описано, как сделать выпадающий список с добавлением нового элемента. Прекрасный прием.
Я попытался поискать как можно сделать так, чтобы в коде происходил поиск имени списка, который прописывается жестко в коде приема, по значению в соседней левой ячейки. Имя списка, храниться в диапазоне "Searchlist", отдельная таблица (два столбца:наименование и имя списка)
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lReply As Long
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Table.Report[[Столбец 1]:[Столбец 3]]";)) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Worksheets("DBLists";).Range("[B]ВПР(ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1);ИСТИНА);SearchList;2;0)[/B]";), Target) = 0 Then
lReply = MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion)
If lReply = vbYes Then
Worksheets("DBLists";).Range("List№1";).Cells(Worksheets("DBLists";).Range("[B]ВПР(ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1);ИСТИНА);SearchList;2;0)[/B]";).Rows.Count + 1, 1) = Target
End If
End If
End If
End Sub |
Дано:
В области Table.Report[[Столбец 2]:[Столбец 3]] установленны выпадающие списки, область приминения макроса.
Таблица Table.List, именной диапазон List имеет источник =Table.List[Название списка]
Таблица Table.List№1, именной диапазон List№1 имеет источник =Table.List№1[Название списка]
Таблица Table.List№2, именной диапазон List№2 имеет источник =Table.List№2[Название списка]
Таблица Table.List№3, именной диапазон List№3 имеет источник =Table.List№3[Название списка]
Есть таблица Table.DBList, именной диапазон SearchList имеет источник =Table.List№3[Название списка],
Надо что бы макрос:
Если в ячейки B7 "Значение списка 1", то в ячейки C7 вызывается выпадающий список, источником является диапазон "List№1". Если вводиться в ячейку C7 вводиться значение, которого нет в списке оно должно быть добавленно в список с диапазоном источника "List№1".Если в ячейки B7 "Значение списка 2", то в ячейки C7 вызывается выпадающий список, источником является диапазон "List№2". Если вводиться в ячейку C7 вводиться значение, которого нет в списке оно должно быть добавленно в список с диапазоном источника "List№2". Если в ячейки B7 "Значение списка 3", то в ячейки C7 вызывается выпадающий список, источником является диапазон "List№3". Если вводиться в ячейку C7 вводиться значение, которого нет в списке оно должно быть добавленно в список с диапазоном источника "List№3".
Помогите, пожалуйста.
