Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Пояснительная записка.docx
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
270.14 Кб
Скачать
  1. Список файлов курсовой работы с указанием пути доступа.

  1. Курсовая работа содержит три файла, хранящиеся на флеш-накопителе. Доступ к данным файлам производится по адресу: E:\

  2. Курсовая работа выполнена в среде Microsoft Excel 2013 и Microsoft Ассеss 2013. Просмотр файлов производится через проводник MS.

  3. Файл «Курсовая Темы.docx». Содержит темы курсовой работы.

  4. Файл «Курсовая Excel.xlsm». Лист Microsoft Excel содержит меню, исходную базу данных, решение трёх задач, диаграмму и информацию об авторе.

  5. Файл «Курсовая Access.accdb». Приложение Microsoft Access содержит таблицу базы данных, запросы, необходимые для решения задач, отчёт по четвертой задаче и форму базы данных.

  1. Создание и обработка базы данных в среде Excel.

3.1 Краткое описание пакета.

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

Табличный процессор (Microsoft Excel) – программа для создания, хранения и обработки информации, представленной в табличной форме.

Назначение пакета:

  • Ведение различных бухгалтерских, экономических, инженерных расчетов

  • Построение диаграмм и графиков

  • Проведение экономического анализа и оптимизации решений

  • Работа с ЭТ как с БД

  • Создание итоговых и сводных таблиц

  • Осуществление многотабличных связей и т.п.

Особенности пакета:

  • Имеет большое количество встроенных функций

  • Имеет те же стандартные средства интерфейса, что и ТП Word (работа с окном, буфером обмена, шрифтом и т.д.)

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

  • Имеет встроенное визуальное средство для разработки приложений (VBA – Visual Basic for Application) – исторически это первый ТП, в котором есть VBA.

  • Имеет возможность работы в сети

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

3.2 Инструкция по использованию программы.

Запустить программу Microsoft Excel из программного меню:

Пуск Программы Microsoft Office Microsoft Excel.

Открыть файл, имеющий путь доступа: Е: \ Курсовая Excel.xlsm

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

3.3 Исходная база данных «Железнодорожные вагоны»

Распечатана на отдельном листе

3.4 Структура базы данных.

Представленная в данной курсовой работе база данных имеет следующую структуру:

№ п/п

Имя поля

Тип данных

Длина данных

1

Регистрационный номер

Числовой

5 чисел

2

Тип вагона

Текстовый

7-11 символов

3

Количество мест

Числовой

2-3 число

4

Год выпуска

Числовой

4 числа

5

Завод-изготовитель

Текстовый

16 символов

6

Предприятие-владелец

Текстовый

30 символов

7

Срок эксплуатации

Числовой

1-2 числа

Формирование базы данных в Excel производилось ручным вводом данных с клавиатуры.

3.5 Описание средств решения каждой задачи.

3.5.1 Задача №1

Условие: Формирование списка вагонов, выпущенных за последние 10 лет (тип, завод изготовитель, количество мест, регистрационный номер).

Решение: для решения задачи был использован авто фильтр «больше».

Пример решения задачи: Вводим год 2014

В результате получаем:

3.5.2 Задача №2

Условие: Подсчет минимального срока эксплуатации вагонов, принадлежащих каждому предприятию.

Решение: для решения задачи была использована сводная таблица.

3.5.3 Задача №3

Условие: Вывести сведения о самом новом вагоне.

Решение: Для решения задачи была использована функция максимума и расширенный фильтр. Год выпуска самого нового вагона находился через функцию МАКС.

3.5.4 Диаграмма

Для создания диаграммы был использован «Мастер диаграмм». Использованы поля исходной базы данных «Количество мест», «Регистрационный номер пассажирского вагона».

    1. Макросы.

3.6.1 Список использованных макросов

Имя макроса

Название кнопки

Местонахождение кнопки (имя листа)

Назначение макроса (указать название задачи)

1

БД

База Данных

Sub БД()

' БД Макрос

Sheets("БД ж.д вагоны").Select

End Sub

Переводит из меню в базу данных

2

З1

Задача1

Sub З1()

' З1 Макрос

Sheets("Задача 1").Select

End Sub

Переводит из меню на лист, содержащий решение задачи №1

3

З2

Задача2

Sub З2()

' З2 Макрос

Sheets("Задача 2").Select

End Sub

Переводит из меню на лист, содержащий решение задачи №2

4

З3

Задача3

Sub З3()

' З3 Макрос

Sheets("Задача 3").Select

End Sub

Переводит из меню на лист, содержащий решение задачи №3

5

Диагр

Диаграмма

Sub Диагр()

' Диагр Макрос

Sheets("Диаграмма").Select

End Sub

Переводит из меню на лист, содержащий диаграмму

6

Меню

Меню

Sub Меню()

' Меню Макрос

Sheets("Оглавление").Select

End Sub

Переводит меню

11

Задача1

Задача 1

Sub Задача1()

' Макрос1 Макрос

Range("Таблица120[[#Headers],[Год выпуска]]").Select

Selection.Copy

Range("A18").Select

ActiveSheet.Paste

Range("A19").Select

Application.CutCopyMode = False

n = InputBox("Введите сегодняшний год")

n = n - 10

ActiveCell.FormulaR1C1 = n

Range("A1,B1,C1,E1").Select

Range("Таблица120[[#Headers],[Название завода-изготовителя]]").Activate

Selection.Copy

Range("B18").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("Таблица120[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _

:=Range("'Задача 1'!Criteria"), CopyToRange:=Range("B18:E27"), Unique:= _

False

Range("A19").Select

Selection.Style = "Акцент1"

End Sub

Решение задачи №1

12

Обновление

Обновление

Sub Обновить_свод_табл()

' Обновить_свод_табл Макрос

Range("D28").Select

ActiveSheet.PivotTables("СводнаяТаблица6").PivotCache.Refresh

End Sub

Решение задачи №2

13

Задача3

Задача 3

Sub Задача3()

' Макрос7 Макрос

Range("Таблица1202122[[#Headers],[Год выпуска]]").Select

Selection.Copy

Range("A18").Select

ActiveSheet.Paste

Range("A1,B1,C1,E1,F1,G1").Select

Range("Таблица1202122[[#Headers],[Срок эксплуатации вагона (вычислить)]]"). _

Activate

Application.CutCopyMode = False

Selection.Copy

Range("B18").Select

ActiveSheet.Paste

Range("A19").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "=MAX(Таблица1202122[[#All],[Год выпуска]])"

Range("Таблица1202122[#All]").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Range("'Задача 3'!Criteria"), CopyToRange:=Range("B18:G28") _

, Unique:=False

Selection.Style = "Акцент1"

End Sub

Решение задачи №3

14

Автор

Об авторе

Sub Автор()

' Автор Макрос

Sheets("Об авторе").Select

End Sub

Переходит на лист «Об авторе»