Контекстный поиск в выпадающем связанном списке

[guitar2003]

Добрый день, уважаемые!

Имеется файл с двумя зависимыми списками: выбор улицы, станции метро или населённого пункта в зависимости от выбора значения в первичной ячейке.

Из-за непомерной длины списка улиц Москвы (более 3000 наименований) пользоваться выпадающим списком без функции поиска практически невозможно. Да что там Москва, одних станций метро более 100 - это уже проблема.

Нигде не смог найти решения организации контекстного поиска в связанных списках. Решение для обычного выпадающего списка есть, но для связанного списка оно не прикручивается.

Т.е. задача следующая: возможность поиска нужных наименований в колонке B путём ввода букв в поле ячейки после выбора значения из первичного списка в колонке А.

Файл примера (урезанный по ТТХ форума) вложен. См. Лист2.
Помогите пожалуйста!


ЗЫ. В MSAccess просьба не посылать. Его нет и не предвидится.

[Hugo121]

Если использовать файл "Удобный поиск в выпадающем списке_12_1.xls" от Gig_Ant, то в нём достаточно изменить всего одну строку:

Function myGetListIndex() As Long
    myGetListIndex = 0
    On Error Resume Next
    myGetListIndex = Application.WorksheetFunction.Match(Selection.Offset(, -1).Value, dLists.keys, 0) - 1
  '  myGetListIndex = Application.WorksheetFunction.Match(iNumListColumn, dLists.Items, 0) - 1
End Function

Но списки в надстройку уже должны быть занесены вручную.

[guitar2003]

А без надстроек никак нельзя это реализовать? Через Combobox, допустим?

[guitar2003]

Граждане, такое дружное молчание мало-мало наводит ужас...
Живые есть?

[Hugo121]

Двигать комбобоксы по листу - это уже нужно VBA, тогда уж почему не надстройку?
Если эта сложная - были варианты поппроще, не столь универсальные, но там переделывать - уже работа.
Ну или можно всё и в этом файле сделать, взяв за основу уже готовое. Но это тоже будет VBA.

[IgorGO]

или с помощью одной относительно простой формулы

=ИНДЕКС(АДРЕСА!C1:C8;2;ПОИСКПОЗ(АДРЕСА!R2C3;АДРЕСА!R1;)):ИНДЕКС(АДРЕСА!C1:C8;СЧЁТЗ(ИНДЕКС(АДРЕСА!C1:C8;;ПОИСКПОЗ(АДРЕСА!R2C3;АДРЕСА!R1;)));ПОИСКПОЗ(АДРЕСА!R2C3;АДРЕСА!R1;))

и стандартных средств проверки ввода данных в ячейку
а с учетом того, что у Вас есть именованные диапазоны, относительно простую формулу, которая вычисляет диапазон допустимых значений, можно сделать совсем простой))

=ДВССЫЛ(АДРЕСА!R2C3)

обе формулы найдете в диспетчере имен.

[Hugo121]

Так вопрос ведь был в "пользоваться выпадающим списком без функции поиска практически невозможно", сами списки подставлялись корректно.

[guitar2003]

Сообщение от Hugo121

Так вопрос ведь был в "пользоваться выпадающим списком без функции поиска практически невозможно", сами списки подставлялись корректно.

Совершенно верно. С самими списками проблем нет. Проблема в их длине => в необходимости внедрения контекстного поиска в "длинный" зависимый список.

Сообщение от Hugo121

Двигать комбобоксы по листу - это уже нужно VBA, тогда уж почему не надстройку?

Файл, из которого выдрана эта проблема, весит больше 1 мегабайта, содержит в себе уже 11 листов, испещрённых разными формулами и функциями, вследствие чего ну ооооооооочень задумчив. Боюсь, внедрение туда надстройки совсем его повесит.

Других решений совсем нет?

[Hugo121]

Ну так ведь надстройка это не "туда", это "рядом", особо не затормозит.
Но можно решение попроще и внедрить, тоже не утяжелит файл, это ведь не формулы.
Всё зависит от задачи в целом, что нам пока неизвестно.
Если решение нужно именно для этого конкретного одного файла, и надолго - думаю можно внедрить. Если для разных часто меняющихся - удобнее надстройка.
P.S. Кажется вот тут можно код позаимсвовать (не могу сейчас проверить - там всё в архивах...): http://www.planetaexcel.ru/forum/ind...1857&PAGEN_1=2

[IgorGO]

как-то так: