1. В текстовом поле слева вверху окна программного кода, в котором до сих пор было написано OKButton, щелкните на стрелке в правом конце поля.
После этого откроется список объектов, имеющих отношение к форме (рис. 3.16).
Рис. 3.16. В открывающемся списке объектов перечислены объекты, имеющие отношение к форме, которой принадлежит это окно программного кода
2. Из раскрывающегося списка выберите UserForm.
VBA создаст новую процедуру для события Click (щелчок). Эта процедура будет вызвана, если пользователь вашей программы щелкнет кнопкой мыши в любом месте фермы, где нет элементов управления. Нашей с вами программе такая процедура не нужна, поэтому пока оставьте ее.
3. Теперь щелкните на стрелке в конце текстового поля, находящегося справа, чтобы открыть список процедур, в котором будут перечислены все события, которые VBA распознает для объекта UserForm.
Этот список достаточно велик, что дает вам возможность сделать свою программу чуткой практически настолько, насколько захотите (рис. 3.17).
Рис. 3.17. В списке процедур представлены события, которые будут для активного в данный момент объекта
4. Выберите Activate - самый первый пункт в списке. Чтобы увидеть этот пункт, вам придется пролистать список.
VBA добросовестно создаст заготовку процедуры UserForm_Activate, которая вызывается при загрузке формы в память.
5. Если вас раздражает пустая процедура UserForm_Click, удалите ее, выделив весь ее текст и нажав клавишу Del.
Этот шаг не обязателен - соответствующий программный код не принесет никакого вреда. Но из-за того, что этот программный код не делает ничего полезного, а только отвлекает, можете смело прервать его одинокую жизнь.
Поскольку заготовка процедуры и в этом случае, как всегда, создается автоматически, вы сразу можете сосредоточиться на ее наполнении. Между строками, которые любезно предложены вам VBA, напечатайте еще три строки кода. Результат должен выглядеть следующим образом:
Private UserForm_Activate()
Dim Quote As String Quote = Не повторяется такое никогда:
lblNow.Caption = Quote Format(Now, dddddd, hh ч. mm мин.)
End Sub
Первая из напечатанных вами строк
Dim Quote As String
создает переменную с именем Quote и определяет ее как строковую, что означает последовательность текстовых символов.
Следующая строка
Quote = Не повторяется такое никогда:
сохраняет текст Не повторяется такое никогда: в только что созданной переменной Quote. Точно так же, как на уроках алгебры в школе, вы здесь используете знак равенства, чтобы приписать определенное значение переменной. Обратите внимание на то, что VBA перед закрывающими кавычками добавлен пробел, чтобы отделить текст сообщения от следующего за ним текста.