Рисунок 1 – База данных
2.1 Сортировка
Для выполнения сортировки данных по «Боевая масса» необходимо открыть диалоговое окно «Сортировка» в меню «Данные», затем в поле «Сортировать по» указать «Боевая масса» и выбрать порядок сортировки. Результат сортировки данных приведён на рисунке 2.
Рисунок 2 – Сортировка
Для выполнения фильтрации данных по марке автомобиля с использованием автофильтра необходимо сначала открыть в меню «Данные» подменю «Фильтр» и выбрать команду «Автофильтр». Затем в поле «Экипаж» раскрыть список и выбрать «3». Результат автофильтра приведен на рисунке 3.
Рисунок 3 - Автофильтр
2.3 Расширенный фильтр
Для выполнения фильтрации данных по длине БТР больше, чем 6500 мм с использованием расширенного фильтра необходимо сначала создать дополнительную головку таблицы идентичную базе данных и в столбце «Кол-во цилиндров» задать число цилиндров. Затем открыть в меню «Данные» подменю «Фильтр» и выбрать команду «Расширенный фильтр». В открывшемся диалоговом окне указать исходный диапазон и диапазон условий. Результат расширенного фильтра приведен на рисунке 4.
Рисунок 4 – Расширенный фильтр
2.4 Форма данных
Для выполнения фильтрации данных по количеству мест с использованием формы данных необходимо сначала в меню «Данные» выбрать команду «Форма» и в открывшемся диалоговом окне нажать кнопку «Критерий». Затем в поле «Кол-во мест» ввести условия и нажать кнопку «Далее». Чтобы просмотреть автомобили с таким же количеством мест, необходимо нажимать кнопки «Далее» и «Назад». Результат фильтрации с использованием формы данных приведен на рисунке 5.
Рисунок 5 – Форма данных
3. Разработка электронной таблицы
Электронная таблица разработана на основе базы данных и содержит информацию об основных технических характеристиках спортивных автомобилей. Электронная таблица приведена на рисунке 6.
Рисунок 6 – Электронная таблица
Для определения среднего расхода топлива проводился расчет по формуле с использованием статистической функции. Использовалась абсолютная адресация.
Пример:
=СРЗНАЧ(М4;N4)
Где М4 – скорость по шоссе, N4 – на плаву.
Для определения, является ли длина БТР больше 6500 мм истинной или ложью, использовалась логическая функция. Использовалась относительная адресация.
Пример:
=ЕСЛИ(M4>6500;"да";"нет")
Где М4 – длина БТР.
Для определения общего количества человек на данном БТР проводился расчет по формуле с использованием математической функции. Использовалась относительная адресация.
Пример:
=В4+С4
Где В4 – экипаж, С4 – десант.
3.2 Автоматическое подведение итогов
Для создания структурирования с автоматическим подведением итого необходимо сначала в меню «Данные» выполнить команду «Итоги». Затем в появившемся диалоговом окне в раскрывающемся списке «При каждом изменении в» выбрать поле «Тип образца», в раскрывающемся списке «Операция» выбрать поле «Среднее» и в поле «Добавить итоги по» с помощью флажков указать « «Макс. скорость по шоссе». Результат автоматического подведения итогов приведен на рисунке 7.
Рисунок 7 – Итоги
Для создания сводных таблиц необходимо открыть мастера сводных таблиц в меню «Данные» и выполнить все инструкции мастера.
В сводной таблице 1 используются следующие поля: «Боевая масса»,»Экипаж», «Десант». Над данными полями произведена Операция «Среднее». Сводная таблица 1 приведена на рисунке 8.
Рисунок 8 – Сводная таблица 1
В сводной таблице 1 используются следующие поля: «Боевая масса»,»Экипаж», «Десант». Над данными полями произведена Операция «Среднее». Сводная таблица 1 приведена на рисунке 9.
Рисунок 9 – Сводная таблица 2
Для создания диаграмм необходимо открыть мастера диаграмм в меню «Вставка» и выполнить все инструкции мастера.
Диаграмма 1 отображает зависимость запаса хода от марки БТР.
Тип: Объемная круговая диаграмма.
Диаграмма 1 представлена на рисунке 10.
Рисунок 10 – Диаграмма 1
Диаграмма 2 отображает зависимость мощности двигателя от марки БТР.
Тип: гистограмма.
Диаграмма 2 представлена на рисунке 11.
Рисунок 11 – Диаграмма 2
6. Разработка алгоритма
Если при работе с Microsoft Excel возникает необходимость несколько раз выполнить одну и ту же последовательность действий, то можно записать эту последовательность под определенным именем. Записанная под определенным именем последовательность действий и будет называться макросом.
Для создания макроса нужно разработать алгоритм
Алгоритм – точное предписание исполнителю совершить определенную последовательность действий для достижения поставленной цели за конечное число шагов
Во-первых, необходимо ввести данные, с которыми будут производиться таблиц. вычисления в ячейки, соответствующие заранее созданным заголовкам электронных
После ввода необходимой информации в таблицы, необходимо задать формулы и функции, по которым будут производиться вычисления над введенными данными.
Алгоритм представлен на рисунке 12.
Рисунок 12 - Алгоритм
Для записи макроса сначала необходимо в меню «Сервис» подменю «Макрос» выбрать команду «Начать запись» и в открывшемся диалоговом окне определить имя макроса и сочетание клавиш, которое будет вызывать данный макрос. Затем следует выполнить необходимые расчеты. После этого нужно остановить запись, выбрать в меню «Сервис» подменю «Макрос» команду «Остановить запись».
Ниже приведен листинг созданного макроса:
Sub Макрос()
' Макрос2 Макрос
' Макрос записан 28.10.2007 (Андрей)
'
' Сочетание клавиш: Ctrl+p
'
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B18").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B19").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B20").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B21").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B22").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B23").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B24").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B25").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B26").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B27").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("C17").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C18").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C20").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"