Практическая работа №3 «Воспроизводство населения России,(%)»
Порядок работы:
- Откройте Excel.
- Переименуйте «Лист3» в лист «Рождаемость».
- Составьте таблицу «Воспроизводство населения России,(%)»
Год | Рождаемость | Смертность | Естественный прирост |
44,7 | 21,3 | 23,4 | |
20,6 | 12,4 | ||
23,2 | 7,4 | 15,8 | |
15,9 | 10,6 | 5,6 | |
14,6 | 10,6 | 4,0 | |
12,1 | 11,4 | 0,7 | |
9,4 | 14,5 | -5,1 | |
9,3 | 15,0 | -5,7 | |
8,6 | 13,8 | -5,2 |
- Под таблицей выписать вопросы и предусмотреть место для вывода ответов. Ответы должны выводиться при нажатии на графические объекты, к которым привязаны макросы.
Вопросы:
1) Средней довоенной рождаемости 1926-1940 гг.
2) Средней послевоенной рождаемости 1960-1997 гг.
3) Средней довоенной смертности 1926-1940 гг.
4) Средней послевоенной смертности 1960-1997 гг.
5) Среднего довоенного естественного прироста 1926-1940 гг.
6) Среднего послевоенного естественного прироста 1960-1997 гг.
7) Минимальная рождаемость
8) Минимальная смертность
9) Минимальный естественный прирост.
10) Максимальная рождаемость
|
|
11) Максимальная смертность
12) Максимальный естественный прирост
- Ваш лист должен выглядеть так:
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
- Создайте макросы изменения цвета таблиц на зеленый и изменения шрифта на Ж,К, 14. Привяжите эти макросы к графическим объектам.