Макрос выпадающего списка

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выпадающего списка (Формулы/Formulas)

fayfermn

Дата: Среда, 27.07.2022, 12:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 20% ±

Всем доброго времени суток.

Есть следующая загвоздка.
Есть макрос реализующий возможность вносить в ячейку несколько значений из выпадающего списка.
при попытке отредактировать целевые ячейки с выпадающим списком. Получается ситуация, если например, при выборе значений выбрал одно ошибочно, нужно полностью очищать ячейку от данных через DEL. Если пытаюсь скорректировать, удаляя ненужное значение через Backspace, начинает дублировать значение.

Как скорректировать, чтобы ячейки редактировались и макрос не дублировал , при повторном выборе, значения из выпадающих списков в целевых ячейках?

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("L:L")) Is Nothing And Target.Cells.Count = 1 Then
Application.EnableEvents = False
newVal = Target
Application.Undo
oldval = Target
If Len(oldval) <> 0 And oldval <> newVal Then
Target = Target & ";" & newVal
Else
Target = newVal
End If
If Len(newVal) = 0 Then Target.ClearContents
Application.EnableEvents = True
End If
End Sub

[/vba]