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

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

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

1. Откройте Excel.
2. Переименуйте «Лист3» в лист «Рождаемость».
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. Под таблицей выписать вопросы и предусмотреть место для вывода ответов. Ответы должны выводиться при нажатии на графические объекты, к которым привязаны макросы.

Вопросы:

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. Привяжите эти макросы к графическим объектам.