Проверьте работоспособность всех макросов, привязанных к графическим объектам.

Практическая работа №3 «Воспроизводство населения России, (%)»

Порядок работы:

1. Откройте Excel.
2. Переименуйте «Лист3» в лист «Рождаемость».
3. Составьте таблицу «Воспроизводство населения России, (%)»

1. Под таблицей выписать вопросы и предусмотреть место для вывода ответов. Ответы должны выводиться при нажатии на графические объекты, к которым привязаны макросы.

Вопросы:

1) Средней довоенной рождаемости 1926-1940 гг.

2) Средней послевоенной рождаемости 1960-1997 гг.

3) Средней довоенной смертности 1926-1940 гг.

4) Средней послевоенной смертности 1960-1997 гг.

5) Среднего довоенного естественного прироста 1926-1940 гг.

6) Среднего послевоенного естественного прироста 1960-1997 гг.

7) Минимальная рождаемость

8) Минимальная смертность

9) Минимальный естественный прирост.

10) Максимальная рождаемость

11) Максимальная смертность

12) Максимальный естественный прирост

1. Ваш лист должен выглядеть так:

5. После записи макросов ВОПРОС и ОТВЕТ проверьте текст:

(Сервис- Макрос- Макросы- Изменить)

Sub ВОПРОС ()

'' ВОПРОС Макрос

' Макрос записан 17.12.2005

'

Range(" F15").Select

ActiveCell.FormulaR1C1 = " =AVERAGE(R[-12]C[-4]: R[-11]C[-4])"

Range(" F16").Select

ActiveCell.FormulaR1C1 = " =AVERAGE(R[-11]C[-4]: R[-5]C[-4])"

Range(" F17").Select

ActiveCell.FormulaR1C1 = " =AVERAGE(R[-14]C[-3]: R[-13]C[-3])"

Range(" F18").Select

ActiveCell.FormulaR1C1 = " =AVERAGE(R[-13]C[-3]: R[-7]C[-3])"

Range(" F19").Select

ActiveCell.FormulaR1C1 = " =AVERAGE(R[-16]C[-2]: R[-15]C[-2])"

Range(" F20").Select

ActiveCell.FormulaR1C1 = " =AVERAGE(R[-15]C[-2]: R[-9]C[-2])"

Range(" F21").Select

ActiveCell.FormulaR1C1 = " =MIN(R[-18]C[-4]: R[-10]C[-4])"

Range(" F22").Select

ActiveCell.FormulaR1C1 = " =MIN(R[-19]C[-3]: R[-11]C[-3])"

Range(" F23").Select

ActiveCell.FormulaR1C1 = " =MIN(R[-20]C[-2]: R[-12]C[-2])"

Range(" F24").Select

ActiveCell.FormulaR1C1 = " =MAX(R[-21]C[-4]: R[-13]C[-4])"

Range(" F25").Select

ActiveCell.FormulaR1C1 = " =MAX(R[-22]C[-3]: R[-14]C[-3])"

Range(" F26").Select

ActiveCell.FormulaR1C1 = " =MAX(R[-23]C[-2]: R[-15]C[-2])"

Range(" B25: E26").Select

End Sub

Sub ОЧ ()

'' ОЧ Макрос

' Макрос записан 17.12.2005 (*)

' Range(" F15: F26").Select

Selection.ClearContents

End Sub

1. Создайте макросы изменения цвета таблиц на зеленый и изменения шрифта на Ж, К, 14. Привяжите эти макросы к графическим объектам.

Практическая работа №4 «Количество осадков»

Порядок работы:

1. Откройте Excel.
2. Переименуйте «Лист 4» в лист «Осадки».
3. Составьте таблицу «Количество осадков (мм)»

Таблица построена на основании наблюдений метеостанции города N