Практическое задание №5

На листе 1 Excel создать таблицу, как приведено на рис. 1, шрифт Calibri, размер 11 пт. Заполните данными столбцы 1-5, кроме строк Итого/кг и Итого/руб. Подсчитайте данные в столбцах 6, 7 и строках Итого/кг и Итого/руб.

Описание выполнения задания:

1. На листе 1 Excel создал таблицу.

2. Записал данные с рис 1.

3. Построил гистограмму.

4. Создал кнопку перекраски.

5. Создал кнопку построения гистограммы.

6. Создал кнопку очистки.

7. Задание выполнено.

Результат выполненного задания №5

Програмный код перекраски

Sub z()

Range("A2:E3").Interior.Color = RGB(0, 255, 0)

Range("A5:A9").Interior.Color = RGB(0, 255, 0)

Range("A10:G11").Interior.Color = RGB(255, 255, 0)

Range("F2:G9").Interior.Color = RGB(255, 255, 0)

Range("A2:G11").Font.Size = 14

Range("A2:G11").Font.Name = "Arial"

End Sub

Программный код очистки

Sub X()

Range("A2:E3").Interior.Color = RGB(128, 128, 128)

Range("A5:A9").Interior.Color = RGB(128, 128, 128)

Range("A10:G11").Interior.Color = RGB(255, 165, 0)

Range("F2:G9").Interior.Color = RGB(255, 165, 0)

Range("A2:G11").Font.Size = 11

Range("A2:G11").Font.Name = "Calibri"

End Sub

Макрос диаграммы

Sub Макрос1()

'

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

'

'

Range("A5:A9,G5:G9").Select

Range("G5").Activate

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xl3DColumnClustered

ActiveChart.SetSourceData Source:=Range("Лист1!$A$5:$A$9;Лист1!$G$5:$G$9")

ActiveSheet.Shapes("Диаграмма 1").IncrementLeft -220.5

ActiveSheet.Shapes("Диаграмма 1").IncrementTop 25.5

End Sub

Вывод на листе Excel

Практическое задание №6

На листе 1 Excel создать таблицу, как приведено на рис. 1, шрифт Calibri, размер 11 пт. Заполнить данными столбцы 1-6, 8, 10, кроме строкиИтого.

Описание выполнения задания:

1. Произвёл расчет Итого отработанных дней как сумму отработанных дней за март, апрель, май;

2. Произвел расчет Среднего дневного заработка по формуле:

Средний дневной заработок = Итого начислено/3/25,25 при условии, что Итого отработанных дней = норма за 3 месяца. В противном случае Средний дневной заработок = Итого начислено/ Итого отработанных дней.

3. Произведите расчет Сумма отпускных по формуле:

Сумма отпускных = Средний дневной заработок  Кол-во дней отпуска.

4. Произвел расчет Итого как сумму соответствующих строк.

5. Записал макрос построения круговой диаграммы

6. Программно рассчитал данные в ячейках 7, 9,11 и по строке Итого. Внес их в соответствующие ячейки таблицы. Создал кнопку на листе 1 Excel для запуска макроса.

7. . Программно задал фон ячеек - светло серый, шрифт – курсив, размер 14 пт.

8. Создал кнопку очистки.

9. Задание выполнено.