Excel работа с данными на отдельном листе

Создание новой таблицы на отдельном листе с данными соответс

Tunka-s

Дата: Суббота, 25.10.2014, 22:29 |
Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Здравствуйте.
Есть большая таблица, которую не очень удобно анализировать — таб1. Есть таблица поменьше — таб2. В обеих таблицах есть ключевое поле (D&B_ID). Надо на отдельном листе создать таблицу со столбцами D&B_ID, Cust_Customer и Cust_VAT Reg No. Последний столбец должех быть заполнен по принципу: если значение в столбце «Cust_VAT Reg No» в исходной таблице есть, то оно копируется в итоговую таблицу, если значение отсутствует, то туда надо скопировать соответствующее ключевому полю значение из столбца «D&B_NATIONAL IDENTIFICATION NUMBER» и выделить эту ячейку цветом. Цвета три и они зависят от значения в столбце D&B_Confidence Code. 7-10 -зеленый, 4-6 — желтый, 1-3 — розовый. Если отсутствуют значения и в первом и во втором столбцах, то ячейка остается пустой. Кроме того из итоговой таблицы должны быть исключены все записи, которые уже есть в таб2.

Хотелось бы написать макрос, который бы это все делал по нажатию кнопочки.

Может кто-нибудь помочь?

 

Ответить

Tunka-s

Дата: Суббота, 25.10.2014, 22:31 |
Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Не могу присоединить файл, т.к. даже самая маленькая часть исходника весит 937К. Что сделать?

 

Ответить

RAN

Дата: Суббота, 25.10.2014, 22:32 |
Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5645


Быть или не быть, вот в чем загвоздка!

 

Ответить

Pelena

Дата: Суббота, 25.10.2014, 22:35 |
Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 18797


Репутация:

4284

±

Замечаний:
±


Excel 2016 & Mac Excel

В Правилах форума написано

Цитата

— Чтобы понять и помочь — достаточно таблицы на 10-20 строк
— При этом старайтесь сохранить структуру, расположение таблиц, имена листов — аналогично оригиналу


«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

 

Ответить

Tunka-s

Дата: Суббота, 25.10.2014, 22:45 |
Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Так я и оставила 20 строк! Ок, уберу все столбцы, кроме упомянутых выше. Кажется получилось.

К сообщению приложен файл:

Test.xls
(42.5 Kb)

Сообщение отредактировал Tunka-sСуббота, 25.10.2014, 23:32

 

Ответить

Tunka-s

Дата: Суббота, 25.10.2014, 22:46 |
Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Может кто-нибудь помочь?

Может.

Отлично! :)

 

Ответить

RAN

Дата: Воскресенье, 26.10.2014, 11:15 |
Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

[vba]

Код

Sub Мяу()
     Dim arr1, arr2, arr3
     Dim i&, k&
     With Sheets(«Tab1»)
         arr1 = .Range(.Cells(1, 5), .Cells(Rows.Count, 1).End(xlUp)).Value
     End With
     With Sheets(«Tab2»)
         arr2 = .Range(.Cells(1, 5), .Cells(Rows.Count, 1).End(xlUp)).Value
     End With
     ReDim arr3(1 To UBound(arr1) + UBound(arr2), 1 To 5)
     With CreateObject(«Scripting.Dictionary»)
         For i = 1 To UBound(arr1)
             If Len(arr1(i, 3)) Then
                 arr1(i, 5) = Empty
             Else
                 arr1(i, 3) = arr1(i, 5)
                 If Len(arr1(i, 3)) Then
                     Select Case arr1(i, 4)
                     Case 1 To 3
                         arr1(i, 5) = 48
                     Case 4 To 6
                         arr1(i, 5) = 6
                     Case 7 To 10
                         arr1(i, 5) = 43
                     End Select
                 End If
             End If
             If Not .exists(arr1(i, 1)) Then
                 k = k + 1
                 arr3(k, 1) = arr1(i, 1)
                 arr3(k, 2) = arr1(i, 2)
                 arr3(k, 3) = arr1(i, 3)
                 arr3(k, 4) = arr1(i, 4)
                 arr3(k, 5) = arr1(i, 5)
                 .Item(arr1(i, 1)) = 1
             End If
         Next

                   For i = 1 To UBound(arr2)
             If Len(arr2(i, 3)) Then
                 arr2(i, 5) = Empty
             Else
                 arr2(i, 3) = arr2(i, 5)
                 If Len(arr2(i, 3)) Then
                     Select Case arr2(i, 4)
                     Case 1 To 3
                         arr2(i, 5) = 48
                     Case 4 To 6
                         arr2(i, 5) = 6
                     Case 7 To 10
                         arr2(i, 5) = 43
                     End Select
                 End If
             End If
             If Not .exists(arr2(i, 1)) Then
                 k = k + 1
                 arr3(k, 1) = arr2(i, 1)
                 arr3(k, 2) = arr2(i, 2)
                 arr3(k, 3) = arr2(i, 3)
                 arr3(k, 4) = arr2(i, 4)
                 arr3(k, 5) = arr2(i, 5)
                 .Item(arr2(i, 1)) = 1
             End If
         Next

     End With
     With Sheets.Add
         .Cells(1, 1).Resize(k, 4).NumberFormat = «@»
         .Cells(1, 1).Resize(k, 4) = arr3
         For i = 1 To k
             If Len(arr3(i, 5)) Then
                 .Cells(i, 3).Interior.ColorIndex = arr3(i, 5)
             End If
         Next
     End With
End Sub

[/vba]


Быть или не быть, вот в чем загвоздка!

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 11:50 |
Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

RAN, Спасибо вам огромное! Очень здорово, только почему-то записи которые есть в таб2 тоже добавляются в итоговую таблицу. :(

 

Ответить

RAN

Дата: Воскресенье, 26.10.2014, 12:20 |
Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

[vba]

Код

Sub Мяв()
     Dim arr1, arr2, arr3
     Dim i&, k&
     With Sheets(«Tab1»)
         arr1 = .Range(.Cells(1, 5), .Cells(Rows.Count, 1).End(xlUp)).Value
     End With
     With Sheets(«Tab2»)
         arr2 = .Range(.Cells(1, 5), .Cells(Rows.Count, 1).End(xlUp)).Value
     End With
     ReDim arr3(1 To UBound(arr1), 1 To 5)
     With CreateObject(«Scripting.Dictionary»)
         For i = 1 To UBound(arr2)
             .Item(arr2(i, 1)) = 1
         Next
         k = 1
         arr3(k, 1) = arr1(1, 1)
         arr3(k, 2) = arr1(1, 2)
         arr3(k, 3) = arr1(1, 3)
         arr3(k, 4) = arr1(1, 4)
         arr3(k, 5) = arr1(1, 5)

         For i = 1 To UBound(arr1)
             If Not .exists(arr1(i, 1)) Then
                 k = k + 1
                 If Len(arr1(i, 3)) Then
                     arr1(i, 5) = Empty
                 Else
                     arr1(i, 3) = arr1(i, 5)
                     If Len(arr1(i, 3)) Then
                         Select Case arr1(i, 4)
                         Case 1 To 3
                             arr1(i, 5) = 48
                         Case 4 To 6
                             arr1(i, 5) = 6
                         Case 7 To 10
                             arr1(i, 5) = 43
                         End Select
                     End If
                 End If
                 arr3(k, 1) = arr1(i, 1)
                 arr3(k, 2) = arr1(i, 2)
                 arr3(k, 3) = arr1(i, 3)
                 arr3(k, 4) = arr1(i, 4)
                 arr3(k, 5) = arr1(i, 5)
                 .Item(arr1(i, 1)) = 1
             End If
         Next
     End With

     With Sheets.Add
         .Cells(1, 1).Resize(k, 4).NumberFormat = «@»
         .Cells(1, 1).Resize(k, 4) = arr3
         On Error Resume Next
         For i = 1 To k
             If Len(arr3(i, 5)) Then
                 .Cells(i, 3).Interior.ColorIndex = arr3(i, 5)
             End If
         Next
     End With

End Sub

[/vba]


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RANВоскресенье, 26.10.2014, 12:26

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 12:38 |
Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Спасибо! :)
Правда новый код не работает:

Run time error 13
Type mismatch

.Cells(i, 3).Interior.ColorIndex = arr3(i, 5)

 

Ответить

RAN

Дата: Воскресенье, 26.10.2014, 13:00 |
Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Я перевложил код, но уже поздно.


Быть или не быть, вот в чем загвоздка!

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 13:20 |
Сообщение № 12

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Ой, попробую еще раз!

Сообщение отредактировал Tunka-sВоскресенье, 26.10.2014, 13:22

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 13:25 |
Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Спасибо огромное! То, что надо!!!

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 14:47 |
Сообщение № 14

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

А можно еще вопрос? Я тут пыталась «переделать» ваш код под свою таблицу, точнее поменяла номера столбцов только, у меня же их исходно очень много, и теперь куда-то делся цвет! Не посмотрите, что случилось?

[vba]

Код

Sub Macro1()
Dim arr1, arr2, arr3
Dim i&, k&
With Sheets(«Total Duns Assigned and Append»)
arr1 = .Range(.Cells(1, 30), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
With Sheets(«Matched_on_NatID»)
arr2 = .Range(.Cells(1, 5), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
ReDim arr3(1 To UBound(arr1), 1 To 5)
With CreateObject(«Scripting.Dictionary»)
For i = 1 To UBound(arr2)
.Item(arr2(i, 1)) = 1
Next
k = 1
arr3(k, 1) = arr1(1, 1)
arr3(k, 2) = arr1(1, 2)
arr3(k, 3) = arr1(1, 6)
arr3(k, 4) = arr1(1, 15)
arr3(k, 5) = arr1(1, 30)

For i = 1 To UBound(arr1)
If Not .exists(arr1(i, 1)) Then
k = k + 1
If Len(arr1(i, 6)) Then
arr1(i, 30) = Empty
Else
arr1(i, 6) = arr1(i, 30)
If Len(arr1(i, 6)) Then
Select Case arr1(i, 15)
Case 1 To 3
arr1(i, 5) = 48
Case 4 To 6
arr1(i, 5) = 6
Case 7 To 10
arr1(i, 5) = 43
End Select
End If
End If
arr3(k, 1) = arr1(i, 1)
arr3(k, 2) = arr1(i, 2)
arr3(k, 3) = arr1(i, 6)
arr3(k, 4) = arr1(i, 15)
arr3(k, 5) = arr1(i, 30)
.Item(arr1(i, 1)) = 1
End If
Next
End With

With Sheets.Add
.Cells(1, 1).Resize(k, 4).NumberFormat = «@»
.Cells(1, 1).Resize(k, 4) = arr3
On Error Resume Next
For i = 1 To k
If Len(arr3(i, 5)) Then
.Cells(i, 3).Interior.ColorIndex = arr3(i, 5)
End If
Next
End With

End Sub

[/vba]

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 14:50 |
Сообщение № 15

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

Прошу прощения, уже поняла!

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 16:48 |
Сообщение № 16

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

А не подскажете, как присвоить новое имя активной странице? Потому что ActiveSheets.Name = «VAT Missed» не работает. :(

P.S. вопрос снят

Сообщение отредактировал Tunka-sВоскресенье, 26.10.2014, 16:52

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 17:29 |
Сообщение № 17

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

А ведь наверняка существует какой-нибудь способ, чтобы в каждой строке листа, например в последней колонке поставить checkbox?
[moder]Вопрос не в тему. Читайте Правила форума[/moder]

 

Ответить

RAN

Дата: Воскресенье, 26.10.2014, 17:41 |
Сообщение № 18

Группа: Друзья

Ранг: Экселист

Сообщений: 5645


Быть или не быть, вот в чем загвоздка!

 

Ответить

Tunka-s

Дата: Воскресенье, 26.10.2014, 18:23 |
Сообщение № 19

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124


Репутация:

0

±

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


Excel 2010

RAN, Thanks a lot! :D

Moderator: Sorry!

 

Ответить

При упоминании баз данных (БД) первым делом, конечно, в голову приходят всякие умные слова типа SQL, Oracle, 1С или хотя бы Access. Безусловно, это очень мощные (и недешевые в большинстве своем) программы, способные автоматизировать работу большой и сложной компании с кучей данных. Беда в том, что иногда такая мощь просто не нужна. Ваш бизнес может быть небольшим и с относительно несложными бизнес-процессами, но автоматизировать его тоже хочется. Причем именно для маленьких компаний это, зачастую, вопрос выживания.

Для начала давайте сформулируем ТЗ. В большинстве случаев база данных для учета, например, классических продаж  должна уметь:

  • хранить в таблицах информацию по товарам (прайс), совершенным сделкам и клиентам и связывать эти таблицы между собой
  • иметь удобные формы ввода данных (с выпадающими списками и т.п.)
  • автоматически заполнять этими данными какие-то печатные бланки (платежки, счета и т.д.)
  • выдавать необходимые вам отчеты для контроля всего бизнес-процесса с точки зрения руководителя

Со всем этим вполне может справиться Microsoft Excel, если приложить немного усилий. Давайте попробуем это реализовать.

Шаг 1. Исходные данные в виде таблиц

Информацию о товарах, продажах и клиентах будем хранить в трех таблицах (на одном листе или на разных — все равно). Принципиально важно, превратить их в «умные таблицы» с автоподстройкой размеров, чтобы не думать об этом в будущем. Это делается с помощью команды Форматировать как таблицу на вкладке Главная (Home — Format as Table). На появившейся затем вкладке Конструктор (Design) присвоим таблицам наглядные имена в поле Имя таблицы для последующего использования:

Присвоение имени "умной таблице"

Итого у нас должны получиться три «умных таблицы»:

Умные таблицы для хранения данных

Обратите внимание, что таблицы могут содержать дополнительные уточняющие данные. Так, например, наш Прайс содержит дополнительно информацию о категории (товарной группе, упаковке, весу и т.п.) каждого товара, а таблица Клиенты — город и регион (адрес, ИНН, банковские реквизиты и т.п.) каждого из них.

Таблица Продажи будет использоваться нами впоследствии для занесения в нее совершенных сделок.

Шаг 2. Создаем форму для ввода данных

Само-собой, можно вводить данные о продажах непосредственно в зеленую таблицу Продажи, но это не всегда удобно и влечет за собой появление ошибок и опечаток из-за «человеческого фактора». Поэтому лучше будет на отдельном листе сделать специальную форму для ввода данных примерно такого вида:

Форма ввода

В ячейке B3 для получения обновляемой текущей даты-времени используем функцию ТДАТА (NOW). Если время не нужно, то вместо ТДАТА можно применить функцию СЕГОДНЯ (TODAY).

В ячейке B11 найдем цену выбранного товара в третьем столбце умной таблицы Прайс с помощью функции ВПР (VLOOKUP). Если раньше с ней не сталкивались, то сначала почитайте и посмотрите видео тут.

В ячейке B7 нам нужен выпадающий список с товарами из прайс-листа. Для этого можно использовать команду Данные — Проверка данных (Data — Validation), указать в качестве ограничения Список (List) и ввести затем в поле Источник (Source) ссылку на столбец Наименование из нашей умной таблицы Прайс:

Выпадающий список

Аналогичным образом создается выпадающий список с клиентами, но источник будет уже:

=ДВССЫЛ(«Клиенты[Клиент]»)

Функция ДВССЫЛ (INDIRECT) нужна, в данном случае, потому что Excel, к сожалению, не понимает прямых ссылок на умные таблицы в поле Источник. Но та же ссылка «завернутая» в функцию ДВССЫЛ работает при этом «на ура» (подробнее об этом было в статье про создание выпадающих списков с наполнением).

Шаг 3. Добавляем макрос ввода продаж

После заполнения формы нужно введенные в нее данные добавить в конец таблицы Продажи. Сформируем при помощи простых ссылок строку для добавления прямо под формой:

Форма ввода данных со строкой для загрузки

Т.е. в ячейке A20 будет ссылка =B3, в ячейке B20 ссылка на =B7 и т.д.

Теперь добавим элементарный макрос в 2 строчки, который копирует созданную строку и добавляет ее к таблице Продажи. Для этого жмем сочетание Alt+F11 или кнопку Visual Basic на вкладке Разработчик (Developer). Если эту вкладку не видно, то включите ее сначала в настройках Файл — Параметры — Настройка ленты (File — Options — Customize Ribbon). В открывшемся окне редактора Visual Basic вставляем новый пустой модуль через меню Insert — Module и вводим туда код нашего макроса:

Sub Add_Sell()
    Worksheets("Форма ввода").Range("A20:E20").Copy                         'копируем строчку с данными из формы
    n = Worksheets("Продажи").Range("A100000").End(xlUp).Row                'определяем номер последней строки в табл. Продажи
    Worksheets("Продажи").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues 'вставляем в следующую пустую строку
    Worksheets("Форма ввода").Range("B5,B7,B9").ClearContents               'очищаем форму
End Sub

Теперь можно добавить к нашей форме кнопку для запуска созданного макроса, используя выпадающий список Вставить на вкладке Разработчик (Developer — Insert — Button):

Добавление кнопки для запуска макроса

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

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

Шаг 4. Связываем таблицы

Перед построением отчета свяжем наши таблицы между собой, чтобы потом можно было оперативно вычислять продажи по регионам, клиентам или категориям. В старых версиях Excel для этого потребовалось бы использовать несколько функций ВПР (VLOOKUP) для подстановки цен, категорий, клиентов, городов и т.д. в таблицу Продажи. Это требует времени и сил от нас, а также «кушает» немало ресурсов Excel. Начиная с Excel 2013 все можно реализовать существенно проще, просто настроив связи между таблицами.

Для этого на вкладке Данные (Data) нажмите кнопку Отношения (Relations). В появившемся окне нажмите кнопку Создать (New) и выберите из выпадающих списков таблицы и названия столбцов, по которым они должны быть связаны:

Настройка связей между таблицами

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

Само-собой, аналогичным образом связываются и таблица Продажи с таблицей Клиенты по общему столбцу Клиент:

Связывание таблиц

После настройки связей окно управления связями можно закрыть, повторять эту процедуру уже не придется.

Шаг 5. Строим отчеты с помощью сводной

Теперь для анализа продаж и отслеживания динамики процесса, сформируем для примера какой-нибудь отчет с помощью сводной таблицы. Установите активную ячейку в таблицу Продажи и выберите на ленте вкладку Вставка — Сводная таблица (Insert — Pivot Table). В открывшемся окне Excel спросит нас про источник данных (т.е. таблицу Продажи) и место для выгрузки отчета (лучше на новый лист):

Создание сводной таблицы

Жизненно важный момент состоит в том, что нужно обязательно включить флажок Добавить эти данные в модель данных (Add data to Data Model) в нижней части окна, чтобы Excel понял, что мы хотим строить отчет не только по текущей таблице, но и задействовать все связи.

После нажатия на ОК в правой половине окна появится панель Поля сводной таблицы, где нужно щелкнуть по ссылке Все, чтобы увидеть не только текущую, а сразу все «умные таблицы», которые есть в книге.А затем можно, как и в классической сводной таблице, просто перетащить мышью нужные нам поля из любых связанных таблиц в области Фильтра, Строк, Столбцов или Значений — и Excel моментально построит любой нужный нам отчет на листе:

Отчет сводной таблицы

Не забудьте, что сводную таблицу нужно периодически (при изменении исходных данных) обновлять, щелкнув по ней правой кнопкой мыши и выбрав команду Обновить (Refresh), т.к. автоматически она этого делать не умеет.

Также, выделив любую ячейку в сводной и нажав кнопку Сводная диаграмма (Pivot Chart) на вкладке Анализ (Analysis) или Параметры (Options) можно быстро визуализировать посчитанные в ней результаты.

Шаг 6. Заполняем печатные формы

Еще одной типовой задачей любой БД является автоматическое заполнение различных печатных бланков и форм (накладные, счета, акты и т.п.). Про один из способов это сделать, я уже как-то писал. Здесь же реализуем, для примера, заполнение формы по номеру счета:

Печатная форма счета

Предполагается, что в ячейку C2 пользователь будет вводить число (номер строки в таблице Продажи, по сути), а затем нужные нам данные подтягиваются с помощью уже знакомой функции ВПР (VLOOKUP) и функции ИНДЕКС (INDEX).

Ссылки по теме

  • Как использовать функцию ВПР (VLOOKUP) для поиска и подстановки значений
  • Как заменить ВПР функциями ИНДЕКС и ПОИСКПОЗ
  • Автоматическое заполнение форм и бланков данными из таблицы
  • Создание отчетов с помощью сводных таблиц

Под выпадающим списком понимается содержание в одной ячейке нескольких значений. Когда пользователь щелкает по стрелочке справа, появляется определенный перечень. Можно выбрать конкретное.

Очень удобный инструмент Excel для проверки введенных данных. Повысить комфорт работы с данными позволяют возможности выпадающих списков: подстановка данных, отображение данных другого листа или файла, наличие функции поиска и зависимости.

Создание раскрывающегося списка

Путь: меню «Данные» — инструмент «Проверка данных» — вкладка «Параметры». Тип данных – «Список».

Создание выпадающего списка.

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

  1. Вручную через «точку-с-запятой» в поле «Источник».
  2. Ввод значений.

  3. Ввести значения заранее. А в качестве источника указать диапазон ячеек со списком.
  4. Проверка вводимых значений.

  5. Назначить имя для диапазона значений и в поле источник вписать это имя.

Имя диапазона.
Раскрывающийся список.

Любой из вариантов даст такой результат.



Выпадающий список в Excel с подстановкой данных

Необходимо сделать раскрывающийся список со значениями из динамического диапазона. Если вносятся изменения в имеющийся диапазон (добавляются или удаляются данные), они автоматически отражаются в раскрывающемся списке.

  1. Выделяем диапазон для выпадающего списка. В главном меню находим инструмент «Форматировать как таблицу».
  2. Форматировать как таблицу.

  3. Откроются стили. Выбираем любой. Для решения нашей задачи дизайн не имеет значения. Наличие заголовка (шапки) важно. В нашем примере это ячейка А1 со словом «Деревья». То есть нужно выбрать стиль таблицы со строкой заголовка. Получаем следующий вид диапазона:
  4. Выпадающий список.

  5. Ставим курсор в ячейку, где будет находиться выпадающий список. Открываем параметры инструмента «Проверка данных» (выше описан путь). В поле «Источник» прописываем такую функцию:

Ввод значения в источник.

Протестируем. Вот наша таблица со списком на одном листе:

Список и таблица.

Добавим в таблицу новое значение «елка».

Добавлено значение елка.

Теперь удалим значение «береза».

Удалено значение береза.

Осуществить задуманное нам помогла «умная таблица», которая легка «расширяется», меняется.

Теперь сделаем так, чтобы можно было вводить новые значения прямо в ячейку с этим списком. И данные автоматически добавлялись в диапазон.

Ввод данных из списка.

  1. Сформируем именованный диапазон. Путь: «Формулы» — «Диспетчер имен» — «Создать». Вводим уникальное название диапазона – ОК.
  2. Создание имени.

  3. Создаем раскрывающийся список в любой ячейке. Как это сделать, уже известно. Источник – имя диапазона: =деревья.
  4. Снимаем галочки на вкладках «Сообщение для ввода», «Сообщение об ошибке». Если этого не сделать, Excel не позволит нам вводить новые значения.
  5. Сообщение об ошибке.

  6. Вызываем редактор Visual Basic. Для этого щелкаем правой кнопкой мыши по названию листа и переходим по вкладке «Исходный текст». Либо одновременно нажимаем клавиши Alt + F11. Копируем код (только вставьте свои параметры).
  7. Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim lReply As Long
     
        If Target.Cells.Count > 1 Then Exit Sub
        If Target.Address = "$C$2" Then
         If IsEmpty(Target) Then Exit Sub
           If WorksheetFunction.CountIf(Range("Деревья"), Target) = 0 Then
              lReply = MsgBox("Добавить введенное имя " & _
                             Target & " в выпадающий список?", vbYesNo + vbQuestion)
              If lReply = vbYes Then
                  Range("Деревья").Cells(Range("Деревья").Rows.Count + 1, 1) = Target
              End If
           End If
         End If
    End Sub
     
  8. Сохраняем, установив тип файла «с поддержкой макросов».
  9. Сообщение об ошибке.

  10. Переходим на лист со списком. Вкладка «Разработчик» — «Код» — «Макросы». Сочетание клавиш для быстрого вызова – Alt + F8. Выбираем нужное имя. Нажимаем «Выполнить».

Макрос.

Когда мы введем в пустую ячейку выпадающего списка новое наименование, появится сообщение: «Добавить введенное имя баобаб в выпадающий список?».

Нажмем «Да» и добавиться еще одна строка со значением «баобаб».

Выпадающий список в Excel с данными с другого листа/файла

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

  1. Делаем активной ячейку, куда хотим поместить раскрывающийся список.
  2. Открываем параметры проверки данных. В поле «Источник» вводим формулу: =ДВССЫЛ(“[Список1.xlsx]Лист1!$A$1:$A$9”).

Имя файла, из которого берется информация для списка, заключено в квадратные скобки. Этот файл должен быть открыт. Если книга с нужными значениями находится в другой папке, нужно указывать путь полностью.

Как сделать зависимые выпадающие списки

Возьмем три именованных диапазона:

Три именованных диапазона.

Это обязательное условие. Выше описано, как сделать обычный список именованным диапазоном (с помощью «Диспетчера имен»). Помним, что имя не может содержать пробелов и знаков препинания.

  1. Создадим первый выпадающий список, куда войдут названия диапазонов.
  2. Список диапазонов.

  3. Когда поставили курсор в поле «Источник», переходим на лист и выделяем попеременно нужные ячейки.
  4. Таблица со списком.

  5. Теперь создадим второй раскрывающийся список. В нем должны отражаться те слова, которые соответствуют выбранному в первом списке названию. Если «Деревья», то «граб», «дуб» и т.д. Вводим в поле «Источник» функцию вида =ДВССЫЛ(E3). E3 – ячейка с именем первого диапазона.
  6. Второй раскрывающийся список.

    Выбор нескольких значений из выпадающего списка Excel

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

    1. Создаем стандартный список с помощью инструмента «Проверка данных». Добавляем в исходный код листа готовый макрос. Как это делать, описано выше. С его помощью справа от выпадающего списка будут добавляться выбранные значения.
    2. Private Sub Worksheet_Change(ByVal Target As Range)
          On Error Resume Next
          If Not Intersect(Target, Range("Е2:Е9")) Is Nothing And Target.Cells.Count = 1 Then
              Application.EnableEvents = False
              If Len(Target.Offset(0, 1)) = 0 Then
                  Target.Offset(0, 1) = Target
              Else
                  Target.End(xlToRight).Offset(0, 1) = Target
              End If
              Target.ClearContents
              Application.EnableEvents = True
          End If
      End Sub
       
    3. Чтобы выбранные значения показывались снизу, вставляем другой код обработчика.
    4. Private Sub Worksheet_Change(ByVal Target As Range)
          On Error Resume Next
          If Not Intersect(Target, Range("Н2:К2")) Is Nothing And Target.Cells.Count = 1 Then
              Application.EnableEvents = False
              If Len(Target.Offset(1, 0)) = 0 Then
                  Target.Offset(1, 0) = Target
              Else
                  Target.End(xlDown).Offset(1, 0) = Target
              End If
              Target.ClearContents
              Application.EnableEvents = True
          End If
      End Sub
       
    5. Чтобы выбираемые значения отображались в одной ячейке, разделенные любым знаком препинания, применим такой модуль.

    6. 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

    Не забываем менять диапазоны на «свои». Списки создаем классическим способом. А всю остальную работу будут делать макросы.

    Выпадающий список с поиском

    1. На вкладке «Разработчик» находим инструмент «Вставить» – «ActiveX». Здесь нам нужна кнопка «Поле со списком» (ориентируемся на всплывающие подсказки).
    2. Вставить ActiveX.

    3. Щелкаем по значку – становится активным «Режим конструктора». Рисуем курсором (он становится «крестиком») небольшой прямоугольник – место будущего списка.
    4. Элемент ActiveX.

    5. Жмем «Свойства» – открывается перечень настроек.
    6. Свойства ActiveX.

    7. Вписываем диапазон в строку ListFillRange (руками). Ячейку, куда будет выводиться выбранное значение – в строку LinkedCell. Для изменения шрифта и размера – Font.

    Скачать пример выпадающего списка

    При вводе первых букв с клавиатуры высвечиваются подходящие элементы. И это далеко не все приятные моменты данного инструмента. Здесь можно настраивать визуальное представление информации, указывать в качестве источника сразу два столбца.

На чтение 5 мин Опубликовано 23.01.2021

Иногда у пользователей Microsoft Office Excel возникает необходимость в переносе диаграмм, построенных по табличному массиву, на отдельный рабочий лист. О том, как это сделать, будет рассказано в данной статье.

Содержание

  1. Как вставить диаграмму на отдельный лист Excel
  2. Способ 1. Копирование диаграммы
  3. Способ 2. Использование опции перемещения
  4. Как в Excel построить диаграмму
  5. Способ 1. Построение по исходной табличке
  6. Способ 2. Как сделать процентную диаграмму в Excel
  7. Способ 3. Построение диаграммы Парето
  8. Заключение

Как вставить диаграмму на отдельный лист Excel

Есть несколько распространённых способов выполнения поставленной задачи. Каждый метод можно использовать в любой версии программного обеспечения. Далее будут рассмотрены самые простые и эффективные из них.

Способ 1. Копирование диаграммы

Данный метод реализуется за несколько секунд по следующему алгоритму:

  1. Построить нужную диаграмму для исходной таблицы.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Первоначальный график, построенный для заданного табличного массива
  1. Выделить построенный график, нажав на него левой клавишей манипулятора.
  2. Переключить клавиатуру компьютера на английскую раскладку и одновременно зажать кнопки «Ctrl+C», чтобы скопировать выбранную диаграмму в буфер обмена.
  3. Перейти на чистый лист Excel. Для этого нужно кликнуть по слову «Лист 1» либо «Лист 2» и т.д., находящееся в нижней панели программы MS Excel.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Переход на отдельный рабочий лист в программе MS Excel
  1. Откроется пустой рабочий лист, на котором пользователю надо будет нажать на кнопки «Ctrl+V».
  2. Проверить результат. После осуществления вышеуказанных действий построенный график отобразится на новой странице.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Финальный результат переноса диаграммы

Обратите внимание! Скопированную диаграмму из Эксель можно вставить в MS Word аналогичным образом.

Способ 2. Использование опции перемещения

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

  1. Построить диаграмму по исходной таблице данных.
  2. Навести курсор мышки в любое крайнее место графика. Вместо обычного курсора должен появиться значок в виде четырёх стрелочек.
  3. Кликнуть ПКМ по этому месту.
  4. В меню контекстного типа нажать по строчке «Переместить диаграмму…».

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Контекстное меню, где нужно выбрать вариант с перемещением графика на отдельный лист
  1. В открывшемся меню пользователю надо поставить тумблер в позицию На отдельном листе и в поле рядом прописать соответствующее название для графика. Так же будет называться и лист, на который вставится диаграмма в дальнейшем.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Назначение пути для перемещения в открывшемся меню
  1. Когда все действия будут выполнены, потребуется нажать на ОК внизу окошка.
  2. Проверить результат. После осуществления вышеуказанных манипуляций исходная диаграмма переместится на отдельный листок Microsoft Office Excel. Здесь пользователь сможет настраивать график, например, менять его цвет, расположение, масштаб и т.д.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Расположение графика на отдельном листе Microsoft Office Excel

Важно! После перемещения на отдельный лист диаграмма будет удалена с исходного рабочего листа. Работу над графиком можно будет производить в созданной области программы.

При изменении параметров диаграммы на отдельном листе данные в исходном табличном массиве также будут изменяться. Этот принцип работает и в обратной последовательности.

Как в Excel построить диаграмму

Чтобы полностью разбираться в теме, необходимо рассмотреть методы построения различных графиков в Эксель.

Способ 1. Построение по исходной табличке

Это самый простой и быстрый способ создания диаграммы, который заключается в следующем:

  1. Создать таблицу, по которой и будет производиться построение графика.
  2. Выделить исходный массив левой кнопкой мыши и переместиться во вкладку «Вставка», располагающуюся в верхней панели инструментов программы.
  3. В блоке «Диаграммы» представлены все возможные варианты. Здесь можно выбрать линейную, круговую, пузырьковую диаграмму и т.д.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

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

Способ 2. Как сделать процентную диаграмму в Excel

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

  1. В исходной табличке выделить диапазон ячеек, параметры, которые нужно сравнить.
  2. Аналогичным образом переместиться в раздел «Вставка» и в перечне возможных диаграмм выбрать круговую.
  3. После отображения графика на рабочем листе понадобится переместиться во вкладку «Конструктор».
  4. Здесь пользователь должен найти кнопку «Экспресс макет» и щёлкнуть по ней ЛКМ.
  5. В открывшемся перечне вариантов круговых диаграмм выбрать тот, на котором отображены знаки процентов и нажать по нему.
  6. Проанализировать полученный результат. Построенная диаграмма должна измениться, и размер областей на ней будет показан в процентах.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Построенная круговая процентная диаграмма в Excel

Дополнительная информация! Любую из построенных диаграмм можно перенести на отдельный лист, а также изменить некоторые значения на ней.

Способ 3. Построение диаграммы Парето

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

  1. Во вкладку «Вставка» развернуть блок Гистограмма и выбрать самый первый вариант.
  2. После построения графика нажать на кнопку «Изменить тип диаграммы» сверху окна.
  3. В следующем окошке в разделе График надо выбрать подходящий вариант и кликнуть по «ОК».
  4. Проверить результат. Диаграмма Парето должна построиться.

kak-perenesti-diagrammu-na-otdelnyj-list-v-excel

Внешний вид диаграммы Парето в Excel

Заключение

Таким образом, перемещение диаграмм, графиков в Excel на отдельный лист выполняется в парку кликов. Чтобы справиться с поставленной задачей, необходимо внимательно ознакомиться с представленной выше информацией.

Оцените качество статьи. Нам важно ваше мнение:

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

Как же правильно создать выпадающий список в Excel 2007? Рассмотрим ниже.

Для начала, необходимо создать список тех значений, которые будут предоставляться на выбор для ввода в ячейке (в нашем случае, это диапазон ячеек F2:F8). Далее выделите ячейку (или группу ячеек) , в которой, собственно, и будет выпадать наш список (в нашем случае, это диапазон ячеек A2:A22).

как сделать выпадающий список с другого листа в excel 2007

После этого у Вас появится окошко «Проверка вводимых значений». В первой закладке «Параметры» выбираете «Тип данных» — «Список», а в графе «Источник» указываете диапазон списка.

как сделать выпадающий список с другого листа в excel 2007

По желанию, а также для большей наглядности, можете заполнить оставшиеся две вкладки «Сообщение для ввода» и «Сообщение об ошибке».

В закладке «Сообщение для ввода» Вы можете указать подсказку для пользователя о его дальнейших действиях, например, фразу «Выберите данные из списка». Подсказка будет появляться при выборе ячейки с выпадающим списком.

как сделать выпадающий список с другого листа в excel 2007

В закладке «Сообщение об ошибке», Вы можете ввести текст, который будет появляться при попытке ввести неверные данные в ячейку.

как сделать выпадающий список с другого листа в excel 2007

После того как все сделано, жмете ОК.

Выпадающий список готов. Теперь, при выборе любой из ячеек диапазона A2:A22, будет появляться подсказка и выпадающий список (стрелочка справа от ячейки). Вот так

как сделать выпадающий список с другого листа в excel 2007

В том случае, если Вы попытаетесь ввести в одну из ячеек из выбранного диапазона неверные данные, появится сообщение об ошибке

как сделать выпадающий список с другого листа в excel 2007

Для удобства список можно разместить на другом листе документа Excel 2007, но для создания выпадающего списка теперь придется задать ему имя. Делается это просто. Выделяете список данных, кликаете по нему правой кнопкой мыши и выбираете «Имя диапазона…». В открывшемся окне «Создание имени» в графе «Имя» задаете имя списку (без пробелов) и проверяете правильность диапазона (диапазон можете сразу выделить и скопировать, он нам понадобится позже) и жмете ОК.

как сделать выпадающий список с другого листа в excel 2007

А теперь возвращаемся на страницу с диапазоном, в котором Вы хотели бы видеть выпадающий список и при создании выпадающего списка в графе источник указываете только что скопированный диапазон списка данных.

как сделать выпадающий список с другого листа в excel 2007

Все! Готово! Теперь Вы знаете, как правильно создать выпадающий список в документе Excel 2007!

Всем привет, дорогие друзья и гости моего блога. И снова с вами я, Дмитрий Костин, и сегодня мне хочется еще рассказать вам об экселе, а точнее об одной замечательной фишке, которую я теперь всегда применяю. Сталкивались ли вы с ситуацией. когда заполняете таблицу и в каком-нибудь столбце нужно постоянно вводить одно из нескольких значений. Эээээ. Давайте лучше расскажу вам на примере.

Допустим, когда я создавал таблицу учета компьютерного оборудования (еще давно) у себя на работе, то чтобы сделать весь процесс работы более удобным и быстрым, я делал выпадающий список в определенных столбцах и вставлял туда определенные знaчения. И когда я заполнял столбец «Операционная система» (А ведь не на всех компах она одна и та же), то я забивал не сколько значeний (7, 8, 8.1, 10), а потом просто выбирал это всё одним нажатием кнопки мыши.

И таким образом уже не нужно вбивать в кажую ячейку версию винды, или копировать из одной ячейки и вставлять в другую. В общем не буду вас томить, давайте лучше приступим. Давайте я покажу вам, как создать выпадающий список в excel, используя данные c другого листа. Для этого создадим некоторую табличку, к которой мы сможем это применить. Я буду делать это в 2013 версии, но для других версий процесс идентичный, так что не переживайте.

Подготовка

  1. На листе №1 создайте несколько столбцов (т.е. дайте им заголовки), например дата, отдeл, наименование проблемы, причина неисправности, фамилия специалиста техподдержки и итог устранения. Так вот, дату проблему и причину мы трогать не будем, а вот oтдел и фамилию специалиста, устранившего неисправность, мы занесем в шаблон, так как вариантов тут может быть немного. как сделать выпадающий список с другого листа в excel 2007
  2. Чтобы было удобнее создайте новый лист и обзовите его как-нибудь. Я бы назвал «Данные». Именно сюда мы и будем вносить все возможные значения, из которых потом и будем выбирать то, что нам надо. как сделать выпадающий список с другого листа в excel 2007
  3. На листе 2 (Данные) начинайте записывать значения. В начале сделаем всё это для графы «Отдел». Я напишу в столбик несколько отделов, например отдeл статистики, администрация, бухгалтерия, отдел планирования, oтдел информационных технологий, ну и хватит пожалуй. Вы можете писать что-то свое.
  4. Точно также напишите в столбик фамилии сотрудников, которые занимаются устранением проблем, например Иванов, Петров, Сидоров, Смирнов. Записали? Отлично. Тогда идем дальше. То же самое делаем с «Итогом устранения». Пишем данные, например устранено, на устранении, устранение невозможно. как сделать выпадающий список с другого листа в excel 2007

Основные действия

  1.  Всё, подготовку мы завершили, теперь приступаем к самому действию. Переходите на главный лист и выделите весь столбец «Отдел». Для этого можете нажать на букву, соответствующую столбцу.
  2. Теперь идите в меню «Данные» и нажмите на «Проверка данных». как сделать выпадающий список с другого листа в excel 2007
  3. В появившемся окне в строке «Тип данных» выберите «Список» и нажмите «ОК», после чего встаньте в поле «Источник». И не закрывая это окошко переходите на второй лист «Данные» и выделите все значения, которые соответствуют отделу. Нажмите ОК. как сделать выпадающий список с другого листа в excel 2007
  4. Теперь снова идите на первый (главный) лист и поставьте курсор в любую ячейку «Отдела». Заметили, что правее появилась маленькая стрелочка? Нажмите на нее и вы увидите все значения, которые вы выделили на втором листике. как сделать выпадающий список с другого листа в excel 2007

Теперь точно таким же образом поработайте с графами «Фамилия специалиста» и «Итог устранения», после чего снова вернитесь на главный лист и начинайте полноценно работать с таблицей. Вы сами увидите как это здорово и удобно, когда можно выбрать данные из доступных заранее подготовленных значений. Благодаря этому рутинное заполнение таблиц облегчается.как сделать выпадающий список с другого листа в excel 2007

Кстати в таких документах для более удобного отображения лучше закрепить верхнюю строку. Тогда будет вообще всё круто.

Ну а на сегодня я свою статью заканчиваю. Я надеюсь, что то, что вы сегодня узнали пригодится вам при работе в экселе. Если статья вам понравилась, то конечно же не забудьте подписаться на обновления моего блога. Ну а вас я с нетерпением буду снова ждать на страницах моего блога. Удачи вам и пока-пока!

С уважением, Дмитрий Костин

При работе с таблицами Excel иногда возникает потребность заполнить большое количество ячеек определенными значениями, список которых заранее известен. Иногда для этого достаточного использовать функцию автозаполнения ячеек в excel. Но в случаях, когда количество возможных значений ячейки заметно меньше количества заполняемых ячеек, ввод каждого значения будет не оптимальным решением. Заметно быстрее будет создать выпадающий список и выбирать значение одним кликом мышки.

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

как сделать выпадающий список с другого листа в excel 2007Рис.1

Теперь нужно выделить список значений (без заголовка) и на вкладке «Формулы», нажать кнопку «Присвоить имя» (Рис.2).

как сделать выпадающий список с другого листа в excel 2007Рис.2

В появившемся окне заполняем поле «Имя» и жмем Ok (Рис.3).

как сделать выпадающий список с другого листа в excel 2007Рис.3

Далее возвращаемся на лист с основными данными и выделяем ячейки, значения которых будут выбираться из выпадающего списка (Рис.4).

как сделать выпадающий список с другого листа в excel 2007Рис.4

Теперь на вкладке «Данные» жмем кнопку «Проверка данных» (Рис.5).

как сделать выпадающий список с другого листа в excel 2007Рис.5

В появившемся окне в поле «Тип данных» выбираем значение «Список», в поле «Источник:» вводим знак “=” (равно) и набираем имя списка назначенного нами на Рис.3. Далее жмем Ok (Рис.6).

Рис.6

Теперь, если вы выделите одну из ячеек, для которых создавался список, то справа от ячейки появится кнопка с маленьким треугольником. Нажав на этот треугольник вы увидите список значений для этой ячейки и сможете быстро выбрать нужное значение (Рис.7).

Рис.7

Выпадающий список в Excel нужен для того, чтобы при заполнении ячеек легко и быстро выбирать нужное значение. Мы рассмотрим два способа создания раскрывающегося списка в Excel 2007.

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

Второй способ создания выпадающего списка в Excel более изящный и универсальный. Выделяете диапазон данных для выпадающего списка, затем нажимаете на пункт меню Формула — Диспетчер имен — Создать. Заполняете поле Имя, и копируете его (оно Вам понадобится позже). Имя должно начинаться с буквы или символа подчеркивания, и не должно содержать пробелов. Нажимаете ОК. Закрываете окно.

Затем выбираете ячейку, в которой будет выпадающий список Excel (можно сразу выделить несколько ячеек, если в них будут одинаковые выпадающие списки). После этого выбираете пункт меню Данные — Проверка данных, затем в окошке Тип данных выберите строку Список, в поле Источник поставьте знак равно, и без пробела вставьте то, что Вы копировали (значение поля Имя). Не забудьте про знак =, иначе ничего не получится. Выглядит надпись в поле Источник примерно так: =Имя_диапазона. Нажимаете ОК.

Справа от ячейки появится значок выпадающего списка, в котором можно выбрать одно из значений. После выбора это значение появится в ячейке. Ячейку с выпадающим списком Excel можно сделать на другом листе, так, чтобы на одном листе были данные для списков, а на другом — ячейка с выпадающим списком, или несколько таких ячеек.

Это может быть опрос, тест, или анкета с заранее прописанными вариантами ответов. Можно, например, раздать файл Excel с анкетой группе людей, которых Вы хотите опросить, и получить назад уже файлы с ответами, или распечатанные ответы.

Для надежности можно лист с данными для выпадающих списков скрыть или защитить. Чтобы скрыть лист Excel, нажимаете на его название правой клавишей мыши, и выбираете Скрыть. Чтобы отобразить скрытые листы, нажимаете на название любого открытого листа Excel правой клавишей мыши, и выбираете Отобразить.

Чтобы защитить лист Excel, выбираете пункт меню Редактировать — Защитить лист, и прописываете пароль и действия, которые разрешены для пользователей.

Чтобы удалить из ячейки выпадающий список, выделяете ячейку, выбираете в меню Данные — Проверка данных, и нажимаете на кнопку Очистить все.

Чтобы удалить именованный список для выпадающего окна Excel, заходите в меню Формулы — Диспетчер имен, выделяете список и нажимаете на кнопку Удалить.

Чтобы анкета или опрос были действительно похожи на анкету или опрос, а не на файл Excel, на соответствующем листе Excel Вы можете убрать различные элементы, свойственные Excel. Чтобы это сделать, заходите в меню Вид — Показать или скрыть, и выбираете, что именно Вы на листе хотите скрыть: линейку, сетку, панель сообщений, строку формул и заголовки. При этом еще больший эффект можно получить, если сделать фон ячеек, кроме ячеек с выпадающими списками, другим цветом, например, серым.

Видео о том, как сделать выпадающий список в Excel

Более подробные сведения Вы можете получить в разделах «Все курсы» и «Полезности», в которые можно перейти через верхнее меню сайта. В этих разделах статьи сгруппированы по тематикам в блоки, содержащие максимально развернутую (насколько это было возможно) информацию по различным темам.

Также Вы можете подписаться на блог, и узнавать о всех новых статьях.
Это не займет много времени. Просто нажмите на ссылку ниже:
    Подписаться на блог: Дорога к Бизнесу за Компьютером

Понравилась статья? Поделить с друзьями:
  • Excel работа с данными в ячейке
  • Excel работа с таблицами данных фильтр
  • Excel работа с группировкой данных
  • Excel работа с таблицами 2003
  • Excel работа с графиком работы сотрудников