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