5 Содержание отчета

1. Название работы.

2. Цель работы.

3. Сохраненный на сетевом диске файл приложения MS Excel в папке «Практическая работа №12».

4. Ответы на контрольные вопросы.

6 Контрольные вопросы

1. Что представляет собой объект Worksheet?

2. Для чего нужна коллекция Worksheets?

3. Укажите команду для VBA, с помощью которой можно распечатать текущий лист?

Приложение А

Код макроса к практическому занятию №12

Sub Work_With_WorkSheets()

Dim wrkbook As Workbook

Dim wrk As Worksheet

Set wrkbook = ActiveWorkbook

Set wrk = wrkbook.Worksheets(1)

wrk.Name = "Мой рабочий лист"

wrk.Range("a1") = "Названия листов в рабочей книге"

wrk.Range("a2") = Worksheets(1).Name

wrk.Range("a3") = Worksheets(2).Name

wrk.Range("a4") = Worksheets(3).Name

wrk.Range("b5") = "800"

wrk.Range("c5").Formula = "=b5 * 13 / 100"

wrk.Visible = xlSheetHidden

MsgBox "Первый лист скрыт"

wrk.Visible = xlSheetVisible

wrk.Activate

MsgBox "Первый лист открыт"

wrk.PrintPreview

End Sub

Варианты задания №2 к практическому занятию №12

1. Сделать активным Лист2 и создать на нем ведомость промежуточной аттестации, состоящую из столбцов: ФИО, Математика, Физика, Информатика, Английский язык. В ячейку C2 внести заголовок таблицы «Аттестация группы ПО-11». Занести программно в 4 строки данные ведомости и вычислить средний балл по каждой дисциплине.

2. Сделать активным Лист3 и создать на нем таблицу с данными продаваемых домов со столбцами Номер п/п, Улица, Площадь дома, Цена . В ячейку А3 внести заголовок таблицы «Продажа домовладений» внести заголовок таблицы Занести программно в 5 строк данные.

3. Сделать активным Лист2 и создать на нем расчетный лист для оплаты коммунальных услуг со столбцами Номер п/п, Фамилия, Номер квартиры, Свет, Газ, Отопление. Занести программно в строки данные о 4-х жильцах. Вычислить общую сумму оплаты и вывести ее в строке ИТОГО под таблицей. В ячейку C1 внести заголовок таблицы «Оплата за январь 2013г.».

4. Сделать активным Лист3 и создать на нем список туристов, проживающих в гостинице ФИО, Номер, Количество дней, Цена одного дня, Сумма оплаты. Занести программно в 4 строки данные для всех столбцов. Сумму вычислять программно. В ячейку C1 внести заголовок таблицы «Оплата проживания в гостинице».

5. Сделать активным Лист2 и создать на нем список студентов, обучающихся на доп. образовании со столбцами ФИО, Группа, Дисциплина, Количество часов, Сумма оплаты. Сумму вычислять программно при цене одного часа 200 руб. Занести программно в 4 строки данные для всех столбцов. В ячейкуА3 внести заголовок таблицы «Дополнительное образование».

6. Сделать активным Лист3 и создать на нем список овощей в магазине со столбцами Название , Цена, Количество, Стоимость. Занести программно в 4 строки данные для всех столбцов. Вычислить общую сумму стоимости и вывести ее в строке ИТОГО под таблицей. В ячейку А2 внести заголовок таблицы «Овощной магазин».

7. Сделать активным Лист2 и создать на нем список продуктов на складе со столбцами Название , Цена, Количество, Стоимость. Занести программно в 4 строки данные для всех столбцов. Вычислить общую сумму стоимости и вывести ее в строке ИТОГО под таблицей. В ячейку А2 внести заголовок таблицы «Овощной магазин».

8. Сделать активным Лист2 и создать на нем ведмость оплаты работ бригады рабочих со столбцами ФИО, Вид работы, Цена 1 дня, Количество дней, Сумма оплаты. Занести программно в 4 строки данные для всех столбцов. Сумму вычислять программно. Вычислить общую сумму оплаты и вывести ее в строке ИТОГО под таблицей. В ячейку А3 внести заголовок таблицы «Оплата работ бригады».

9. Сделать активным Лист3 и создать на нем ведомость стоимости ремонта автомобиля со столбцами ФИО владельца, Марка, Деталь, Цена детали, Стоимость работы . Занести программно в 4 строки данные для всех столбцов. Стоимость работы вычислять программно по формуле 0,2*Цена детали. Вычислить общую сумму оплаты и вывести ее в строке ИТОГО под таблицей. В ячейку А3 внести заголовок таблицы «Оплата ремонта автомобилей».

10. Сделать активным Лист2 и создать на нем список литературы, покупаемой для библиотеки со столбцами Автор, Название , Год издания, Цена, Количество, Общая стоимость. Занести программно в 4 строки данные для всех столбцов. Вычислить общую сумму оплаты и вывести ее в строке ИТОГО под таблицей. В ячейку А3 внести заголовок таблицы «Литература для библиотеки».