отобразить нужное сообщение, а вторая – завершить выполнение программы, когда кто-нибудь щелкнет на кнопке ОК.
5. Щелкните дважды по кнопке OK. В появившемся при этом окне программного кода появится заготовка процедуры. Первой строкой созданного программного кода будет Private Sub CommandButton2_Click().
В любой VBA-процедуре первая строка программного кода определяет тип процедуры (в данном случае это процедура типа Sub, т. е. подпрограмма) и имя процедуры. Private и Sub относятся к ключевым словам VBA, т. е. к словам и символам, которые являются частью языка VBA. В данном случае VBA предлагает для процедуры имя CommandButton2_Click, которое представляет собой комбинацию имени кнопки и типа события.
Последней строкой автоматически генерируемого программного кода будет End Sub.
Такой строкой должны заканчиваться все процедуры типа Sub. Эта строка сообщает VBA о том, что выполнение процедуры завершено.
Для выполнения первой процедуры (закрытия формы) необходимо прописать программный код в этой заготовке:
Unload Me
Оператор Unload убирает указанный объект из памяти. Здесь это объект с именем Me, имеющим в VBA специальный смысл. В данном случае оно означает форму и весь ее программный код.
6. Создайте обработчик события для кнопки «Сообщение», для чего дважды щелкните по созданной кнопке и пропишите код:
Dim ima As String
ima = TextBox1.Text
Label2.Caption = ima & ",привет! Сегодня " & Format(Now, «dddddd, hh ч. mm мин.»)
Вторая процедура, которая должна отображать на экране сообщение, чуть сложнее первой. Первая из напечатанных строк
Dim ima As String
создает переменную с именем ima и определяет ее как строковую, что означает последовательность текстовых символов.
Вторая строка данной переменной присваивает строковое значение, введенное в элемент TextBox1 (текстовое окно может «читать» только текстовое значение). Третья строка выводит сообщение в расположенную на форме метку Label2, для чего устанавливает свойству Caption программно-строковое значение. Функция Format выдает дату и время.
3-й шаг. Тестирование программы
Чтобы запустить программу из редактора Visual Basic, выполните следующее.
1. Щелкните либо в окне формы, либо в окне программного кода, чтобы соответствующее окно стало активным.
2. Прокомпилируйте программу: меню + debug + compile project.
3. Запустите программу на выполнение (F5).
После небольшой задержки окно вашей программы появится на фоне вашего VBA-приложения (а не редактора Visual Basic). Если все в порядке, на фоне приложения (Word или Excel) появится созданная форма в рабочем состоянии (рис. 14).
Рис. 14. Форма примера 4 в рабочем состоянии
• Это важно!
Если при запуске разработанной формы появляются сообщения вида (рис. 15 или рис. 16) о слишком большой защите приложения от макросов, т. е. вмешательства извне, необходимо выполнить следующие действия:
1) закрыть редактор VBA;
Рис. 15. Предупреждение 1-го вида
Рис. 16. Предупреждение 2-го вида о высокой защите приложений
2) в приложении Excel или Word (там, где происходит работа в текущий момент) выполнить команду: Сервис + Макрос + Безопасность;
4) установить низкую безопасность, так как создаваемая форма не несет никакой угрозы для операционной системы вашего компьютера (рис. 17);
5) закрыть приложение (Word или Excel) и запустить его вновь.
Рассмотрим простейшие примеры работы с циклами.
Пример 5. Используя инструкцию case, создать программу, которая в зависимости от введенного значения переменной а производит различные вычисления с переменными b и c. Если значение переменной а не совпадает с программными, то выдается сообщение «Введено не то значение».