Выпадающий список в Excel: создание, редактирование, удаление и дополнительные расширенные операции

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

Создание простого выпадающего списка

Чтобы эффективно использовать выпадающий список, сначала нужно освоить его создание. В этом разделе представлены 6 способов создания раскрывающегося списка в Excel.

Создание выпадающего списка из диапазона ячеек

Здесь мы покажем, как создать раскрывающийся список на основе диапазона ячеек в Excel. Выполните следующие шаги:

1. Выделите диапазон ячеек, в котором будет размещён выпадающий список.

Совет: чтобы создать раскрывающийся список сразу для нескольких несмежных ячеек, последовательно выделяйте нужные ячейки, удерживая клавишу «Ctrl».

2. Нажмите «Данные» → «Проверка данных» → «Проверка данных».

3. В диалоговом окне «Проверка данных» перейдите на вкладку «Параметры» и выполните следующую настройку.

Примечания:

Теперь выпадающий список готов! При щелчке по ячейке рядом с ней появится стрелка — нажмите на неё, чтобы развернуть список и выбрать нужный элемент.

Создание динамического выпадающего списка из таблицы

Преобразуйте свой диапазон данных в таблицу Excel и создайте на её основе динамический выпадающий список.

1. Выделите исходный диапазон данных и нажмите «Ctrl» + «T».

2. Нажмите «ОК» в появившемся диалоговом окне «Создание таблицы» — и ваш диапазон данных мгновенно преобразуется в удобную таблицу.

3. Выделите диапазон ячеек, в котором будет размещён раскрывающийся список, затем перейдите в меню «Данные» и выберите «Проверка данных» → «Проверка данных».

4. В диалоговом окне «Проверка данных» выполните следующие действия:

Теперь динамический выпадающий список создан. При добавлении или удалении данных в диапазоне таблицы значения в раскрывающемся списке будут обновляться автоматически.

Создание динамического выпадающего списка с помощью формул

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

1. Выделите ячейки, в которых вы хотите создать выпадающие списки.

2. Нажмите «Данные» → «Проверка вводимых данных» → «Проверка вводимых данных».

3. В диалоговом окне «Проверка данных» выполните следующую настройку.

=OFFSET($A$13,0,0,COUNTA($A$13:$A$24),1)

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

Создание выпадающего списка из именованного диапазона

Вы также можете создать раскрывающийся список на основе именованного диапазона в Excel.

1. Сначала создайте именованный диапазон: выделите нужный диапазон ячеек, введите его имя в поле «Имя» и нажмите клавишу «Enter».

2. Нажмите «Данные» → «Проверка вводимых данных» → «Проверка вводимых данных».

3. В диалоговом окне «Проверка вводимых данных» выполните следующие настройки.

Теперь выпадающий список успешно создан на основе данных из именованного диапазона.

Создание выпадающего списка из другой книги

Предположим, у вас есть книга с названием «SourceData», и вы хотите создать раскрывающийся список в другой книге на основе данных из этой книги «SourceData». Выполните следующие действия.

1. Откройте книгу «SourceData», выделите в ней данные, на основе которых будет создан раскрывающийся список, введите имя ячейки в поле «Имя» и нажмите клавишу «Enter».

В этом примере диапазон получил название «City».

2. Откройте лист, куда вы хотите вставить выпадающий список, и нажмите «Формулы» > «Диспетчер имён».

3. В диалоговом окне «Новое имя» создайте именованный диапазон на основе имени ячейки из книги «SourceData». Выполните следующую настройку.

=SourceData.xlsx!City

Примечания:

4. Откройте книгу, в которую нужно вставить выпадающий список, выделите нужные ячейки и выберите «Данные» > «Проверка данных» > «Проверка данных».

5. В диалоговом окне «Проверка данных» выполните следующую настройку.

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

Легко создайте Раскрывающийся список с помощью потрясающего инструмента

Настоятельно рекомендую воспользоваться функцией «Создать простой раскрывающийся список» из набора «Kutools для Excel»: с её помощью вы без труда создадите раскрывающийся список на основе заданных значений ячеек или предустановленного пользовательского списка в Excel.

1. Выделите ячейки, в которые требуется вставить раскрывающийся список, и нажмите «Kutools» > «Раскрывающийся список» > «Создать простой раскрывающийся список».

2. В диалоговом окне «Создать простой выпадающий список» выполните следующие настройки.

Примечание: если вы хотите создать раскрывающийся список на основе предустановленного пользовательского списка в Excel, выберите опцию «Пользовательский список» в разделе «Источник», укажите нужный список в поле «Пользовательский список» и нажмите кнопку «ОК».

Теперь выпадающие списки вставлены в выбранный диапазон.

Редактирование выпадающего списка

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

Редактирование выпадающего списка на основе диапазона ячеек

Чтобы отредактировать выпадающий список, основанный на диапазоне ячеек, выполните следующие действия.

1. Выделите ячейки с выпадающим списком, который требуется отредактировать, и выберите «Данные» → «Проверка данных» → «Проверка данных».

2. В диалоговом окне «Проверка данных» обновите ссылки на ячейки в поле «Источник» и нажмите «ОК».

Редактирование выпадающего списка на основе именованного диапазона

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

1. Нажмите «Формулы» > «Менеджер имен».

Совет: откройте окно «Менеджер имен» с помощью сочетания клавиш Ctrl + F3.

2. В окне «Менеджер имен» выполните следующую настройку:

2,1) В поле «Имя» выберите именованный диапазон, который требуется обновить;

2,2) В разделе «Ссылка на» нажмите кнопку , чтобы выбрать обновленный диапазон для вашего раскрывающегося списка;

2,3) Нажмите кнопку «Закрыть».

3. Затем появится диалоговое окно «Microsoft Excel» — нажмите «Да», чтобы сохранить изменения.

Теперь выпадающие списки, основанные на этом именованном диапазоне, обновлены.

Удаление выпадающего списка

В этом разделе рассказывается, как удалить выпадающий список в Excel.

Удаление выпадающего списка с помощью встроенной функции Excel

Excel предлагает встроенную функцию для удаления выпадающего списка с листа. Выполните следующие действия.

1. Выделите диапазон ячеек, содержащий выпадающий список, который вы хотите удалить.

2. Нажмите «Данные» → «Проверка вводимых данных» → «Проверка вводимых данных».

3. В диалоговом окне «Проверка данных» нажмите «Сбросить все», а затем — «ОК», чтобы сохранить изменения.

Теперь выпадающие списки удалены из раздела «Выберите диапазон».

Легко удалите выпадающие списки с помощью потрясающего инструмента

«Kutools для Excel» предлагает удобный инструмент — «Очистить ограничения проверки данных», с помощью которого можно легко удалить выпадающий список с одного или нескольких выбранных диапазонов одновременно. Выполните следующие действия.

1. Выделите диапазон ячеек, содержащий раскрывающийся список, который вы хотите удалить.

2. Нажмите «Kutools» > «Ограничить ввод» > «Очистить ограничения проверки данных». См. снимок экрана:

3. Затем появится диалоговое окно «Kutools для Excel» с вопросом, очистить ли раскрывающийся список. Нажмите кнопку «OK».

После этого раскрывающиеся списки в этом диапазоне будут немедленно удалены.

Добавление цвета к выпадающему списку

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

Добавление цвета в раскрывающийся список с помощью Использовать условное форматирование

Вы можете создать условные правила для ячейки с раскрывающимся списком, чтобы применить к ней цветовую маркировку. Для этого выполните следующие действия.

1. Выделите ячейки с раскрывающимся списком, который вы хотите оформить цветом.

2. Нажмите «Главная» > «Условное форматирование» > «Управление правилами».

3. В диалоговом окне «Диспетчер правил условного форматирования» нажмите кнопку «Создать правило».

4. В диалоговом окне «Создание нового правила форматирования» задайте следующие параметры.

4,1) В поле «Выберите тип правила» выберите параметр «Форматировать только ячейки, которые содержат»;

4,2) В разделе «Форматировать только ячейки со следующими значениями» выберите «Определенный текст» из первого выпадающего списка, «содержащий» из второго выпадающего списка, а затем выберите первый элемент исходного списка в третьем поле;

Совет: Здесь я выбираю ячейку A16 в третьем текстовом поле. A16 — это первый элемент исходного списка, на основе которого я создал раскрывающийся список.

4,3) Нажмите кнопку «Формат».

4,4) В диалоговом окне «Установить формат ячейки» перейдите на вкладку «Заливка», выберите Цвет фона для указанного текста и нажмите кнопку «OK». Либо при необходимости вы можете выбрать определенный Цвет шрифта для текста.

4,5) Нажмите кнопку «OK», когда вернетесь в диалоговое окно «Создание нового правила форматирования».

5. Вернувшись в диалоговое окно «Управление правилами условного форматирования», повторите действия из шагов 3 и 4, чтобы задать цвета для остальных элементов раскрывающегося списка. После завершения настройки нажмите «OK», чтобы сохранить изменения.

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

Легко добавьте цвет к выпадающему списку с помощью потрясающего инструмента

Знакомьтесь с функцией «Список с цветом» из набора «Kutools для Excel» — она позволяет легко добавить цветовую маркировку в раскрывающийся список Excel.

1. Выделите ячейки с раскрывающимся списком, к которому вы хотите добавить цвет.

2. Нажмите «Kutools» > «Раскрывающийся список» > «Список с цветом».

3. В диалоговом окне «Список с цветом» выполните следующие действия:

Совет: если вы хотите выделять определённые строки в зависимости от выбора в раскрывающемся списке, выберите опцию «Вся строка» в разделе «Применить к», а затем укажите нужные строки в поле «Выделенный диапазон строк».

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

Подсветка ячеек на основе выбора в Раскрывающийся список

Выделенный диапазон строк на основе выбора в Раскрывающийся список

Создание зависимого раскрывающегося списка в Excel или таблицах Google

Зависимый (каскадный) раскрывающийся список динамически отображает доступные варианты выбора на основе значения, выбранного в первом списке. Если вы хотите создать такой список в Excel или Google Таблицах, методы из этого раздела помогут вам легко справиться с задачей.

Создание зависимого раскрывающегося списка в листе Excel

На приведённой ниже демонстрации показан зависимый раскрывающийся список на листе Excel.

Нажмите Как создать зависимый каскадный раскрывающийся список в Excel?, чтобы ознакомиться с пошаговым руководством.

Создание зависимого раскрывающегося списка в таблицах Google

Хотите создать зависимый раскрывающийся список в Таблицах Google? Ознакомьтесь со статьёй Как создать зависимый раскрывающийся список в Таблицах Google?

Создание раскрывающихся списков с возможностью поиска

Если раскрывающийся список на листе содержит длинный перечень элементов, найти нужный бывает непросто. Однако если вы помните начальные или несколько последовательных символов искомого элемента, вы можете воспользоваться функцией поиска в раскрывающемся списке для его быстрого фильтрования. В этом разделе показано, как создать в Excel раскрывающийся список с возможностью поиска.

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

1. Во-первых, создайте вспомогательный столбец рядом со списком «Исходные данные», используя формулу массива.

В этом случае выделите ячейку B2, введите приведённую ниже формулу и нажмите сочетание клавиш «Ctrl» + «Shift» + «Enter», чтобы получить первый результат.

=IFERROR(INDEX($A$2:$A$50,SMALL(IFERROR(MATCH(IF(FIND(CELL("contents"),$A$2:$A$50)>,0,$A$2:$A$50,""),$A$2:$A$50,0),""),ROW(A1))),"")

Выделите ячейку с первым результатом и перетащите её маркер заполнения вниз до самого конца списка.

Примечание: в этой формуле массива диапазон $A$2:$A$50 соответствует вашему диапазону исходных данных, на основе которого будет создан раскрывающийся список. Обновите его в соответствии с вашим фактическим диапазоном данных.

2. Нажмите «Формулы» > «Определить имя».

3. В диалоговом окне «Редактировать имя» выполните следующие настройки.

=OFFSET(Sheet1!$B$2,0,0,COUNTA(Sheet1!$B$2:$B$50)-COUNTIF(Sheet1!$B$2:$B$50,""),1)

Теперь создадим раскрывающийся список на основе именованного диапазона. В этом примере раскрывающийся список с функцией поиска будет размещён на листе Sheet2.

4. Перейдите на лист Sheet2, выделите диапазон ячеек для раскрывающегося списка и выберите «Данные» > «Проверка данных» > «Проверка данных».

5. В диалоговом окне «Проверка данных» выполните следующие действия:

5,1) В поле «Разрешить» выберите «Список»;

5,2) Щелкните поле «Источник», а затем нажмите клавишу «F3»;

5,3) В появившемся диалоговом окне «Вставить имя» выберите именованный диапазон, созданный на шаге 3, и нажмите «OK»;

Совет: Вы можете напрямую ввести именованный диапазон в виде «=имя_диапазона» в поле «Источник».

5,4) Перейдите на вкладку «Предупреждение об ошибке», снимите флажок «Показывать предупреждение об ошибке после ввода недопустимых данных» и, наконец, нажмите кнопку «OK».

6. Щёлкните правой кнопкой мыши по ярлыку листа (Sheet2) и в контекстном меню выберите «Просмотреть код».

7. В открывшемся окне «Microsoft Visual Basic для приложений» скопируйте приведённый ниже код VBA в редактор.

Код VBA: создание раскрывающегося списка с поиском в Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub

8. Нажмите «Alt» + «Q», чтобы закрыть окно Microsoft Visual Basic для приложений.

Теперь созданы раскрывающиеся списки с функцией поиска. Чтобы выбрать нужный элемент, просто введите один или несколько последовательных символов этого элемента в ячейку со списком и щёлкните стрелку раскрывающегося списка — в списке отобразятся только те элементы, которые соответствуют введённому тексту. См. снимок экрана:

Примечание: этот метод чувствителен к регистру.

Создание раскрывающегося списка с отображением Разное значение

Предположим, вы уже создали раскрывающийся список и хотите, чтобы при выборе элемента в ячейке отображалось другое значение. Как показано в примере ниже, раскрывающийся список создан на основе списка стран «Список имен»; при выборе названия страны из этого списка в ячейке должен отображаться её аббревиатурный код. В этом разделе описан способ решения данной задачи с помощью VBA.

1. Создайте новый столбец справа от столбца «Исходные данные» (с названиями стран) и заполните его аббревиатурами стран, которые будут отображаться в ячейке со списком.

2. Выделите оба столбца — со списком стран и со списком аббревиатур, введите имя в поле «Имя» и нажмите клавишу «Enter».

3. Выделите ячейки для раскрывающегося списка (в данном случае D2:D8), затем выберите «Данные» → «Проверка данных» → «Проверка данных».

4. В диалоговом окне «Проверка данных» задайте следующие параметры.

5. После создания раскрывающегося списка щелкните правой кнопкой мыши по ярлыку листа и выберите в контекстном меню пункт «Просмотреть код».

6. В открывшемся окне «Microsoft Visual Basic для приложений» скопируйте приведённый ниже код VBA в редактор.

Код VBA: отображение Разное значение в раскрывающемся списке

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20201027
    selectedNa = Target.Value
    If Target.Column = 4 Then
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

Примечания:

7. Нажмите «Alt» + «Q», чтобы закрыть окно Microsoft Visual Basic для приложений.

Теперь при выборе названия страны из раскрывающегося списка в ячейке автоматически отобразится соответствующая аббревиатура этой страны.

Создание выпадающего списка с флажками

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

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

Если вы хотите создать раскрывающийся список с флажками в Excel, ознакомьтесь со статьёй Как создать раскрывающийся список с несколькими флажками в Excel?.

Добавление автозавершения к выпадающему списку

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

Чтобы включить автозаполнение для раскрывающегося списка на листе Excel, ознакомьтесь со статьёй Как включить автозаполнение при вводе текста в раскрывающемся списке Excel?.

Фильтрация данных на основе выбора в выпадающем списке

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

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

Совет: выполните описанные выше действия, чтобы создать раскрывающийся список в Excel.

Создайте раскрывающийся список с уникальным перечнем элементов

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

1) Скопируйте ячейки, на основе которых будете создавать раскрывающийся список, с помощью клавиш «Ctrl» + «C», а затем вставьте их в новый диапазон.

2) Выделите ячейки в новом диапазоне и выберите «Данные» > «Удалить дубликаты».

3) В диалоговом окне «Удалить дубликаты» нажмите кнопку «ОК».

4) Затем появится окно «Microsoft Excel» с сообщением о количестве удалённых дубликатов — нажмите «ОК».

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

2. Далее создайте три вспомогательных столбца, как указано ниже.

2,1) For the first helper column (here I choose column D as the first helper column), введите приведенную ниже формулу в первую ячейку (кроме заголовка столбца) и нажмите клавишу «Enter». Выделите ячейку с результатом и перетащите маркер заполнения вниз до конца диапазона.

=ROWS($A$2:A2)

2,2) For the second helper column (the E column), введите приведенную ниже формулу в ячейку E2 и нажмите клавишу «Enter». Выделите E2 и перетащите маркер заполнения до конца диапазона.

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

=IF(A2=$H$2,D2,"")

2,3) For the third helper column (the F column), введите приведенную ниже формулу в ячейку F2 и нажмите клавишу «Enter». Выделите F2 и перетащите маркер заполнения до конца диапазона.

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

=IFERROR(SMALL($E$2:$E$17,D2),"")

3. Создайте диапазон на основе исходного диапазона данных для вывода извлеченных данных с помощью приведённых ниже формул.

3,1) Выделите первую ячейку вывода (я выбираю J2), введите в нее приведенную ниже формулу и нажмите клавишу «Enter».

=IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"")

3,2) Выделите ячейку с результатом и перетащите маркер заполнения на две ячейки вправо.

3,3) Оставьте выделенным диапазон J2:L2 и перетащите маркер заполнения вниз до конца диапазона.

Примечания:

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

Выбор нескольких элементов из выпадающего списка

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

Чтобы выбрать несколько элементов из раскрывающегося списка в Excel, ознакомьтесь со статьёй Как создать раскрывающийся список с множественным выбором или значениями в Excel?. В этом руководстве подробно описаны два метода, которые помогут вам решить эту задачу.

Установка значения по умолчанию (предварительно выбранного) для раскрывающегося списка

По умолчанию ячейка с раскрывающимся списком остаётся пустой, а стрелка появляется только при щелчке по ней. Как быстро найти все ячейки с раскрывающимися списками на листе?

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

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

1. Выделите ячейки, которые будут содержать раскрывающийся список, и выберите «Данные» > «Проверка данных» > «Проверка данных».

Совет: если вы уже создали раскрывающийся список, выделите ячейки, содержащие этот список, и выберите «Данные» → «Проверка данных» → «Проверка данных».

2. В диалоговом окне «Проверка данных» выполните следующие настройки.

2,1) В поле «Разрешить» выберите «Список»;

2,2) В поле «Источник» выберите Исходные данные, который будет отображаться в раскрывающемся списке.

Совет: Для уже созданного раскрывающегося списка эти два шага можно пропустить.

2,3) Затем перейдите на вкладку «Предупреждение об ошибке» и снимите флажок «Показывать предупреждение об ошибке после ввода недопустимых данных»;

2,4) Нажмите кнопку «OK».

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

Установка значения по умолчанию для выпадающего списка с помощью формулы

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

1. Выделите ячейку с раскрывающимся списком, введите в неё приведённую ниже формулу и нажмите клавишу «Enter», чтобы отобразить значение по умолчанию. Если ячейки с раскрывающимися списками расположены последовательно, просто перетащите маркер заполнения из результирующей ячейки, чтобы применить формулу ко всем остальным.

=IF(C2="", "--Choose item from the list--")

Примечания:

Установка значения по умолчанию для всех раскрывающихся списков на листе одновременно с помощью кода VBA

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

1. Откройте лист с раскрывающимися списками, для которых нужно задать значение по умолчанию, и нажмите «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне «Microsoft Visual Basic for Applications» выберите «Вставка» > «Модуль», затем вставьте приведённый ниже код VBA в окно редактора кода.

Код VBA: задание значения по умолчанию для всех раскрывающихся списков на листе одновременно

Sub SetDropDownListToDefaultValue()
'Updated by Extendoffice 20201026
Dim xWs As Worksheet
Dim xRg, xFRg As Range
Dim xET: xET = Null
Dim xStr As String
xStr = "- Choose from the list -"
Set xWs = Application.ActiveSheet
Set xRg = xWs.UsedRange.Cells
    On Error Resume Next
    For Each xFRg In xRg
    xET = Null
    xET = xFRg.Validation.Type
    If Not IsNull(xET) Then
        If xFRg.Validation.Type = 3 Then
            xFRg.Value = "'" & xStr
        End If
    End If
    Next
End Sub

Примечание. В приведённом выше коде «- Выберите из списка -» — это значение по умолчанию, отображаемое в ячейке раскрывающегося списка. Вы можете изменить его в соответствии со своими требованиями.

3. Нажмите клавишу «F5» — откроется диалоговое окно «Макросы». Убедитесь, что в поле «Имя макроса» выбрано «DropDownListToDefault», и нажмите «Выполнить», чтобы запустить код.

Затем указанное значение по умолчанию немедленно будет вставлено в ячейки раскрывающихся списков.

Увеличение Размер шрифта раскрывающегося списка

Обычно раскрывающийся список имеет фиксированный размер шрифта. Если он слишком мелкий для удобного чтения, воспользуйтесь приведённым ниже методом VBA, чтобы увеличить его.

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

2. В окне «Microsoft Visual Basic for Applications» скопируйте приведённый ниже код VBA в редактор.

Код VBA: увеличение Размер шрифта раскрывающихся списков на листе

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20201027
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

Примечание. В коде «xZoom = 130» означает, что размер шрифта всех раскрывающихся списков на текущем листе будет увеличен до 130 %. Вы можете изменить это значение по своему усмотрению.

3. Нажмите клавиши «Alt» + «Q», чтобы закрыть окно Microsoft Visual Basic for Applications.

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

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

Лучшие инструменты повышения продуктивности в Office

🤖	KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
	Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
	Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
	Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
	Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
	Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
	Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое

Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…

Подробнее о Kutools для Excel…Бесплатная загрузка…

---

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

• Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
• Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Подробнее о Office Tab…Бесплатная загрузка…

---

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

• Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
• Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
• Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
• 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
• Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек

Подробнее о Kutools for Office…Бесплатная загрузка…