Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выпадающий список с галочками для выбора нескольких нужных значений
 
#1
18.02.2016 11:06:00
Добрый день
Нужен выпадающий список для столбца с возможностью выбора нескольких значений при помощи галочек.
Значения в ячейке чтобы отображались через запятую (или ; - не принципиально) и не повторялись (нашел вариант где выбирается выделением самого значения, но там по накопительной добавляются повторно)
 
 
 
#2
18.02.2016 11:11:33
Вариант3
Поиск forever!
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
18.02.2016 11:47:54
там накопление идет с повторами (этот вариант я видел), мне нужно, чтобы не повторялись, т.е. если выбираешь один вариант два раза, то в ячейки этот вариант должен отображаться только один раз
Изменено: AJlekcaHgp - 18.02.2016 11:48:22
 
 
 
#4
18.02.2016 11:59:38
Попробуйте совместить с ЭТИМ вариантом
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
18.02.2016 15:35:36
Доработанный вариант из Приемов
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
18.02.2016 16:34:16
спасибо, то что надо!
 
 
 
#7
07.09.2018 10:09:06
Цитата
Sanja написал: Доработанный вариант из Приемов
Доброго дня! А как написать код чтобы в нескольких столбцах были такие выпадающие списки как в примере?
 
 
 
#8
18.09.2018 13:26:37
Настройте выпадающие списки в нужных Вам столбцах с помощью инструмента 'Проверка данных' и укажите нужные диапазоны в коде, вот в этой строке кода
Код
If Not Intersect(Target, Range("C6:C22")) Is Nothing And Target.Cells.Count = 1 Then
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
18.09.2018 22:32:21
Указываю больше двух диапазонов в коде и у меня выскакивает сообщение об ошибке кода.
Пишу следующий код:
Код
If Not Intersect(Target, Range("F4:F150", "H4:H150", "J4:J150")) Is Nothing And Target.Cells.Count = 1 Then

С двумя диапазонами код работает, а вот когда третий добавляю, то перестаёт работать. Где может быть ошибка?
 
 
 
#10
18.09.2018 22:39:21
Если Вы хотите объединить диапазоны, то так:
Код
Range("F4:F150, H4:H150, J4:J150")
Владимир
 
 
 
#11
20.09.2018 09:32:33
sokol92, пробовал Ваш вариант, в данном случае он не работает.
 
 
 
#12
20.09.2018 10:22:42
А что тут может не работать? Проверяем (в модуль листа):
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count = 1 And Not Intersect(Target, Range("F4:F150, H4:H150, J4:J150")) Is Nothing Then
    MsgBox "Выбрана ячейка из контролируемого диапазона"
  End If
End Sub
Владимир
 
 
 
#13
20.09.2018 15:30:17
Владимир, спасибо Вам ОГРОМНОЕ за помощь! Всё заработало!
 
 
 
#14
20.09.2018 16:26:45
Успехов!
Владимир
 
 
 
#15
13.11.2019 15:20:48
Добрый день. Уважаемые специалисты, помогите пожалуйста подправить код таким образом, чтобы поменять очередность вывода информации. В данном коде реализована функция когда новое значение добавляется снизу, а хотелось бы что бы было в начале ячейки. Спасибо большое.
 
 
 
Страницы: 1
Наверх