Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лаб. раб. 6

.doc
Скачиваний:
13
Добавлен:
06.05.2017
Размер:
36.86 Кб
Скачать

Лабораторная работа №6

Автоматизация Microsoft Excel: работа с документами

Цель: получить навыки работы с документами в среде Microsoft Excel.

Краткие теоретические сведения

Обращение к листам рабочей книги производится с помощью коллекции WorkSheets объекта WorkBook. Каждый член этой коллекции представляет собой объект Worksheet. К члену этой коллекции можно обратиться по его порядковому номеру, например:

Арр.WorkBooks[1].WorkSheets[1].Name := 'Страница 1';

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

К листу рабочей книги можно обратиться и по имени, например:

Арр.WorkBooks[1].WorkSheets['Sheet1'].Name := 'Страница 1';

Обращение к отдельным ячейкам листа производится с помощью коллекции Cells объекта Worksheet. Например, добавить данные в ячейку В1 можно следующим образом:

App.WorkBooks[1].WorkSheets['Sheet1'].Cells[1,2].Value := '25';

Здесь первая из координат ячейки указывает на номер строки, вторая – на номер столбца.

Добавление формул в ячейки производится аналогичным способом:

App.WorkBooks[1].WorkSheets['Sheet1'].Cells[3,2].Value:= '=SUM(B1:B2)';

Очистить ячейку можно с помощью метода ClearContents.

Форматирование текста в ячейках производится с помощью свойств Font и Interior объекта Cell и их вложенных свойств. Например, следующий фрагмент кода выводит текст в ячейке красным полужирным шрифтом Courier кегля 16 на желтом фоне:

App.WorkBooks[1].WorkSheets[1].Cells[3,2].Interior.Color := clYellow;

App.WorkBooks[1].WorkSheets[1].Cells[3,2].Font.Color := clRed;

App.WorkBooks[1].WorkSheets[1].Cells[3,2].Font.Name := 'Courier1';

App.WorkBooks[1].WorkSheets[1].Cells[3,2].Font.Size := 16;

App.WorkBooks[1].WorkSheets[1].Cells[3,2].Font.Bold := True;

Обратиться к текущей ячейке можно с помощью свойства ActiveCell объекта Excel.Application, а узнать местоположение ячейки с помощью свойства Address объекта Cell, например:

ShowMessage(App.ActiveCell.Address);

Помимо обращения к отдельным ячейкам, можно манипулировать прямоугольными областями ячеек с помощью объекта Range, например:

App.WorkBooks[1].WorkSheets[2].Range[‘A1:C5’].Value := 'Test';

App.WorkBooks[1].WorkSheets[2].Range[‘A1:C5’].Font.Color := clRed;

Приведенный выше код приводит к заполнению прямоугольного участка текстом и изменению цвета шрифта ячеек.

Объект Range также часто используется для копирования прямоугольных областей через буфер обмена. Ниже приведен пример, иллюстрирующий такую возможность:

App.WorkBooks[1].WorkSheets[2].Range['A1:C5'].Copy;

App.WorkBooks[1].WorkSheets[2].Range['A11:C15'].Select;

App.WorkBooks[1].WorkSheets[2].Paste;

Диапазон, куда копируются данные, предварительно выделяется с помощью метода Select.

Индивидуальное задание

Сформировать новый документ Microsoft Excel, в который поместить таблицу в соответствии с индивидуальным вариантом, приведенным в лабораторной работе №5. Для каждого из числовых столбцов вычислить (с использованием формул Microsoft Excel) сумму и среднее значение.

Соседние файлы в предмете Кросс-платформенное программирование