Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Метод Excel.doc
Скачиваний:
12
Добавлен:
20.12.2018
Размер:
2.71 Mб
Скачать

2.3. Проверить работу макроса ЧислаНомергруппы:

1. Удалить из блока ячеек В3:В12 все записи.

  1. Сделать активной ячейку В3. ...

  2. Открыть меню команды Сервис, выбрать пункт Макрос, выбрать Макросы.

  3. Выделить макрос под именем ЧислаНомергруппы.

  4. Щёлкнуть по кнопке Выполнить.

  5. Рели макрос не работает, записать его заново.

3адание3. Записать макрос для введения в ячейки рабочего листа буквы в определенной последовательности.

Последовательность действий при выполнении задания:

1. Открыть меню команды Сервис, выбрать пункт Макрос, выбрать Начать запись.

2. В появившееся окно ввести имя макроса: АлфавитНомергруппы. ОК.

3. В этот момент активной должна быть ячейка D3, поскольку запись предыдущего макроса была остановлена именно в этой позиции (см. пункт 7 предыдущего задания).

4. В блок ячеек D3:D12 ввести последовательность букв: а, б, в, г, д, е, ж, з, и, к.

  1. Сделать активной ячейку F3.

  2. Щёлкнуть мышью по кнопке Остановить запись. Проверить работу макроса АлфавиНомергрупи: Последовательность действий при выполнении макроса:

  1. Удалить из блока ячеек D3:D12 все записи.

  2. Сделать активной ячейку D3.

  1. Открыть меню команды Сервис, выбрать пункт Макрос, выбрать Макросы.

  1. Выделить макрос под именем АлфанитНомсргруппы,

  1. Щелкнуть по кнопке Выполнить.

  2. Если макрос не работает, записать, его заново.

3Адание4. Записать макрос для последовательного введения в ячейки рабочего листа цветных ячеек.

Последовательность действий при выполнении задания:

1. Открыть меню команды Сервис, выбрать пункт Макрос, выбрать Начать запись.

2. В появившееся окно ввести имя макроса: РадугаНомергруппы. ОК.

3. В этот момент активной должна быть ячейка F3, поскольку

запись предыдущего макроса была остановлена именно в этой позиции.

  1. Для ячейки F3 выбрать цвет заливки - красный.

  2. Перейти в ячейку F4, выбрать цвет заливки - оранжевый.

  3. Перейти в ячейку F5, выбрать цвет заливки - жёлтый.

  4. Перейти в ячейку F6, выбрать цвет заливки - зелёный,

  5. Перейти в ячейку F7, выбрать цвет заливки - голубой.

  6. Перейти в ячейку F8, выбрать цвет заливки - синий.

  1. Перейти в ячейку F9, выбрать цвет заливки - фиолетовый.

  2. Перейти в ячейку F10, выбрать цвет заливки - коричневый.

  3. Перейти в ячейку F11, выбрать цвет заливки - чёрный.

  4. Перейти в ячейку F12, выбрать цвет заливки - бирюзовый,

  5. Сделать активной ячейку Н3.

  6. Щёлкнуть мышью по кнопке Остановить запись.

Проверить работу макроса РадугаНомергруппы.

Последовательность действий при выполнении задания:

1. Удалить из блока ячеек F3:F12 все записи.

2. Сделать активной ячейку F3.

3. Открыть меню команды Сервис, выбрать пункт Макрос,

выбрать Макросы.

  1. Выделить макрос под именем РадугаНомергруппы

  2. Щёлкнуть по кнопке Выполнить.

  3. Если макрос не работает, записать его заново.

3Адание5. Написать макрос для введения в ячейки рабочего листа таблицы с данными.

Последовательность действий при выполнении задания:

  1. Открыть меню команды Сервис, выбрать пункт Макрос, выбрать Начать запись.

2. В появившееся окно ввести имя макроса: БланкНомергрупп.

ОК.

3. В этот момент активной должна быть ячейка НЗ.

Любым известным способом (желательно самым рациональным) соз­дать в блоке ячеек Н3:К11 такую таблицу. В последней строке долж­ны быть подсчитаны суммы по столбцам. Перед началом записи мак­роса продумать (при необходимости записать), как создавать таб­лицу.

Таблица

Н

I

J

К

3

5

6

7

8

4

10

11

12

13

5

15

16

17

18

6

20

21

22

23

7

25

26

27

28

8

30

31

32

33

9

35

36

37

38

10

40

41

42

43

11

180

188

196

204

  1. Сделать активной ячейку В3.

  2. Щёлкнуть мышью по кнопке Остановить запись.