Как создать раскрывающийся список в Excel, но отображать другое значение?
На листе Excel раскрывающийся список легко создать с помощью проверки данных, но пробовали ли вы отображать другое значение при выборе элемента из этого списка? Например, у вас есть два столбца: «Имя» и «Номер». Требуется создать раскрывающийся список со значениями из столбца «Имя», но чтобы при выборе имени в ячейке отображался соответствующий номер из столбца «Номер» — как показано на снимке экрана ниже. В этой статье подробно объясняется, как реализовать такую задачу.
Создание раскрывающегося списка с отображением другого значения в ячейке списка
Создание раскрывающегося списка с отображением другого значения в ячейке списка
Чтобы выполнить эту задачу, следуйте приведённым ниже пошаговым инструкциям:
1. Создайте имя ячейки для значений, которые вы хотите использовать в раскрывающемся списке. В этом примере я введу «dropdown» в поле «Имя» и нажму клавишу «Enter» — см. снимок экрана:
2. Затем выделите ячейки, в которые нужно вставить раскрывающийся список, и выберите «Данные» > «Проверка данных» > «Проверка данных» (см. снимок экрана):
3. В диалоговом окне «Проверка данных» на вкладке «Параметры» выберите «Список» в выпадающем списке «Тип данных» и нажмите кнопку 
, чтобы указать диапазон «Имя», который вы хотите использовать в качестве значений раскрывающегося списка в поле «Источник». См. снимок экрана:
4. После создания раскрывающегося списка щёлкните правой кнопкой мыши вкладку текущего листа и выберите в контекстном меню «Просмотреть код». В открывшемся окне Microsoft Visual Basic для приложений скопируйте приведённый ниже код и вставьте его в пустой модуль:
Код VBA: Отображение другого значения вместо выбранного в раскрывающемся списке:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 5 Then
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub
Примечание. В приведённом выше коде число 5 в строке «If Target.Column = 5 Then» указывает номер столбца, в котором расположён ваш выпадающий список, а «dropdown» в выражении «selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range(«dropdown»), 2, False)» соответствует имени диапазона, заданному на шаге 1. Вы можете изменить эти значения в соответствии со своими потребностями.
5. Затем сохраните и закройте этот код. Теперь при выборе элемента из раскрывающегося списка в той же ячейке будет отображаться соответствующее другое значение (см. снимок экрана):
Расширенный раскрывающийся список от Kutools
«Kutools для Excel» выводит раскрывающиеся списки на новый уровень благодаря функции «Расширенный раскрывающийся список», предоставляя мощные возможности настройки, недоступные в стандартных средствах Excel. С помощью этого инструмента вы можете создавать:
- Создать выпадающий список с множественным выбором
- Раскрывающийся список с флажками
- Сделайте раскрывающийся список доступным для поиска и автоматически всплывающим
Kutools для Excel предлагает более 300 расширенных функций, упрощающих сложные задачи и повышающих креативность и эффективность. Теперь Kutools интегрирует ИИ, чтобы сделать обработку данных ещё более интеллектуальной и автоматизированной.
Демонстрация: создание раскрывающегося списка с отображением Разное значение в Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек