Читайте также:
|
Объект 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»
Application.OnKey «^{RIGHT}», «» - отмена назначения комбинации Ctrl
Application.OnKey «^{RIGHT}» - восстановление функции комбинации клавиш.
Метод Quit. Осуществляет выход из Excel.
Дата добавления: 2014-12-23; просмотров: 24 | Поможем написать вашу работу | Нарушение авторских прав |