3.5 Диаграмма
Для создания диаграммы был использован «Мастер диаграмм». Диаграмму получаем из сводной таблицы:
Рис.5Выбор источника данных
Перемещаем её на отдельный лист.
Рис.6 Перемещение диаграммы
В результате выполнения диаграммы получаем:
3.6Работа с макросами
3.6.1 Список макросов
№ |
Имя макроса |
Название кнопки |
Предназначение |
Расположение |
1 |
В_БД |
База Данных |
Переход на лист «База Данных» |
Лист «Меню» |
2 |
Выход_в_меню |
Меню |
Переход на лист «Меню» |
На всех листах, кроме «Меню» |
3 |
Диаграмма |
Диаграмма |
Переход на лист «Диаграмма» |
Лист «Меню» |
4 |
Задание1н |
Задание 1 |
Переход на лист «Задание1» |
Лист «Меню» |
5 |
Задание2 |
Задание2 |
Переход на лист «Задание2» |
Лист «Меню» |
6 |
Задание_1 |
Решение |
Выполнение задания1 |
Лист «Задание1» |
7 |
Макрос 8 |
Решение |
Выполнение задания2 |
Лист «Задания2» |
8 |
Обновить |
Обновить |
Обновление задания 3 |
Лист Свод_таб |
9 |
Очистка |
Очистка |
Очистка |
Лист задания 1 |
10 |
Очистка2 |
Очистка |
Очитска |
Лист задания 2 |
11 |
Сведение |
Свед.об.уч |
Переход на лист «Об авторе» |
Лист «Меню» |
3.6.2 Распечатка макросов
Sub В_БД()
'
' В_БД Макрос
''
Sheets("БД").Select
End Sub
Sub Задание2()
'
' Задание2 Макрос
'
'
Sheets("Задание2").Select
End Sub
Sub Сводтаб()
'
' Сводтаб Макрос
'
'
Sheets("Свод_таб").Select
End Sub
Sub Диаграмма()
'
' Диаграмма Макрос
'
'
Sheets("Диаграмма1").Select
End Sub
Sub Сведение()
'
' Сведение Макрос
'
'
Sheets("Свед. об уч.").Select
End Sub
Sub Макрос8()
'
' Макрос8 Макрос
'
M = InputBox("Введите статус учебного заведения, 1 - Высшее, 2 - Среднее, 3 - Ср.специальное")
Select Case M
Case 1
a = "Высшее"
Case 2
a = "Среднее"
Case 3
a = "Ср.специальное"
End Select
'
Range("G6").Select
Selection.Copy
Range("F25").Select
ActiveSheet.Paste
Range("F26").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = a
Range("G25").Value = "Минимальные затраты"
Range("G26").Select
ActiveCell.FormulaR1C1 = _
"=DMIN(R[-20]C[-6]:R[-4]C[2],R[-20]C[-2],R[-1]C[-1]:RC[-1])"
End Sub
3.7 Инструкция по использованию программы
Чтобы начать работу, необходимо загрузить пакет MicrosoftExcel(Пуск → Программы → MicrosoftOffice → MicrosoftExcel)и открыть файл «Курсовая по Excel.xlsxm» (D:/Курсовая по Excel.xlsxm). На экране появится меню, состоящее из 6 кнопок. Нажатием по каждой из них можно перейти к задачам, диаграмме, исходной базе данных. С любого листа файла можно выйти в меню нажатием кнопки «Меню» . Такая структура позволяет быстро переходить к нужному листу. Для просмотра решения задачи, пользователь может нажать на кнопку «Решение». Для возврата базы данных в исходное состояние пользователь может нажать на кнопку «Очистка», которая произведет очистку.