Реализовать выпадающий список с автоподбором, фильтрацией и возможностью добавления новых элементов

@Султанов · Регистрация: 25.01.2013

Author24 — интернет-сервис помощи студентам

Доброе время суток!
Есть ли наработанный код по данной теме у кого-нибудь?

Есть с добавлением и сортировкой списка. Как её доработать под свои нужды

Visual Basic

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("D2:D10")) Is Nothing Then
            If IsEmpty(Target) Then Exit Sub
                If WorksheetFunction.CountIf(Sheets("Лист2").Range("people"), Target) = 0 Then
                    lReply = MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion)
                        If lReply = vbYes Then
                            Worksheets("Лист2").Range("People").Cells(Worksheets("Лист2").Range("People").Rows.Count + 1, 1) = Target
                        End If
                End If
        End If
    Sheets("Лист2").Range("A1:A1000").Sort Key1:=Sheets("Лист2").Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal 'этот код и поможет отсортировать в алфавитном порядке
End Sub

@Султанов · 29.09.2014, 07:41 **[ТС]**

удаление элемента из списка делает выпадающий список неактивным, как решить данный вопрос, подскажите кто знает?

@mc-black · 29.09.2014, 15:53

Попробуйте мою наработку, может подойдет?
Выпадающий список, отфильтрованный по введенным буквам
По поводу добавления и удаления элементов, могу доработать этот код, если понятно опишите, как будет применяться этот список и где он будет расположен (на форме, на листе...).

@Султанов · 30.09.2014, 07:18 **[ТС]**

mc-black, в общем, отдел ежемесячно готовит акты выполненных работ по договорам по определенным заказчикам на определенную группу услуг, с указанием прочих атрибутов т.д, то что должно быть по форме самого акта. Короткий пример выложу позже с конкретными данными.
Задача на самом акте выполненных работ в режиме события в ячейке проводить операции по выбору заказчика, на ячейке выбора номера договора выбирать договора из списка договоров непосредственно завязанных на выбранном заказчике, и формирования перечня услуг по выбранному уже номеру договора.
Далее, у каждой услуге есть своеобразный расчет, почему и формирование акта выполненных работ не было реализовано в 1С, поскольку требует индивидуальный подход и кодом VBA туда не подойдешь в силу отсутствия системности (каждый пользователь по своему считает). Для решения этой задачи в дальнейшем планируется создать справочник услуг, где по каждой услуге будет указано адреса ячеек листов с расчетами, а лучше именованные ячейки с необходимыми данными.

Добавлено через 12 часов 21 минуту
mc-black, В приведенном примере есть с инета код с созданием контекстного меню по событию в ячейке С8 , если есть возможность дополнить его автоподбором и сортировкой списка? Относительно услуг зависимых от договора думаю воспользоваться вашим суперфильтром, или соскрытие ненужных услуг (строк)

@Султанов · 03.10.2014, 11:55 **[ТС]**

mc-black, если возможно, пожалуйста укажите где можно более подробно почитать про контекстное меню ? Вопрос автоподбора с критерием содержит очень нужен

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	29.09.2014, 07:41 [ТС]	2
	удаление элемента из списка делает выпадающий список неактивным, как решить данный вопрос, подскажите кто знает? 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	29.09.2014, 15:53	3
	Попробуйте мою наработку, может подойдет? Выпадающий список, отфильтрованный по введенным буквам По поводу добавления и удаления элементов, могу доработать этот код, если понятно опишите, как будет применяться этот список и где он будет расположен (на форме, на листе...). 0

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	03.10.2014, 11:55 [ТС]	5
	mc-black, если возможно, пожалуйста укажите где можно более подробно почитать про контекстное меню ? Вопрос автоподбора с критерием содержит очень нужен 0