Цель: Научиться использовать свойства и методы объектов Excel.

Простой документ Microsoft Excel при программировании можно разделить на множество элементов. Поэтому, прежде чем приступать к написанию программ, которые автоматизируют работу со средствами приложения или обеспечивают доступ к данным, сохраненным в документе, необходимо ознакомиться с моделью объектов приложения (иерархией). Иерархия объектов определяет связь между объектами используемого приложения и имеет древовидную структуру.

В модели объектов хранятся важные сведения, такие как данные, необходимые для обеспечения доступа к другим объектам. Например, прежде чем работать с содержимым ячеек некоторого диапазона, требуется получить доступ к рабочей книге Excel, а затем к нужному рабочему листу в этой книге.

Объектно - ориентированный подход состоит в том, что сама программа Microsoft Excel рассматривается как совокупность объектов (более 100) и их семейств.

Примерами наиболее часто используемых объектов и семейств являются объекты Application (Приложение), Workbook и Workbooks (Рабочая книга), Worksheet и Worksheets (Рабочий лист), а также объект Range (Ячейка):

С помощью только этих объектов можно произвести огромное количество операций. Объекты и их семейства имеют свойства и методы. Свойства - это характеристики объекта, а методы - это действия, которые выполняются объектом. Чтобы использовать свойства или методы объекта, необходимо указать его положение в структуре объектов. Однако не во всех случаях требуется явно задавать место элемента в иерархии объектов. Если по контексту ясно, о каком элементе идет речь, можно задать объект, не указывая его принадлежность к вышестоящим объектам.

Использование объекта Application.

Исходным элементом любой модели Office является объект Application. Он представляет все приложение в целом. С помощью свойств и методов элемента Application, можно установить параметры работы программы, такие как задаваемые с помощью команды Сервис/Параметры. В свойствах объекта Application, например, ActiveWorkbook, ActiveSheet и ActiveCell хранится информация об объекте, с которым в текущий момент работает пользователь. Приведем примеры использования этих свойств:

 

· Печать имени активной рабочей книги

a = Application.ActiveWorkbook.Name

MsgBox (a)

 

· Печать имени активного рабочего листа

a = Application.ActiveWorkbook.ActiveSheet.Name

MsgBox (a)

 

· Печать адреса активной ячейки

a = ActiveCell.Address

MsgBox (a)

 

· Печать значения активной ячейки

a = ActiveCell.Value

MsgBox (a)

 

· Печать номера строки активной ячейки

a = ActiveCell.Row

MsgBox (a)

 

· Печать номера столбца активной ячейки

a = ActiveCell.Column

MsgBox (a)

 

Использование семейства Workbooks

Зная как работать со свойствами и методами семейства Workbooks, можно выполнять все операции над файлами.

Метод Add. Создает новую рабочую книгу (эквивалентен команде Файл/Создать). После создания книги, она становится активной, например:

Workbooks.Add

Метод Open. Используется для открытия существующей рабочей книги:

Workbooks.Open (" a: \windows\excel\video.xls" )

Метод Close. Закрывает все рабочие книги:

Workbooks.Close

Свойство Count. В нем хранится число объектов Workbook в семействе Workbooks (т.е. число открытых рабочих книг):

Num = Workbooks.Count

MsgBox " Открыто " & Num & " рабочих книг"

 

Использование семейства Worksheets

Семейство Worksheets представляет множество всех объектов Worksheet в рабочей книге. Семейство Worksheets включает метод Add, с помощью которого можно создать рабочий лист. Метод имеет следующий синтаксис:

Worksheets.Add

 

Для выбора активного листа, используется метод Select, например:

Worksheets(" Лист1" ).Select

 

Для удаления рабочего листа используется метод Delete:

Worksheets(" Лист1" ).Delete

 

Семейству Worksheets принадлежит свойство Visible. Если данное свойство имеет значение True (по умолчанию), то рабочий лист виден на экране. В противном случае лист не виден. С помощью этого свойства можно, например, скрыть определенный рабочий лист и пользователь не сможет его увидеть и внести в него изменения:

Worksheets(" Лист1" ).Visible = False

 

Использование объекта Range

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

· Используя ссылку на ячейки, например, Range (" G14" ) или Range (" B1: B6" ).

· Используя имя диапазона, например, " Итоги". Чтобы сослаться на этот диапазон, требуется указать выражение Range (" Итоги" ).

· Используя объект ActiveCell. Объект ActiveCell указывает на ячейку (или объект Range), который имеет фокус при вводе данных с клавиатуры.

· Используя объект Selection. Объект Selection - это то, что выделено на рабочем листе. Он может указывать на тот же диапазон, что и объект ActiveCell, а может и не указывать. С помощью объекта Selection можно сослаться, например, на диапазон, включающий одну или несколько ячеек, на рисунок или диаграмму. Объект ActiveCell всегда указывает на диапазон, содержащий одну ячейку.

Свойство Address. В свойстве Address хранится расположение диапазона на рабочем листе, например:

MsgBox Selection.Address

или

MsgBox ActiveCell.Address

Определите, в чем сходство и отличия этих двух инструкций.

Свойство Formula.Свойство Formula используется для задания или чтения формулы. После ввода формулы в объект Range свойству HasFormula автоматически присваивается значение True. Например, если необходимо задать функцию Sum для ячейки С7, укажите следующую инструкцию:

Range (" C7" ).Formula = " =Sum (C1: C6)"

Свойство Name. Чтобы присвоить в программе имя диапазону, используется свойство Name. Например, для задания диапазона Title, укажите следующую инструкцию:

Range (" A1: D1" ).Name = " Title"

Свойство Value. Используется для установки или чтения содержимого указанной ячейки, например:

Range (" A1: A5" ).Value = 5

Num = Range (" A4" ).Value

Метод Select. Используется для выбора активной ячейки:

Range(" I4" ).Select

Практическое упражнение

Напишем программу, которая рассчитывает квадрат чисел от 0 до 10 и выводит эти значения на Лист2 по диагонали:

 

Public Sub Квадрат_чисел()

Dim Send As String

Worksheets(" Лист2" ).Select

For i = 0 To 10

Send = Chr(65 + i) & (i + 1)

Range(Send).Value = i ^ 2

Next i

MsgBox (" OK" )

End Sub

 

Контрольные вопросы

 

1. Понятие иерархии объектов.

2. Объект Application и его свойства.

3. Семейство Workbooks. Операции над файлами.

4. Семейство Worksheets, его методы и свойства.

5. Семейство Range, его методы и свойства.

 

 

⇐ Предыдущая1234567

Поделиться: