Скачать или смотреть Как создать раскрывающийся список с возможностью выбора нескольких элементов в Excel!

В этом видео я пошагово расскажу вам о процессе настройки раскрывающегося списка с множественным выбором — методе, который может значительно упростить ваш рабочий процесс и снизить вероятность ошибок. Независимо от того, составляете ли вы отчёты, управляете запасами или отслеживаете проекты, это руководство поможет вам сделать работу с Excel более удобной и эффективной. Не забудьте подписаться на Академию Excel от Anser, чтобы получить больше советов и рекомендаций, которые превратят вас в мастера Excel. Давайте вместе раскроем весь потенциал Excel и сделаем управление данными лёгким и простым.

Авторство кода VBA принадлежит @SoftTechTutorials89

Private Sub Worksheet_Change(ByVal Target As Range)

' Инициализация переменных
Dim oldVal As String
Dim newVal As String

' Проверка изменений в выпадающих списках

Application.EnableEvents = True

If Target.Address = "$G$2" Or Target.Address = "$G$3" Then

If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
Exit Sub
' Добавление нескольких выбранных элементов в список

Else
If Target.Value = "" Then
Exit Sub

Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
If oldVal = "" Then
Target.Value = newVal
Else
If InStr(oldVal, newVal) = 0 Then
Target.Value = oldVal & ", " & newVal '& vbNewLine &
Иначе
Target.Value = oldVal
Конец Если
Конец Если
Конец Если
Конец Если
Конец Если

Application.EnableEvents = True

Конец Подпрограммы