Правильно настроенные выпадающие списки не только обеспечивают удобный выбор из предопределенных вариантов, но и значительно повышают эффективность работы с данными, снижая вероятность ошибок.

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

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

Например, рассмотренное сегодня решение позволит автоматически отображать связанные значения при выборе критерия из списка.

➡️ Данный подход будет полезен и актуален при организации поисковых запросов и справочников 😉.

📢 Файл с примером размещен в конце статьи 🔽

Представленное решение позволит автоматически отображать связанные значения при выборе критерия из списка

▶️ Пример исходных данных

Создаем справочник:

Определяем именованные диапазоны

Определяем целевую ячейку для которой устанавливаем тип данных список:

▶️ Постановка задачи

- при выборе критерия из выпадающего списка отображать соответствующее ему связанное значение в ячейке В2:

▶️ Вариант решения №1

В данном варианте предполагается замена содержимого ячейки B2 на связанное значение, перезаписывая вводимые пользователем данные.

🔘 Пример макроса

Выпадающий список для отображения связанного значения (вариант решения 1)

⚙️ Краткое описание

Переменная Target представляет изменяемую ячейку.
selectedNa = Target.Value: в этой строке переменной присваивается значение изменяемой ячейки
If Target = Range("B2") Then: проверяет, является ли измененная ячейка B2.
selectedNum = Application.VLookup(selectedNa, Лист2.Range("Справочник"), 2, False): в этой строке используется функция VLookup (ВПР) для поиска значения в именованном диапазоне "Справочник". Параметр False означает, что ищем точное соответствие.
If Not IsError(selectedNum) Then: перед обновлением значения B2 результатом ВПР проверяется, не привела ли функция ВПР к ошибке (например, если совпадение не найдено).
Target.Value = selectedNum: если ошибки нет, значение B2 обновляется до selectedNum, значения, полученного при ВПР.

📝 Примечание автора: процедура должна быть помещена в модуль листа.

▶️ Вариант решения №2

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

🔘 Взяв за основу рассмотренный выше код внесем небольшую корректировку:

Выпадающий список для отображения связанного значения и критерия (вариант решения 2)

➡️ Такой подход позволит справочно добавлять выбранное значение из выпадающего списка изменении в ячейку C2:

📝 Примечание автора:

Представленный код является типовым решением для автоматического обновления значения в ячейке C2 на основе выбора из выпадающего списка в ячейке B2. В зависимости от конкретных условий задачи, его можно дополнить или изменить.

Например, можно добавить дополнительные проверки на диапазон ячеек или изменить действия при определенных событиях.

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