Я создал список проверки данных и добавил код VB (ниже), чтобы пользователь мог выбрать более одного варианта в списке. Пользователь может выбрать из списка или ввести данные (если ни один из вариантов в списке не подходит). Но если пользователь выбирает из списка и вводит новые данные, выбор повторяется.
Например, список содержит следующие варианты: A, B, C, D, E. Пользователь должен выбрать A, B и Z, поэтому он выбирает A и B и вводит Z, но тогда это выглядит так: A, B , Z, A, B
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If Target.Column = 7 Or Target.Column = 14 Then
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
Помогите?