Как в экселе сделать выпадающий список?

Ответов: 1 Решено

Помогите разобраться, не могу найти где это делается!!

Лучший ответ

Для того, чтобы сделать выпадающий список в Excel, сделаем первым делом обычный список. В открывшемся окне программы вводим, последовательно, например, список канцтоваров.

После ввода выбираем диапазон или ячейку, в которой будет выпадающий список из перечисленных принадлежностей. Заходим в пункт меню Данные  Проверка данных. В открывшемся окне выбираем Тип данных  Список. В поле Источник выбираем диапазон с нашим списком $A$1:$A$8 и нажмем кнопку .

После этого в выбранной ячейке D1 появится выпадающий список с канцтоварами. Таким образом мы сделали выпадающий список для одной ячейки.

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

Разберем сейчас выпадающий список с автоматизацией. Как делать выпадающий список мы научились, теперь попробуем сделать так чтобы при выборе из списка в нужной нам ячейке накапливались записи. Для этого нам понадобится скрипт такого вида.

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
 If Not Intersect(Target, Range("C2:C5")) 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

Чтобы им воспользоваться сделаем следующее: нажмем по листу правой кнопкой мыши и выберем пункт Исходный текст.

Откроется окно Visual Basic. Вставим выше указанный скрипт в окно и изменим диапазон на нужный вам B1:B8. Нажмем пиктограмму с изображением дискеты или Ctrl+S – это поможет нам сохранить изменения. После этого переходим в окно где список и смотрим, появилась ли возможность выбрать значение из выпадающего списка. В каждой ячейке выбранного нами диапазона теперь будет накапливающийся выпадающий список.

-
+
Аватар пользователя s.toropenko
s.toropenko
Дата: 07.01.2016
Вопросы по теме
Ответы