Как выбрать несколько элементов из раскрывающегося списка в ячейку в Excel?
Выпадающий список часто используется в повседневной работе Excel. По умолчанию в раскрывающемся списке можно выбрать только один элемент. Но в некоторых случаях вам может потребоваться выбрать несколько элементов из раскрывающегося списка в одну ячейку, как показано ниже. Как с этим справиться в Excel?
Выберите несколько элементов из раскрывающегося списка в ячейку с помощью VBA
Легко и быстро выберите несколько элементов из выпадающего списка в ячейку
Выберите несколько элементов из раскрывающегося списка в ячейку с помощью VBA
Вот некоторые VBA, которые могут оказать вам услугу при решении этой задачи.
Выберите повторяющиеся элементы из раскрывающегося списка в ячейке
1. После создания раскрывающегося списка щелкните правой кнопкой мыши вкладку листа, чтобы выбрать Просмотреть код из контекстного меню.
2. Затем в Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код в пустой скрипт.
VBA: выберите несколько элементов из раскрывающегося списка в ячейке
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
Dim xRgVal As Range
Dim xStrNew As String
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
xStrNew = Target.Value
Application.Undo
If xStrNew = Target.Value Then
Else
xStrNew = xStrNew & " " & Target.Value
Target.Value = xStrNew
End If
Application.EnableEvents = True
End Sub
3. Сохраните код и закройте окно, чтобы вернуться к раскрывающемуся списку. Теперь вы можете выбрать несколько элементов из раскрывающегося списка.
Примечание:
1. С помощью VBA элементы разделяются пробелами, вы можете изменить xStrNew = xStrNew & "" & Целевое значение другим, чтобы изменить разделитель по мере необходимости. Например, xStrNew = xStrNew & "," & Целевое значение разделит элементы запятыми.
2. Этот код VBA работает для всех раскрывающихся списков на листе.
Выберите несколько элементов из раскрывающегося списка в ячейку без повторения
Если вы просто хотите выбрать уникальные элементы из раскрывающегося списка в ячейку, вы можете повторить вышеуказанные шаги и использовать приведенный ниже код.
VBA : Выберите несколько элементов из раскрывающегося списка в ячейку без повторения
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
Dim I As Integer
Dim xRgVal As Range
Dim xStrNew As String
Dim xStrOld As String
Dim xFlag As Boolean
Dim xArr
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
xFlag = True
xStrNew = " " & Target.Value & " "
Application.Undo
xStrOld = Target.Value
If InStr(1, xStrOld, xStrNew) = 0 Then
xStrNew = xStrNew & xStrOld & " "
Else
xStrNew = xStrOld
End If
Target.Value = xStrNew
Application.EnableEvents = True
End Sub
Оба вышеуказанных кода VBA не поддерживают удаление частей содержимого ячейки, поддерживают только очистку всех элементов ячейки.
Легко и быстро выберите несколько элементов из выпадающего списка в ячейку
В Excel, кроме кода VBA, нет других способов разрешить выбор нескольких элементов из раскрывающегося списка в ячейке. Однако Раскрывающийся список с множественным выбором особенность Kutools for Excel может быстро и легко справиться с этой работой с помощью кликов.
Шаг 1: выберите Kutools > Раскрывающийся список > Раскрывающийся список с множественным выбором
Шаг 2. В раскрывающемся списке множественного выбора укажите параметры
- Установить область действия;
- Укажите разделитель для элементов-разделителей в ячейке;
- Определите направление текста;
- Нажмите кнопку ОК.
Результат:
Легко создавать динамический двухуровневый или многоуровневый зависимый раскрывающийся список в Excel
|
В Excel создать двухуровневый или многоуровневый раскрывающийся список сложно. Здесь Динамический раскрывающийся список полезности Kutools for Excel могу сделать вам одолжение. Все, что вам нужно сделать, это упорядочить данные, как показано в примере, затем выбрать диапазон данных и диапазон вывода, а затем оставить это утилите. Нажмите, чтобы получить 30-дневную бесплатную пробную версию! |
Kutools for Excel: с более чем 300 удобными надстройками Excel, вы можете попробовать бесплатно без ограничений в течение 30 дней. |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!