2.2. Создание, заполнение таблиц с помощью формы. Корректировка таблицы.

С технической точки зрения списки в Excel ни чем не отличаются от обычных таблиц, просто для работы со списками добавляется специальный инструментарий.

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

Первая строка таблицы – это строка с названиями полей или шапка таблицы.

1. Для того чтобы шапка таблицы выглядела красиво необходимо выполнить следующие действия:

а) Создать шапку таблицы.

б) Выделить шапку.

в) Вызвать контекстное меню и в нем выбрать пункт «формат ячейки» и на вкладке «выравнивание» выбрать: по горизонтали – по центру, по вертикале – по центру. Флажок поставить на «перенос по словам».

2. Выделить заголовок и выполнить команду: ДАННЫЕ– ФОРМА и щелкнуть по кнопке ОК, при этом действии указатель мыши должен находиться в ячейке заголовка. После этого появляется форма следующего вида:

Переход от одного поля к другому осуществляется либо с помощью кнопки Tab либо с помощью мыши(клавишу Enter нажимать нельзя) .

Заполнив первую запись списка щелкнуть на кнопку «добавить».

Заполнив всю таблицу щелкнуть по кнопке «закрыть».

Для того чтобы добавить, удалить или исправить запись надо выполнить команду: «данные – форма» и щелкнуть по кнопке ОК, в появившейся форме можно добавлять, удалять или исправлять запись.

2.3. Вычисление величины премии, составляющей 15 % от оклада при превышении нормы выработки.

Для того чтобы рассчитать премию необходимо выделить ячейку, в которой будет считаться премия, и в строке формул ввести формулу: ЕСЛИ ([Фактическая выработка (ч)]>[Норма выработки(ч)]; [Оклад] * 0,15; 0), (только вместо названий столбцов надо будет вводить адреса соответствующих ячеек).

Сосчитаем в этом же пункте:

Разницу между фактической выработкой и нормой (для того надо ввести формулу - [Фактическая выработка (ч)] -[Норма выработки(ч)])

Заработная плата (для того надо ввести формулу - [Премия]+[Оклад])

Получим:

2.4. Формирование списка сотрудников с указанием разницы между нормой и фактической выработкой.

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

2.5. Получение данных о сотруднике, фамилия которого задана пользователем.

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

2. Раскрываем поле списка «Ф.И.О сотрудника» и выбираем фамилию сотрудника.

Получаем:

2.6. Формирование отчета, содержащего список всех сотрудников, сгруппированных по должностям, с указанием общей начисленной зарплаты по группам.

Для выполнения этого пункта задания в исходной таблице необходимо выделить всю таблицу. Из меню «данные» вызвать команду «Сводные таблицы». В появившемся окне требуют проверить правильность установки диапазона ячеек. Нажимаем на кнопку «Макет». Появляется окно «Мастер сводных таблиц и диаграмм».

Расставляем поля и нажимаем на кнопку ОК.

Получаем:

2.7. Создание макроса с помощью макрорекордера.

Макрос представляет собой программу записи на встроенные в Excel языки VBA.

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

1. Табличный курсор поместить внутрь таблицы.

2. Выполнить команду «сервис–макрос –начать запись». В диалоговом окне запись макроса можно задать имя макроса и затем щелкнуть по кнопке ОК.

3. Затем макрорекордер начнет запись макроса до тех пор, пока затем щелкнуть по кнопке «остановить».

Замечание: в некоторых случаях панель с кнопкой ОСТАНОВИТЬ может не появляется тогда надо выполнить команду «сервис- макрос– остановить» .

Между пунктами 3 и 4 выполнить действия по созданию диаграммы:

Код макроса:

Sub Макрос2()

Charts.Add

ActiveChart.ChartType = xl3DPieExploded

ActiveChart.SetSourceData Source:=Sheets("Таблица").Range("A1:A11,H1:H11"), _

PlotBy:=xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:="Таблица"

End Sub