54

End Sub

Sub Пример2()

MsgBox "Переназначение клавиш_2" & Chr(13) & "Клавиши Ctrl и Стрелка вверх"

End Sub

Ниже приведены диалоговые окна, выводимые в рассматриваемом примере.

2.10.6.2. Событие OnTime

Событие OnTime происходит в заданное время суток. Доступ к нему производится с помощью метода объекта Application OnTime. В приведённой ниже процедуре ИнтервалВремени осуществляется вызов процедуры ВыходПоВремени через 45 минут от момента её вызова, т.е. текущего времени, которое задаётся функцией Now. Функция TimeValue преобразует строковое значение аргумента (в нашем случае "00:45:00") в формат времени (45 минут).

Sub ИнтервалВремени()

Application.OnTime Now + TimeValue("00:45:00"), "ВыходПоВремени" End Sub

В процедуре ВыходПоВремени строка Ваше время истекло! Помещается в ячейку E5 Листа2, и его содержимое (параметр Contents) защищается от изменений (использован метод Protect).

Sub ВыходПоВремени() Sheets("Лист2").Range("E5").Value = "Ваше время истекло!"

Sheets("Лист2").Protect Contents:=True End Sub

2.11. Формы пользователя

Формы пользователя – это диалоговые окна, предназначенные для создания собственного интерфейса при работе с программными модулями проекта, используя объект UserForm. При помощи форм пользователя VBA , которые называются также экранными формами, можно создавать диалоговые окна для вывода данных или получения значений от пользователя в виде, требуемом программе пользователя. Хотя во многих случаях для этих целей можно применять функции MsgBox и InputBox (или метод InputBox), при разработке сложных проектов возможности их недостаточны. В экранных формах пользователя можно в одном диалоговом окне