Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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






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

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

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

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

 

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






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.