Як створити випадаючий список із декількома прапорцями в Excel?

Багато користувачів Excel, як правило, створюють випадаючий список із декількома прапорцями, щоб вибирати кілька елементів зі списку за раз. Насправді ви не можете створити список із кількома прапорцями за допомогою перевірки даних. У цьому підручнику ми покажемо вам два способи створення випадаючого списку з декількома прапорцями в Excel.

Використовуйте поле списку, щоб створити випадаючий список із декількома прапорцями
В: Створіть поле списку з вихідними даними
B: Назвіть клітинку, в якій ви знаходите вибрані елементи
C: Вставте фігуру, яка допоможе вивести вибрані елементи
Легко створюйте випадаючий список за допомогою прапорців за допомогою дивовижного інструменту
Більше підручників для випадаючого списку ...

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

Як показано на знімку екрана, на поточному аркуші всі імена в діапазоні A2: A11 будуть вихідними даними списку. Натисніть кнопку в комірці C4, щоб вивести вибрані елементи, і всі вибрані елементи у полі списку будуть відображені в комірці E4. Для досягнення цього, будь ласка, зробіть наступне.

A. Створіть поле списку з вихідними даними

1. клацання Розробник > Insert > Вікно списку (Active X Control). Дивіться знімок екрана:

2. Намалюйте вікно списку на поточному аркуші, клацніть правою кнопкою миші та виберіть властивості з меню, що клацне правою кнопкою миші.

3 В властивості діалогове вікно, вам потрібно налаштувати наступним чином.

• 3.1 У ListFillRange поле, введіть діапазон джерела, який відображатиметься у списку (тут я ввожу діапазон A2: A11);
• 3.2 У ListStyle поле, виберіть 1 - опція стилю fmList;
• 3.3 У MultiSelect поле, виберіть 1 - fmMultiSelectMulti;
• 3.4 Закрийте властивості діалогове вікно. Дивіться знімок екрана:

B: Назвіть клітинку, в якій ви знаходите вибрані елементи

Якщо вам потрібно вивести всі вибрані елементи у вказану комірку, наприклад E4, виконайте наступне.

1. Виберіть комірку E4, введіть ListBoxOutput в Ім'я Box і натисніть кнопку вводити ключ

C. Вставте фігуру, щоб допомогти вивести вибрані елементи

1. клацання Insert > форми > Прямокутник. Дивіться знімок екрана:

2. Намалюйте прямокутник на своєму аркуші (тут я малюю прямокутник у клітинці С4). Потім клацніть прямокутник правою кнопкою миші та виберіть Призначити макрос з меню, що клацне правою кнопкою миші.

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

Примітка: У коді, Прямокутник1 - назва фігури; ListBox1 - ім'я вікна списку; Виберіть Параметри і Варіанти самовивозу відображаються тексти фігури; та ListBoxOutput - назва діапазону вихідної комірки. Ви можете змінити їх відповідно до своїх потреб.

5. прес інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.

6. Натискання кнопки прямокутника призведе до згортання або розширення вікна списку. Коли поле списку розширюється, перевірте елементи у полі списку, а потім клацніть прямокутник ще раз, щоб вивести всі вибрані елементи в клітинку E4. Дивіться нижче демонстрацію:

7. А потім збережіть книгу як Робоча книга Excel з підтримкою макросу для повторного використання коду в майбутньому.

Створіть випадаючий список із прапорцями за допомогою дивовижного інструменту

Окрім вищезазначеної демонстрації, ми також надаємо покрокове керівництво, щоб продемонструвати, як застосувати цю функцію для досягнення цього завдання. Будь ласка, виконайте наступне.

1. Відкрийте робочий аркуш, для якого ви встановили розкривний список перевірки даних, натисніть Кутулс > Випадаючий список > Випадаючий список із прапорцями > Налаштування. Дивіться знімок екрана:

2 В Випадаючий список із прапорцями Налаштування діалогове вікно, будь ласка, налаштуйте наступним чином.

• 2.1) У Застосувати до у розділі вкажіть область застосування, де ви будете створювати прапорці для елементів зі спадного списку. Ви можете вказати a певний діапазон, поточний аркуш, чинна робоча книга or всі відкриті робочі книги в залежності від потреб.
• 2.2) У режим розділ, виберіть стиль, який потрібно вивести для вибраних елементів;
• Тут бере Змінювати як приклад, якщо ви виберете цей параметр, значення комірки буде змінено залежно від вибраних елементів.
• 2.3) У сепаратор поле, введіть роздільник, який ви будете використовувати для розділення декількох елементів;
• 2.4) У Напрямок тексту розділ, виберіть напрямок тексту відповідно до ваших потреб;
• 2.5) Клацніть на OK кнопки.

3. Останній крок натисніть Кутулс > Випадаючий список > Випадаючий список із прапорцями > Увімкніть розкривний список прапорців щоб активувати цю функцію.

Відтепер, коли ви клацаєте клітинки зі спадним списком у зазначеній області, спливає вікно списку. Будь ласка, виберіть елементи, встановивши прапорці для виведення в клітинку, як показано нижче (Візьміть режим Modify як приклад ).

Щоб отримати докладнішу інформацію про цю функцію, будь ласка, завітайте сюди.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.

Статті по темі:

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...