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

Объект Application представляет все приложение в целом. С помощью его свойств и методов, можно установить параметры работы программы. Рассмотрим некоторые свойства:

Свойства ActiveWorkBook, ActiveSheet и ActiveCell. В данных свойствах хранится информация об активном объекте.

With ActiveCell

.FontBold=true

.Value= « Отчет о продажах»

End With

Свойство Caption. В этом свойстве хранится имя, которое появляется в окне приложения Excel. Оно доступно как для чтения, так и для установки. Если требуется скрыть, что приложение работает в Excel, устанавливаем другую строку, возвращает заголовок ключевое слово Empty:

Application.Caption= «Корпорация МММ. Продажи»

Application.Caption= Empty

Свойство Cursor. Используется для задания внешнего вида указателя мыши во время выполнения макроса. Указывается одна из 4 констант :

XlDefault	Определяет использование указателя, заданного по умолчанию. Также после изменения свойства Cursor необходимо восстановить исходный вид мыши, присвоив это значение.
XlWait	Определяет использование указателя мыши в виде песочных часов, рекомендуется присваивать это значение в начале обработки данных.
XlNorthwestArrow	Определяет вывод указателя мыши в виде стрелки основного режима.
XlIBeam	Определяет вывод указателя мыши в виде стрелки выделения текста.

Свойства DisplayFormulaBar, DisplayScrollBars и DisplayStatusBar. Чтобы скрыть строку состояния, формулы, полосы прокрутки, требуется присвоить значение False этому свойству, а вернуть вывод требуемого элемента интерфейса, значение True соответствующему свойству.

Свойство StatusBar. Позволяет задать текст строки состояния. Рекомендуется применять со свойством Cursor.

Application.DisplayStatusBar=True

Application.StatusBar= « Обработка, пожалуйста, подождите ...»

Application.Cursor=XlWait

<вызов требуемой процедуры обработки>

Application.Cursor=XlDefault

Application.StatusBar=False

Метод InputBox. Очень удобен для ввода данных, в отличии от функции, которая возвращает строку, это метод позволяет задать тип введенных пользователем данных. Синтаксис :

Application.InputBox (сообщение в окне ввода, заголовок окна, текст по умолчанию в окне ввода, x,y, имя файла справки, тип данных ,возвращаемый методом)

Тип (0- формула, 1- №, 2- Текст, 4- логическое значение и пр.). При проверке нажатия кнопки «Отмена» следует сравнить возвращаемый методом результат со значением False.

Sub prim()

Dim kop as currecy

Dim num as single

kop= Application.InputBox(«Введите ставку почасовой оплаты :», «Почасовая _

оплата», 3.75, Type:=1)

If kop = False Then

MsgBox «Операция отменена .»

End If

num = Application.InputBox(«Введите количество отработанных часов: », _

«Отработанные часы», 40, Type := 1)

If num = False Then

MsgBox «Операция отменена .»

Else

MsgBox «К оплате » & Format ((num*kop), «$##,##0.00»)

End If

End Sub

Метод OnKey. Выполняет заданную процедуру при нажатии определенной клавиши или комбинации клавиш. Имеет синтаксис: Application.OnKey, Procedure

Коды клавиш для параметра Key совпадают с их обозначением на клавиатуре( указание кодов в {}), за исключением специальных - Alt или Option - %, Shift - +, Ctrl - ^, Command - *, Enter - ~. Procedure определяет имя процедуры, запускаемой при нажатии указанных клавиш. Восстановление исходной функции сочетания осуществляется указанием метода OnKey без процедуры. Например,

Application.OnKey «^{RIGHT}», «Prim»

A pplication.OnKey «^{RIGHT}», «» - отмена назначения комбинации Ctrl

Application.OnKey «^{RIGHT}» - восстановление функции комбинации клавиш.

Метод Quit. Осуществляет выход из Excel.