Создание пользовательских приложений

 

Цель работы:научиться создавать пользовательские приложениядля обработкиданных в Excel в среде VBA.

 

Задание1Разработать приложение в среде VBAдля создания и обработки таблицы в Excel по результатам сдачи студентами экзаменационной сессии.

Обеспечить возможность:

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

2. Вычисление стипендии студентам в зависимости от среднего балла за сессию поустановленнымнормативам и занесение данных расчета в созданную таблицу.

3. Сортировку данных в таблице по индексу группы, фамилии студента и размеру стипендии.

4. Формирование ведомости выдачи стипендии студентам на отдельном листе.

Рекомендуемая последовательность выполнения задания.

1. Создайте новую книгу Excel и сохранитеее с именем VBA _ Tabl . xlsm .

2. Откройте редактор VBA и импортируйте сохраненные в личной папке формы frm_ Fut, frm_ Vvod, frm_ Ras. frm_ Sort и frm_ L2из предыдущей лабораторной работы.

3. Протестируйте импортированные формы и при необходимости отредактируйте код отдельных процедур.

4. Запустите форму frmFutи оформите заголовок (шапку)главной таблицы.

5. Запустите форму frmVvodи введите не менее десяти строк данных о результатах сдачи зимней сессии студентами своего курса.

6. Рассчитайте стипендию каждому студенту в  форме  frm_ Ras.Используйте действующие на момент расчета нормативы начисления стипендии в зависимости от среднего балла.

7. Проверьте работу формы frm_ Sort по сортировке данных в таблице по заданным в задании критериям.

8. Создайте на Лист2 ведомость выдачи стипендии студентам, используя форму frm_ L2.

9. Вставьте новую форму в проект VBA _ Tabllи оформите ее внешний вид, как показано на рис. 7.1.

10. Задайте имена объектам на форме и самой форме в соответствии с таблицей 7.1.

 

Рис. 7.1 Внешний вид формы Меню

Таблица 7.1 Имена элементов на форме Меню

Элемент	Наименование	Имя
Форма	Меню	frm_Menu
Кнопка	Ввод	cmd_Menu1
Кнопка	Расчет	cmd_Menu2
Кнопка	Ведомость	cmd_L2
Кнопка	Сортировка	cmd_Menu3
Кнопка	Выход	cmd_Exit

11. В окне кода раздела формы frm _ Menu введите код:

Private Sub cmd_Menu1_Click()

Load frm_Vvod

frm_Vvod.Show

End Sub

Private Sub cmd_Menu2_Click()

Load frm_Ras

frm_Ras.Show

End Sub

Private Sub cmd_Menu3_Click()

Load frm_L2

frm_L2.Show

End Sub

Private Sub cmd_Menu4_Click()

Load frm_Sort

frm_Sort.Show

End Sub

Private Sub cmd_Menu5_Click()

Unload Me

End

End Sub

12. Протестируйте работу разработанного приложения. Оцените удобства работы с таблицами с использованием главного меню приложения (форма frm _ Menu ) по сравнению с вызовом каждой формы вручную.

13. Создайте кнопку с названием Главное менюна Лист1 книги VBA _ Tabl . xlsm для вызова формы frm _ Menu созданного приложения после открытия книги.

14. Самостоятельно добавьте в код программы приложения процедуру вызова главного меню приложения при открытии книги VBA _ Tabl . xlsm .

15. Сохраните книгу VBA _ Tabl . xlsm и форму frm _ Menu . Оформите отчет по лабораторной работе.

Задание для самостоятельной работы

Вариант 1

1. Создать таблицу, которая содержит сведения о сотрудниках института.

Структура таблицы:

· фамилия;

· пол;

· название отдела;

· дата рождения;

· дата поступления наработу;

· должность;

· оклад.

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

3. Рассчитать:

• стаж работы всех сотрудников;

• средний стаж работы сотрудников заданного отдела;

• количество сотрудников с окладом ниже заданного.

4. Создать на 2 листе книгитаблицу, которая содержит список сотрудниковпенсионного возраста (на сегодняшний день), указав стаж работы. Учесть разницу в пенсионном возрасте женщины и мужчины.

5. Сортировать данные в таблице по заданному столбцу.

6. Увеличить оклад на заданное число процентов лицам со стажем работы вышезаданного.

Вариант 2

1. Создать таблицу, которая содержит сведения о заказе на ремонт оборудования.

Структура таблицы:

· номер заказа;

· дата оформления заказа;

· фамилия заказчика;

· наименование оборудования;

· сложность ремонта (низкая, средняя, высокая);

· стоимость;

· дата окончания ремонта.

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

3. Определить:

• суммарную стоимость всех заказов;

• количество заказов на ремонт заданного вида сложности;

• минимальную стоимость ремонта.

4. Создать на 2 листе книги таблицу, которая содержит сведения о продолжительности ремонта заказов, оформленных в течение заданного сезона (например, весной): номер заказа, фамилия заказчика, наименование оборудования, продолжительность заказа.

5. Сортировать данныев таблицепо заданномустолбцу.

6. Увеличить стоимость ремонта на Х% (значение Х задано) у оборудования с заданнымнаименованием.

Вариант 3

1. Создать таблицу, которая содержит сведения о междугородных разговорах.

Структура таблицы:

• фамилия абонента;

• номер телефона;

• дата разговора;

• код города;

• длительность разговора в минутах;

• стоимость 1 минуты.

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

3. Определить:

• максимальную стоимость разговора;

• суммарную стоимость всех разговоров;

• общее количество разговоров в город с заданным кодом.

4. Создать на 2 листе книги таблицу, которая содержит сведения о стоимости разговоров, которые состоялись в интервале между двумя заданными датами.

5. Сортировать данные в таблице позаданному столбцу.

6. Увеличить стоимость всех разговоров на Х% (значение Х задано).

7. Удалить сведения о разговорах абонента сзаданной фамилией.

Методические материалы