Как создать выпадающий список с несколькими флажками в 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 for Applications замените исходный код в окне Модуль на следующий 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 — это имя поля со списком; Select Options и Pickup Options — это отображаемые тексты фигуры; а ListBoxOutput — это имя диапазона выходной ячейки. Вы можете изменить их по своему усмотрению.

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

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

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

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

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

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

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

• 2.1) Выберите ячейки, содержащие выпадающий список;
• 2.2) В поле Разделитель введите разделитель, который вы будете использовать для разделения нескольких элементов;
• 2.3) Проверьте опцию Включить поиск при необходимости. (Если вы отметите эту опцию, позже можно будет выполнять поиск в выпадающем списке.)
• 2.4) Нажмите кнопку OK.

  

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

Для получения дополнительной информации об этой функции посетите этот урок.

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

Связанные статьи: