Составители:
107
Приложение Б. Пример содержания отчета о выполнении лабора-
торной работы.
Вариант задания № 31
Формулировка задания: расчет заработной платы.
Вид таблицы:
Фамилия, И.О. Начислено Налог К выдаче
Иванов В.Н. 1 234,00р. 148,08р. 1 085,92р.
Трофимова Л.А. 1 234,00р. 148,08р. 1 085,92р.
Семенова Е.Г. 1 000,00р. 120,00р. 880,00р.
Степанов А.Г. 900,00р. 108,00р. 792,00р.
Итого
4 368,00р. 524,16р. 3 843,84р.
Ставка подоходного налога 12,00%
Комментарий к содержанию таблицы:
Текст Фамилия, И.О. размещен в ячейке A1.
Исходные данные в виде констант размещены в полях Фамилия, И.О., Начислено, Ставка
подоходного налога.
Средствами Excel вычислялись значения полей Налог, К выдаче, Итого
Формула для вычисления в поле Налог строки 2 имела вид =B2*$C$7
Формула для вычисления в поле К выдаче строки 2 имела вид =B2-C2
Таблица была заполнена за счет протаскивания ячеек вниз.
Значение Итого было рассчитано за счет выполнения функции группового суммиро-
вания =СУММ(C2:C5). Функция была скопирована в столбец D протаскиванием ячей-
ки вправо.
Записанный макрос с внесенными комментариями имеет вид:
Sub Расчет_заработной_платы()
' Расчет _заработной_платы Макрос
' Макрос записан 01.12.2005 (Администратор)
Range("C2").Select ' Активизируется ячейка С2
ActiveCell.FormulaR1C1 = "=RC[-1]*R7C3" 'В C2 программируется формула =B2*$C$7
Range("D2").Select ' Активизируется ячейка D2
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]" 'В D2 программируется формула =B2-C2
Range("C2:D2").Select 'Выделяются две ячейки (диапазон)
Selection.AutoFill Destination:=Range("C2:D5"), Type:=xlFillDefault ' Запрограммированные
' формулы протаскиваются по столбцу
Range("C6").Select ' Активизируется ячейка С6 для программирования строки Итого
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)" ' Вычисляется сумма по столбцу
Range("D6").Select ' Активизируется ячейка D6 для программирования строки Итого
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)" ' Вычисляется сумма по столбцу
End Sub
