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

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

Использование поля со списком для создания раскрывающегося списка с несколькими флажками
A: Создайте поле со списком с помощью Исходные данные
B: Присвойте имя ячейке, в которой будет располагаться Количество выбранных элементов
C: Вставьте фигуру для вывода результата Количество выбранных элементов
Легко создавайте раскрывающийся список с флажками с помощью удивительного инструмента
Другие руководства по раскрывающимся спискам…

Использование поля со списком для создания раскрывающегося списка с несколькими флажками

Как показано на снимке экрана ниже, все имена из диапазона A2:A11 на текущем листе станут исходными данными для поля со списком в ячейке C4. При щелчке по этому полю отобразится список элементов для выбора, а количество выбранных элементов появится в ячейке E4. Чтобы настроить это, выполните следующие шаги:

A. Создайте поле со списком, используя данные из раздела «Исходные данные».

1. Перейдите на вкладку Разработчик → Вставить → Поле со списком (элемент управления ActiveX). См. снимок экрана:

2. Нарисуйте поле со списком на листе Текущий лист, щёлкните по нему правой кнопкой мыши и выберите пункт Свойства в контекстном меню.

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

• 3,1 В поле ListFillRangeукажите диапазон Исходный диапазон, который будет отображаться в списке (в данном примере указан диапазон)A2:A11);
• 3,2 В поле ListStyleвыберите значение 1 – fmListStyleOption;
• 3,3 В поле MultiSelectвыберите значение 1 – fmMultiSelectMulti;
• 3,4 Закройте диалоговое окно Свойства. См. снимок экрана:

B: Присвойте имя ячейке, в которую будет выводиться результат Количество выбранных элементов

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

1. Выделите ячейку E4, введите название ListBoxOutput в Поле имени и нажмите клавишу Enter.

C. Вставьте фигуру для вывода результата Количество выбранных элементов

1. Перейдите на вкладку Вставка > Фигуры > Прямоугольник. См. снимок экрана:

2. Нарисуйте прямоугольник на листе (в данном примере — в ячейке C4). Затем щёлкните по нему правой кнопкой мыши и выберите в контекстном меню команду Назначить макрос.

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

4. В открывшемся окне Microsoft Visual Basic для приложений замените исходный код в окне Модуль приведённым ниже кодом VBA.

Код VBA: создание списка с несколькими флажками

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Примечание: В коде Rectangle1 — это имя фигуры; ListBox1 — имя поля со списком; Выбрать параметры и Pickup Options — отображаемый текст фигуры; а ListBoxOutput — имя ячейки для вывода. Вы можете изменить их в соответствии со своими требованиями.

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

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

7. Затем сохраните книгу как Книгу Excel с поддержкой макросов, чтобы использовать код в будущем.

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

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

1. Откройте лист, на котором вы настроили проверку данных «Раскрывающийся список», и последовательно нажмите Kutools > Раскрывающийся список > Включить расширенный раскрывающийся список. Затем ещё раз щёлкните Добавить флажки в выпадающий список в группе Раскрывающийся список. См. снимок экрана:

2. В диалоговом окне Добавить флажки в раскрывающийся список выполните следующие настройки.

• 2,1) Выделите ячейки, содержащие раскрывающийся список;
• 2,2) В поле Разделительукажите разделитель, который будет использоваться для отделения нескольких элементов;
• 2,3) Установите флажок напротив параметра Включить функцию поиска, если это необходимо. (Если вы установите этот флажок, позже сможете выполнять поиск по раскрывающемуся списку.)
• 2,4) Нажмите кнопку ОК.

  

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

Более подробную информацию об этой функции вы найдёте в данном руководстве.

В этой статье описаны два простых способа создать раскрывающийся список с флажками в Excel — выбирайте тот, что вам больше по душе! Хотите освоить ещё больше полезных приёмов и лайфхаков для Excel? На нашем сайте вас ждут тысячи обучающих материалов.

См. также:

Лучшие инструменты повышения продуктивности в 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…Бесплатная загрузка…