Як створити випадаючий список із декількома прапорцями в 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 з підтримкою макросу для повторного використання коду в майбутньому.

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

Вищевказаний метод занадто багатоступеневий, щоб його легко обробити. Тут настійно рекомендую Випадаючий список із прапорцями корисність Kutools для перевершувати щоб допомогти вам легко створити розкривний список із прапорцями у визначеному діапазоні, поточний аркуш, поточна книга або всі відкриті книги відповідно до ваших потреб. Дивіться демонстрацію нижче:
Завантажте та спробуйте зараз! (30-денний безкоштовний маршрут)

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

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

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

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

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

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

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

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

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

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

Створіть випадаючий список з іншої книги в Excel
Створити випадаючий список перевірки даних серед робочих аркушів у книзі досить просто. Але якщо дані списку, необхідні для перевірки даних, знаходяться в іншій книзі, що б ви зробили? У цьому посібнику ви дізнаєтесь, як детально створити випадаючий список з іншої книги в Excel.

Створіть розкривний список для пошуку в Excel
Для випадаючого списку з численними значеннями пошук правильного - непроста робота. Раніше ми запровадили метод автоматичного заповнення випадаючого списку при введенні першої літери у випадаючому вікні. Окрім функції автозавершення, ви також можете зробити пошук у розкривному списку для підвищення ефективності роботи при пошуку належних значень у розкривному списку. Щоб зробити пошук у розкривному списку спробним, скористайтеся методом у цьому посібнику.

Автоматично заповнювати інші комірки під час вибору значень у спадному списку Excel
Скажімо, ви створили випадаючий список на основі значень у діапазоні комірок B8: B14. Вибираючи будь-яке значення зі спадного списку, ви хочете, щоб відповідні значення в діапазоні комірок C8: C14 автоматично заповнювались у вибраній комірці. Для вирішення проблеми методи з цього посібника допоможуть вам.

Більше підручників для випадаючого списку ...

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

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

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

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

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

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

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

65 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
mmp13 · 1 months ago
hello, I have a problem with the list box: to make the list going down, I have to click on the box that allows the list to go down but when I click, it does not go down automatically, I have to click outside the list so that it refreshes and the list goes down, what to do? Thank you
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 24 days ago
  
  Hi,
  You can't scroll ActiveX Listbox by mouse wheel. There is no setting for it.
  
  Reply
To post as a guest, your comment is unpublished.
faez · 1 months ago
Hi, thank you for sharing this! I have a question though, is it possible to populate different cells based on the selected option?
For example, instead of having everything in one cell, each selection is populated in the cell below the earlier selection. Thank you!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 months ago
  
  Hi faez,
  The VBA below helps to populate the selected options in different cells on the same row. Please have a try.
  
  Sub Rectangle2_Click()
  'Updated by Extendoffice 20211124
  Dim xSelShp As Shape, xSelLst As Variant, I As Integer
  Dim xRg As Range
  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"
  Else
  xLstBox.Visible = False
  xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
  Set xRg = Range("ListBoxOutput")
  For I = 0 To xLstBox.ListCount - 1
  If xLstBox.Selected(I) = True Then
  xSelLst = xLstBox.List(I)
  xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
  Set xRg = xRg.Offset(0, 1)
  End If
  Next I
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Eloi · 2 months ago
Hi Crystal,

Thanks a lot for this code, very helpful and convenient. One question : how to adpat it in order not to have the separator ";" if only one item is selected ?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 months ago
  
  Hi Eloi,
  No separator is displayed when you select only one item in the list.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  eloi · 1 months ago
  
  Thanks Crystal, the mistake was in my adaptation of the code.
  
  If someone needs to adapt it with a click on a cell instead of a click on a shape, you could try this (with a call to this sub in your sheet, with a condition when your cell is selected)
  
  Sub affichage_liste(xLstBox As MSForms.ListBox, texte1 As String)
  'Updated by Extendoffice 20200730
  Dim xSelLst As Variant, I, J As Integer
  Dim xV As String
  
  If xLstBox.Visible = False Then
  xLstBox.Visible = True
  xStr = ""
  xStr = Range(texte1).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
  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(texte1) = Mid(xSelLst, 1, Len(xSelLst) - 2)
  Else
  Range(texte1) = ""
  End If
  End If
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 24 days ago
  
  Hi Eloi,
  The code you provided doesn't seem to work. I have modified it again as below.
  After adding the code in your Sheet(Code) window, go back to the worksheet, click the cell C4 to expand the list box, after selecting items from the list box, click on any cell in the worksheet to output the selection, and no separator is displayed when you select only one item in the list.
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Updated by Extendoffice 20211223 Dim xSelLst As Variant, I, J As Integer Dim xV As String Set xLstBox = ActiveSheet.ListBox1 If Target.Address = "$C$4" Then If xLstBox.Visible = False Then xLstBox.Visible = True 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 End If Else xLstBox.Visible = False 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) - 2) Else Range("ListBoxOutput") = "" End If End If End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  eloi · 24 days ago
  
  Thanks a lot Crystal
  
  Reply
To post as a guest, your comment is unpublished.
Morgane K · 7 months ago
Bonjour,
Je suis plus que novice sur excel étant sur mac je ne peux utiliser l'outil Kutools j'ai donc tenté de créer une liste déroulante où l'on peut cocher plusieurs items mais je bloque dès le début dans l'onglet développeur puisque je n'ai pas du tout l'outil "insert".
Merci pour votre aide
- Reply
To post as a guest, your comment is unpublished.
Gowtham · 1 years ago
Hi I am newbie to VBA. I tried to execute the code but i get the following error "Run-time error '-2147024809 (80070057)': The Item with the specified name wasn't found". Can you help me with this
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Gowtham,
  It seem that this error occurs when you running the code directly in the Code editor (the Microsoft Visual Basic for Applications window).
  After adding the code, please press the Alt + Q keys to close the Microsoft Visual Basic for Applications window.
  Go back to the worksheet and execute the code by clicking the rectangle button (see the .gif picture in step 6).
  
  Reply
  
  To post as a guest, your comment is unpublished.
  minapnh · 4 months ago
  
  Hi Crystal, even after your tip am getting same error as Gowtham. My error is right after protect my sheet. Would you please help me with this issue?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Mina · 4 months ago
  
  Hi Crystal, Even After your tip I am getting same error as Gowtham.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 23 days ago
  
  Hi Mina,
  Which Excel and Windows version are you using?
  
  Reply
To post as a guest, your comment is unpublished.
fbjr · 1 years ago
Hello,
I added this code to an existing macro template and it is loading the selections correctly, but it is NOT clearing out the x on the selected items..
This will be used on/in a template worksheet that has submit button/macro to load the worksheet answers into a hidden worksheet with a data table.
And am happy to say the field data loaded to the cell, transferred into my variable, and loaded to the data table as expected.

This code was a HUGE blessing!

I use excel 2016

How do I fix this. I am using this version from below.

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
- Reply
To post as a guest, your comment is unpublished.
ben · 1 years ago
Hello,

I'm having a similar problem to Tom from 2 months ago. When I try to share my file with a colleague, the multi-select droplist list isn't working. However, I used the Kutools add-on to create this as opposed to creating it myself. I've also saved it as macro-enabled.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi ben,
  The multi-select drop down list feature of Kutools only works in the Excel that installed our Kutools. We are working on this issue, sorry for the inconvenience.
  
  Reply
To post as a guest, your comment is unpublished.
Tom · 1 years ago
Hello I looking the resolve for problem with saving choosing on drop down list
when i choose something on list and send file to my colleague, then when he open file and want to check my list then list has cleared and cell "ListBoxOutput" was cleared too.
help please :)
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Tom,
  Please save the workbook as an "Excel MacroEnable Workbook" and then send this .xlsm file to your colleague.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Tom · 1 years ago
  
  hello i save this file in this format from beginning ;), but without effect. still when i fill file and send to someone then when he opened file and click to "shape" then macro started from begin and cleared list
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Tom,
  I am sorry for the mistake. The code has been updated again. Please have a try.
  
  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
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Tom · 1 years ago
  
  Now it's working perfectly.
  Many thanks for your help
  
  Reply
To post as a guest, your comment is unpublished.
Lesley Cantu · 1 years ago
Hi! What would I need to do if I want to place multiple drop down lists on one sheet?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Good day,
  You can browse the below page to find the solution.
  https://www.extendoffice.com/documents/excel/915-excel-insert-drop-down-list.html
  
  Reply
To post as a guest, your comment is unpublished.
Elston Hynd · 1 years ago
Hi, I have used your code below to create a multiple drop down box in excel that is also able to work when the worksheet is in protected mode. However, it only works in the one ListOutputBox (cell O38). I want it to work in a range of cells (O38:O239). What do I need to change?

Sub Rectangle3_Click()
'Updated by Extendoffice 20191114
Dim xSelShp As Shape, xSelLst As Variant, i As Integer
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"
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
- Reply
To post as a guest, your comment is unpublished.
Chez Baker · 2 years ago
How would you make the output names display to different cells instead of being put together in one? Thank you!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Chez Baker,
  With the below VBA code, you can fill the multiselection in different cells on the same row. Please have a try.
  
  Sub Rectangle2_Click()
  'Updated by Extendoffice 20190924
  Dim xSelShp As Shape, xSelLst As Variant, I As Integer
  Dim xRg As Range
  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"
  Else
  xLstBox.Visible = False
  xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
  Set xRg = Range("ListBoxOutput")
  For I = 0 To xLstBox.ListCount - 1
  If xLstBox.Selected(I) = True Then
  xSelLst = xLstBox.List(I)
  xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
  Set xRg = xRg.Offset(0, 1)
  End If
  Next I
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Gustav Benz · 2 years ago
Thank you so much for this, now how do I put multiple checkbox menus with different macros (as this one only applies to adding one in the excel file)?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good day,
  Sorry can't help you with that. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Jorge Valdes · 2 years ago
hello Crystal, how Can I use this VBA code in order to fill diferents cells, this article is only to fill the multiselection in the same cell... could you help me please?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Jorge Valdes,
  With the below VBA code, you can fill the multiselection in different cells on the same row. Please have a try.
  
  Sub Rectangle2_Click()
  'Updated by Extendoffice 20190924
  Dim xSelShp As Shape, xSelLst As Variant, I As Integer
  Dim xRg As Range
  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"
  Else
  xLstBox.Visible = False
  xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
  Set xRg = Range("ListBoxOutput")
  For I = 0 To xLstBox.ListCount - 1
  If xLstBox.Selected(I) = True Then
  xSelLst = xLstBox.List(I)
  xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
  Set xRg = xRg.Offset(0, 1)
  End If
  Next I
  End If
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Amy · 2 years ago
  
  too cool! Thank you!
  
  Reply
To post as a guest, your comment is unpublished.
Jimmy · 2 years ago
Como puedo replicar éste ejercicio en las filas inferiores ?
How can I replicate this exercise in the rows below?
- Reply
To post as a guest, your comment is unpublished.
alcatel · 2 years ago
HELP!!! how output in different ranges (vertically)?
- Reply
- To post as a guest, your comment is unpublished.
  Jea Perez · 1 years ago
  
  Sub Rectangle2_Click()
  'Updated by Extendoffice 20190924
  Dim xSelShp As Shape, xSelLst As Variant, I As Integer
  Dim xRg As Range
  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"
  Else
  xLstBox.Visible = False
  xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
  Set xRg = Range("ListBoxOutput")
  For I = 0 To xLstBox.ListCount - 1
  If xLstBox.Selected(I) = True Then
  xSelLst = xLstBox.List(I)
  xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
  Set xRg = xRg.Offset(1, 0)
  End If
  Next I
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
alcat · 2 years ago
Добрый день! Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке? чтобы по выходило по вертикали?
- Reply
To post as a guest, your comment is unpublished.
binoy · 3 years ago
It is working fine, thanks a lot for your help. I have one issue here is that, all the output is coming in the same cell E4, how can we get the output in different cells Eg: output for C4 in E4, C5 in E5 ,C6 in E6 etc.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good Day,
  The problem you mentioned can't be solve yet.
  
  Reply
To post as a guest, your comment is unpublished.
LizKats · 3 years ago
Hello,

I am wondering if there is a way to direct the pickup options to more than one cell (not just E4), or make the selections a dropdown checklist so that I can select multiple options off a checklist, but do so repeatedly and independent of the other selections I've made. For example, how would I go about using the same list of pickup options to input a different selection of items to E5, E6, E7, etc. from the same pickup list.

Thank you
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi LizKats,
  Please try the below code. Hope I can help. Thank you.
  
  Sub Rectangle2_Click()
  'Updated by Extendoffice 20200529
  Dim xSelShp As Shape, xSelLst As Variant, i As Integer
  Set xSelShp = ActiveSheet.Shapes(Application.Caller)
  Set xLstBox = ActiveSheet.ListBox1
  Dim xRg As Range
  Dim xCount, xFNum, xR, xC As Integer
  Dim xStr As String
  If xLstBox.Visible = False Then
  xLstBox.Visible = True
  xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
  Else
  xLstBox.Visible = False
  xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
  Set xRg = Range("ListBoxOutput")
  xCount = xLstBox.ListCount - 1
  xStr = ""
  For i = xLstBox.ListCount - 1 To 0 Step -1
  If xLstBox.Selected(i) = True Then
  xStr = xLstBox.List(i) & ";" & xStr
  End If
  Next i
  
  If xRg.Value = "" Then
  xRg.Value = xStr
  Else
  Set xRg = xRg.Offset(1, 0)
  Do While xRg.Value <> ""
  Set xRg = xRg.Offset(1, 0)
  Loop
  xRg.Value = xStr
  End If
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
mark · 3 years ago
amazing its working but i have one issue after i save the file and open it again the all check from the checkbox list is all gone
can you help me to this one thank you so much
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear mark,
  We have published an article "How to save or retain selections of ActiveX list boxes in Excel?" which introduces method of saving the selections of list boxes after close and reopen the workbook.
  You can follow this link to get more information: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
  
  Reply
- To post as a guest, your comment is unpublished.
  mark · 3 years ago
  
  also, it changes the size of the list box and shape always after save and open again the file if someone has a solution for this issue please help me
  
  thank you so much
  
  Reply
To post as a guest, your comment is unpublished.
Angel · 3 years ago
AMAZING its working but after i close the excel and open it again the check from the checkbox is gone so if i click the button all list will be gone any solution for this
please someone help me
Thank you so much in advanced
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Angel,
  We have published an article "How to save or retain selections of ActiveX list boxes in Excel?" which introduces method of saving the selections of list boxes after close and reopen the workbook.
  You can follow this link to get more information: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
  
  Reply
To post as a guest, your comment is unpublished.
milindghadi07@gmail.com · 3 years ago
i want automatically update names in different columns. is it possible if possible kindly share me the code.
- Reply
To post as a guest, your comment is unpublished.
· 3 years ago
"I have created a file using ActiveX list box as you are explained,there i have entered some data and and added some properties too.i have checked some data using the checkbox in the list ,and saved & exit from the file. But while re-opening the file it's not showing any checked data..can anybody give me a suggestion to save those updationes."
Can anybody help me please.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Besides, you need to save the workbook as an Excel Macro-enabled Workbook, and activate the code every time you change the selections of the list box.
  
  Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  Please place the below VBA code into ThisWorkbook code window.
  In the code, Sheet6 is the default name of the worksheet which contains the List Box you want to retain the selections as below screenshot shown. And ListBox1 is the name of the list box. Please change them as you need.
  
  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Call SaveSelections
  End Sub
  
  Private Sub Workbook_Open()
  Call RestoreSelections
  End Sub
  
  Private Sub SaveSelections()
  
  Dim arr() As Variant, i As Long, j As Long
  
  With Sheet6.OLEObjects("ListBox1").Object
  If .ListIndex > 0 Then
  For i = 0 To .ListCount - 1
  If .Selected(i) Then
  j = j + 1
  ReDim Preserve arr(1 To j)
  arr(j) = i
  End If
  Next
  Names.Add Name:="Selections", RefersTo:=arr, Visible:=False
  End If
  End With
  
  End Sub
  
  Private Sub RestoreSelections()
  
  Dim arr As Variant, i As Integer
  
  arr = [Selections]
  
  With Sheet6.OLEObjects("ListBox1").Object
  For i = 1 To UBound(arr)
  .Selected(arr(i)) = True
  Next
  End With
  
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  · 3 years ago
  
  Thank you for the reply sir ,but its not working in the case of my file , can u please send your mail id , so that i can mail you my file to you.
  Thanks in advance
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear manjusha isac,
  Please send your file to zxm@addin99.com. Hope I can help.
  
  Reply
To post as a guest, your comment is unpublished.
amit7138@yahoo.com · 3 years ago
Work perfectly as per the Instructions. But, How can I use this on a Protected sheet. Currently If I use this after protecting the sheet It gives me and error "Run-time error '-2147024809 (80070057)': The Specified Value is out of Range"
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Amit Sood,
  Before protecting the worksheet, please format the Output cell as unlocked and then apply the below VBA code. Thank you for your comment.
  
  Sub Rectangle2_Click()
  Dim xSelShp As Shape, xSelLst As Variant, I As Integer
  On Error Resume Next
  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"
  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
  
  Reply
To post as a guest, your comment is unpublished.
Amit Sood · 3 years ago
It works perfectly as per the instructions, However if I protect the sheet it gives and error. Any workaround for this?
- Reply
To post as a guest, your comment is unpublished.
gohardrgohome · 4 years ago
I'm a newbie to this but can anyone tell me how to create a mult-selection ListBox that will open, e.g., when I select a name. I want the list box to fit in a single.
EXAMPLE: I have a list of names with contact info, etc. I want to create a duplicate Listbox for each name in my list. I'd like it to open automatically when I select a name and collapse back into the cell when I go to another row of info. Please advise. Thanks in advance.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 4 years ago
  
  Dear Randy,
  Sorry can't solve this probem.
  
  Reply
To post as a guest, your comment is unpublished.
MartSkot · 4 years ago
Thank you! It is great and it works!
- Reply
To post as a guest, your comment is unpublished.
VBR looser · 4 years ago
Once the output is done and press the button again, the previous selected items in the list box cannot be changed. How to resolve?
- Reply
To post as a guest, your comment is unpublished.
gimmic · 4 years ago
could you please explain how can i easily copy this listbox for 100 rows? (seperate listboxes for each of 100 rows)
- Reply
To post as a guest, your comment is unpublished.
gimmic · 4 years ago
Hello
How can copy this listbox for multi cells. Just copy and paste is not working. Could you please explain for example in each cells (E5,E6,E7,E8,...) how can i put this selection box?
- Reply
To post as a guest, your comment is unpublished.
harshit · 4 years ago
can you please explain how you have added ListBoxOutput on E4 cell
- Reply
To post as a guest, your comment is unpublished.
Chris M · 5 years ago
This is just what i have been looking fo, is there a modification to the code that will put the next selection from the listbox in the next line. for eg
one
two
three
Instead of :
one, two, three
- Reply
To post as a guest, your comment is unpublished.
Chris M · 5 years ago
This is exactly what I have been looking for, can the code be modified to allow the selected data to display in separate cells down the column? so instead of:
Monday, Tuesday, Wednesday,
display as.
Monday
Tuesday
Wednesday
- Reply
To post as a guest, your comment is unpublished.
Gazali Yakubu · 5 years ago
This is fantastic. But will be better if the multi selection can be placed at where the cursor is active. Not necessarily what the code specifies.
- Reply

Увійти в свій акаунт

Скидання пароля

попередження