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

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

Свойства объектов можно использовать только двумя способами: получатъ значение свойства или устанавливать его. Не все свойства объекта изменяемы. Свойства объектов, которые нельзя изменять, называют свойствами, доступными только не чтение (read-only), свойства, которые можно устанавливать, называют свойствами, доступными на чтение/запись (read-write).

Свойства обычно содержат численные, строковые, значения типа Boolean, хотя некоторые свойства могут возвращать значения типа Object или другие типы данных.

Обращение к свойству объекта имеет следующий синтаксис:

Object.property

Object –допустимая объектная ссылка VBA;

property –любое допустимое имя свойства для объекта, на который выполняется ссылка.

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

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

Variable = Object.Property

Variable – любая допустимая переменная, имеющая совместимый со свойством объекта тип;

Object – любая допустимая ссылка на объект;

Property – любое допустимое имя свойства для объекта, на который выполняется ссылка.

Пример 2.

Sub gg()

Dim AnyStr As String

AnyStr = ActiveSheet.Name

MsgBox AnyStr

Строка, сохраняемая в свойстве Name рабочего листа Excel и на которую ссылается объектная переменная ActiveSheet, присваивается переменной AnyStr.

Можно также использовать свойство объекта непосредственно в каком-либо выражении или в качестве аргумента функции или процедуры. Следующие строки представляют обоснованное использование свойства объекта (в каждой строке ActiveSheet.Name является объектной переменной, заданной для ссылки на рабочий лист Excel):

MsgBox ActiveSheet.Name

AnyStr = "Эта книга имеет имя: " & ActiveSheet.Name

MsgBox LCase(ActiveSheet.Name)

Почти каждый объект в VBA имеет свойство, которое содержит его имя. Следующий оператор использует MsgBox для отображения свойства FullName – объекте рабочей книги Excel; свойство FullName содержит имя диска, путь папке и имя файла рабочей книги:

MsgBox ThisWorkbook.FullName

В приведенном выше примере ThisWorkbook– это переменная, заданная для ссылки на объект открытой рабочей книги. Если ThisWorkbookссылается на рабочую книгу с именем Sales.xls в папке My Documents, то окно сообщения, вызываемое приведенным выше оператором, отображает строку "C:\My Documents \SALES.XLS".

Чтобы задать (установить) свойство объекта, надо присвоить свойству новое значение, используя следующий синтаксис:

Object.Property = Expression

Object – любая допустимая объектная ссылка;

Property – любое свойство объекта, на который выполняется ссылка;

Expression – любое выражение VBA, которое вычисляется до типа, совместимого со свойством.

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

Sub rename()

ActiveSheet.Name = "Первый квартал"

End Sub

Изменить текст, отображаемый в строке состояния в нижнем левом углу окна приложения, присваивая строку свойству StatusBarобъекта Application(объект Application– это host-приложение VBA, в данном случае – Excel) можно так:

Sub rename()

Application.StatusBar = "Генерировать отчет за третий квартал"

Application.StatusBar = False

End Sub

Свойство Application.StatusBar можно использовать в своих процедурах для отображения сообщений о действиях, которые выполняет процедура, особенно если некоторые из этих действий занимают много времени (например, сортировка длинного списка). Добавляя сообщение в строку состояния, пользователю дается знать, что процедура все еще работает.

Когда процедура выполнена надо возвратиь управление строке состояния при работе в Excel. Для этого необходимо устанавливать свойство Application.StatusBar в False, иначе Excel продолжает отображать заданное сообщение строки состояния.

В табл. 2 перечислены некоторые из наиболее употребительных или полезных свойств объектов в Excel версии Visual Basic for Application. В таблице представлено имя свойства, тип и значение, а также объекты, которые имеют это свойство.

Таблица 2. Наиболее употребительные свойства объектов

Свойство	Тип/Что означает	Где найти
ActiveCell	Object: активная ячейка в рабочем листе	Application, Window
ActiveChart	Object: активная диаграмма	Application, Window, Workbook
ActiveSheet	Object: активный лист	Application, Window, Workbook
Address	Возвращает координаты ячейки указанного объекта	Range
Cells	Диапазон объекта Range	Application, Range, Worksheet
Charts	Коллекция диаграмм	Application, Workbook
Count	Integer: число объектов в коллекции	Все объекты коллекции
Fofmula	String: формула для ячейки рабочего листа	Диапазон
Index	Integer: число объектов в коллекции	Worksheet
Name	String: имя объекта	Application, Workbook и в других объектах
Path	String: драйвер и каталог, в котором сохранен объект	Addln, Application, Workbook
Saved	Boolean: сохранялась ли рабочая книга после последних изменений	Workbook
Selection	Object: текущий выделенный фрагмент	Application, Window
Sheets	Коллекция листов рабочей книги	Application, Workbook
StatusBar	String: сообщение в статусной строке	Application
ThisWorkBook	Object: рабочая книга, из которой выполняется текущая процедура	Application
Type	Integer: число, указывающее тип объекта	Window, Worksheet, Chart
Visible	Boolean: отображается или нет объект на экране	Application, Worksheet, Range и в других объектах
Value	(варьируется): действительное значение, отображаемое в ячейке	Range
Workbooks	Коллекция рабочих книг	Application
Worksheets	Коллекция рабочих листов	Application, Workbook

Пример 3. Активный лист, ячейка

Sub TestObjectOl()

'имя активного листа

MsgBox ActiveSheet.Name

'адрес активной ячейки:

MsgBox ActiveCell.Address

'содержимое активной ячейки

MsgBox ActiveCell.Formula

'путь сохранения документа

MsgBox ThisWorkbook.Path

'отображение полного имени файла

MsgBox ThisWorkbook.FullName

'закрытие активного документа

ThisWorkbook.Close

Дата добавления: 2015-05-10