Добрый вечер. помогите пожалуйста. Я новичек и у меня что то не выходит. Я взяла макрос. написала его в нужном месте, указала правильные ячейки. Далее перешла в другой лист, выделила ячейки, создала список. Вернулась в нужный мне лист (где нужен мультивыбор) в определенную ячейку задала список. Стрелочка появилась, список выпадает нужный, НО через запятую не идет ничего. он мне просто меняет Иванов на Петров и т.д. а не ставит Иванов, Петров...
Вот макрос который я прописала
Я этот макрос взяла на этом же сайте. поменяла только ячейки
Вот макрос который я прописала
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B14:B47")) 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
|
Я этот макрос взяла на этом же сайте. поменяла только ячейки
Изменено: - 06.01.2019 14:35:30
(неправильно оформила текст письма. посоветовал модератор исправить)
