Лаб. раб. 6
.docЛабораторная работа №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) сумму и среднее значение.