НОУ ИНТУИТ | Основные принципы и концепции программирования на языке VBA в Excel. Лекция 8: Объекты MS Excel

Учитесь и получайте официальные документы БЕСПЛАТНО. Вы можете поддержать наш проект.

Твой путь к знаниям!

Опубликован: 01.04.2010 | Уровень: для всех | Доступ: платный | ВУЗ: Национальный исследовательский университет "Высшая Школа Экономики"

|

Вам нравится? Нравится 61 студенту

| Поделиться |

Поддержать программу

Свойства, влияющие на высвечивание на экране

Свойство DisplayAlerts (R/W Boolean)

Во время выполнения программ возможно высвечивание сообщений и запросов MS Excel (встроенных диалоговых окон), на которые пользователь должен реагировать. Например, это может быть запрос на сохранение изменений при закрытии рабочей книги. Значение False свойства DisplayAlerts позволяет отключить высвечивание подобных сообщений. При отключении запросов MS Excel выбирает ответ, который установлен в диалоге по умолчанию.

Важно

Не забывайте возвращать первоначальное значение этого свойства, равное True, так как MS Excel автоматически его не восстанавливает.

Пример
	Процедура закрывает рабочую книгу AIR.XLS без сохранения изменений, при этом запрос на сохранение изменений не возникает.

Свойство ScreenUpdating (R/W Boolean)

Это свойство обновления экрана разрешает (значение True ) или запрещает (значение False ) изменение экрана при выполнении команд MS Excel.

Если процедура выполняет команды MS Excel, то на экране отображаются все действия с объектами MS Excel: выделение и копирование ячеек, перемещение экрана и т.д. Свойство ScreenUpdating позволяет избежать подобного "мелькания экрана".

Важно

Выключение обновления экрана ускоряет выполнение макропроцедур.
Не забывайте возвращать первоначальное значение этого свойства, равное True, так как MS Excel автоматически его не восстанавливает.

Свойство Visible (R/W Boolean)

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

Пример
	Процедура делает видимым окно приложения, если оно не видно или скрывает его, если окно высвечено.

Другие свойства объекта Application

Свойства	Описание	Примеры операторов
Calculation (R/W)	Возвращает или устанавливает параметры вычислений. Задается константами MS Excel	Application.Calculation=xlCalculateManual задает ручной пересчет
Calculation (R/W)		Application.CalculateBeforeSave=True задает автоматический пересчет перед сохранением файла
Path (R/O String)	Возвращает полный путь к объекту	MsgBox "Путь к приложению MS Excel " & Application.Path высвечивает путь к программе MS Excel
SheetsInNewWorkbook (R/W Long)	Возвращает или устанавливает количество рабочих листов во вновь создаваемой рабочей книге	MsgBox "В новой рабочей книге " & Application.SheetsInNewWorkbook & " рабочих листов" высветит количество листов во вновь создаваемой рабочей книге
ThisWorkbook	Возвращает объект ThisWorkbook - рабочую книгу, в которой находится выполняемая процедура. Свойство ActiveWorkbook в отличие от свойства ThisWorkbook позволяет получить доступ к активной рабочей книге	ThisWorkbook.Close SaveChanges:=False закрывает рабочую книгу, содержащую исполняемый код
		ThisWorkbook.FullName возвращает полный путь к рабочей книге, содержащей исполняемый код
	For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Close savechanges:=True End If Next w Цикл закрывает с сохранением изменений все открытые рабочие книги за исключением той, в которой находится исполняемая процедура
WorksheetFunction	Возвращает одноименный объект-контейнер функций рабочего листа	MsgBox "Десятичный логарифм 10^6 равен " & WorksheetFunction.Log10(10^6) высвечивает 6

Важно

Вызов функции рабочего листа производится со ссылкой на контейнер WorksheetFunction или на объект Application.
Названия функции VBA и функции рабочего листа, выполняющих одинаковые действия, могут не совпадать, например, функция Instr и функция Find.

Методы

Метод OnTime

Метод позволяет запустить некоторую процедуру в заданный момент времени.

Синтаксис OnTime(EarliestTime, Procedure[,LatestTime])

EarliestTime - выражение, задающее время запуска процедуры;
Procedure - имя запускаемой процедуры;
LatestTime - самое позднее время, когда процедура может быть запущена, если невозможно было запустить ее точно в указанное время. Причиной невозможности запуска могло явиться выполнение диалога, который не был прерван ранее.

Пример

увеличить изображение
Рис. 8.6. Пример применения метода OnTime

Процедура mes_time в 16:30 высвечивает сообщение "Пошли пить кофе".

Внимание

При указании, например, LatestTime=EarliestTime + 30, MS Excel подождет 30 секунд и, если выполняемая процедура не завершится, то процедура, указанная в OnTime, не будет запущена вовсе.
Если параметр LatestTime не задавать, то MS Excel дождется завершения процедуры и запустит нужную процедуру.
Если в качестве EarliestTime использовать выражение Now()+интервал времени, то процедура запустится спустя указанный интервал от текущего времени.

Метод Wait

Метод переводит приложение в состояние ожидания до наступления некоторого момента времени. Во время паузы пользователь не может выполнять никакие команды, но операции, выполняемые в фоновом режиме, например, распечатка, не прекращаются.

Синтаксис expression.Wait(Time)

expression - возвращает объект Application ;
Time - время окончания паузы в выполнении процедуры в формате даты.

Пример

Процедура устанавливает паузу примерно на 10 секунд.

Используются функции даты Hour, Minute, Second, TimeSerial, Now. С их помощью из текущего времени выделяются час, минуты, секунды; секунды увеличиваются на 10, и составляется время окончания паузы.

Рис. 8.7. Пример применения метода Wait

Дальше >>

Основные принципы и концепции программирования на языке VBA в Excel

Основные принципы и концепции программирования на языке VBA в Excel