Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
VBA_lektsii.doc
Скачиваний:
8
Добавлен:
01.04.2025
Размер:
3.91 Mб
Скачать

1.3.2. Доступ к объектам через свойства и методы

Вернемся к инструкции

Application.Workbooks(l).Worksheets(l). _ Range("A1").Value = 1

При написании её мы руководствовались иерархией объектов Excel. Однако на самом деле Range – это свойство объекта Worksheets, Worksheets – это свойство объекта Workbooks, который, в свою очередь, является свойством объекта Application. Обращаясь к свойству семейства (Workbooks или Worksheets), мы передаем в него аргумент – порядковый номер нужного нам объекта (1), а обращаясь к свойству Range – его имя (A1).

Таким образом, наряду со свойствами, представляющими собой атрибуты объекта, имеется большой класс свойств (и методов), возвращающих объект. По субъективному мнению автора, свойства, возвращающие объект, гораздо легче воспринимать как объекты, находящиеся на соответствующих уровнях иерархии, как это было сделано в предыдущем параграфе. Однако в окне Просмотр объектов и в справочной системе они отнесены именно к свойствам.

ОБРАТИТЕ ВНИМАНИЕ: у разных объектов бывает одно и то же свойство. Так, свойство Worksheets имеется у объектов Application и Workbooks. В первом случае это свойство возвращает семейство рабочих листов в активной рабочей книге (например,

Worksheets(1).Range("A1).Value = 1),

а во втором – семейство рабочих листов в определенной рабочей книге

(Workbooks(1).Worksheets(1).Range("A1).Value = 1).

1.4. Объект Application

Объект Application располагается на самой верхней ступени иерархии и представляет само приложение Excel. Любое обращение к методу или свойству объекта Application влияет на все приложение Excel. Рассмотрим его основные свойства и методы.

1.4.1. Свойства объекта Application

Свойство

Описание

ActiveWorkbook,

ActiveSheet,

ActiveCell,

ActiveChart

Возвращают активную рабочую книгу, лист, ячейку, диаграмму. Доступно для чтения.

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

With ActiveCell.Font

.Size = 14

.Bold = True

End With

ThisWorkbook

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

Caption

Заголовок окна Excel. String; доступно для чтения/записи.

Application.Caption = _

"Мое приложение"

Команда:

Application.Caption = Empty

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

DisplayAlerts

Управляет выводом на экран встроенных предупреждений Excel во время выполнения программы. True или False; доступно для чтения/записи.

Application. _

DispIayAlerts = False

SheetsInNewWorkbook

Количество листов в новой рабочей книге. Long, доступно для чтения/записи.

Application. _

SheetsInNewWorkbook = 1

ScreenUpdating

Управляет обновлением экрана при выполнении программы. По умолчанию имеет значение True (экран обновляется). Дей­ствует только во время выполнения программы, в которой это свойство было из­менено. True или False; доступно для чтения/записи.

Application. _

ScreenUpdating = False

WindowState

Устанавливает размер окна приложения. Доступно для чтения/записи. Может принимать одно из значений:

  • xlNormal – окно обычного размера;

  • xlMaximized – окно развернуто;

  • xlMinimized – окно свернуто;

Application.WindowState = _

xlNormal

DisplaystatusBar

Управляет отображением и сокрытием строки состояния. True или False; доступно для чтения/записи.

Application. _

DisplayStatusBar = False

DisplayFormulaBar

Управляет отображением и сокрытием строки формул. True или False; доступно для чтения/записи.

Application. _

DisplayFormulaBar = False

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]