Выполнить копирование значений диапазона ячеек E2:E6 в блок клеток B2:B6

  • ID: 03211 
  • 5 страниц
200 рубСкачать

антиплагиат в подарок

Книга.xls

Контрольная работа.docx

Содержание:


Введение

Целью данной работой является получение знаний и практических навыков по автоматизации информационных процессов в среде Excel, основанных на использовании электронных таблиц и средств их макрообработки.

Формулировка задания

1. Средствами табличного процессора Excel создать и сохранить на диске в виде файла данные в форме таблицы следующего вида:

2. В режиме записи макроса выполнить действия, предусмотренные

пунктами 3-5 задания.

3. Получить копию исходной электронной таблицы на другом листе книги Excel.

4. Выполнить копирование значений диапазона ячеек E2:E6 в блок клеток B2:B6.

5. Очистить содержимое блока ячеек C2:D6.

6. Проверить работоспособность макроса и полученной итоговой таблицы.

7. При выполнении макросом действий, не предусмотренных заданием, или результатов, отличных от ожидаемых, произвести корректировку текста макроса или создать его заново.

8. Вывести на печать и представить в отчете исходную и итоговую таблицы текст макроса с пояснениями его фрагментов, относящихся к пунктам выполняемого задания.

Основная часть

Создадим и сохраним на диске в виде файла данные в форме таблицы следующего вида:

Для этого воспользуемся табличным процессором MS Excel. Создадим новую рабочую книгу и сохраним в рабочем каталоге.

В меню Сервис->Макрос выбрали «Начать запись». В режиме записи макроса выполнили следующие действия:

Проверили работоспособность макроса и полученной итоговой таблицы:

Текст макроса

Sub Макрос2

' Макрос3 Макрос

' Макрос записан 22.10.2006

'

' Сочетание клавиш: Ctrl+a

Range("A1:E7").Select ‘выделение таблицы

Selection.Copy ‘скопировать выделенное

If Worksheets.Count < (ActiveSheet.Index + 1) Then ‘если следующей ‘страницы нет (куда копировать будем)

Worksheets.Add ‘то страницу добавляем

Worksheets.Move After:=Worksheets.Item(ActiveSheet.Index + 1) ’помещаем ‘ее после текущей страницы с данными

End If

Sheets(ActiveSheet.Index + 1).Select ’выделяем область

ActiveSheet.Paste ‘вставляем

Range("E2:E6").Select ‘выделяем ячейки

Selection.Copy ‘копируем