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

  • ID: 09108 
  • 4 страницы
140 рубСкачать

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

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

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

Содержание:


Введение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

В режиме записи макроса выполнили следующие действия:

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

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

' Макрос1 Макрос

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

'

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

'пункт 3

Cells.Select ‘выделение всех ячеек на текущем листе

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

Sheets("Лист2").Select ‘выбрать Лист2

ActiveSheet.Paste ‘вставить содержимое буфера в текущий лист

'пункт 4

Sheets("Лист1").Select ‘выбрать Лист1

Range("B2", "B6").Value = Range("E2", "E6").Value ‘Диапазону ячеек ("B2", "B6") присвоить численные значения диапазона ("E2", "E6").

'пункт 5

Range("C2", "D6").Clear ‘очистить диапазон ячеек ("C2", "D6").

End Sub

Заключение