Последней строкой автоматически генерируемого программного кода будет End Sub.
Такой строкой должны заканчиваться все процедуры типа Sub. Эта строка сообщает VBA о том, что выполнение процедуры завершено.
Для выполнения первой процедуры (закрытия формы) необходимо прописать программный код в этой заготовке:
Unload Me
Оператор Unload убирает указанный объект из памяти. Здесь это объект с именем Me, имеющим в VBA специальный смысл. В данном случае оно означает форму и весь ее программный код.
6. Создайте обработчик события для кнопки «Сообщение», для чего дважды щелкните по созданной кнопке и пропишите код:
Dim ima As Stringima = TextBox1.Text
Label2.Caption = ima & ",привет! Сегодня " & Format(Now, «dddddd, hh ч. mm мин.»)
которая должна отображать на экране сообщение, чуть сложнее первой. Первая из напечатанных строк
Dim ima As String
Вторая строка данной переменной присваивает строковое значение, введенное в элемент 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. Если значение переменной а не совпадает с программными, то выдается сообщение «Введено не то значение».
Все переменные вводятся в текстовые поля формы. При нажатии на кнопку «Результат» происходят выбор действия и вывод полученного значения в специальную метку формы.
Рис. 17. Включение режима низкой безопасности
Технология выполнения
1. Активизируйте приложение Word, сохраните документ под именем Case.
2. Перейдите в редактор VBA и создайте форму (рис. 18).
3. Пропишите обработчик кнопки «Результат».
Dim a, b, c, d As IntegerPrivate Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
Select Case a
Case 5
d = b + c
Label4.Caption = «Результат: d=» & d
Case 0
d = b c
Label4.Caption = «Результат: d=» & d
Case 10
d = b * c
Label4.Caption = «Результат: d=» & d
Case Else
Label4.Caption = «Введено не то значение»
End Select
End Sub
Для того чтобы программа работала корректно, необходимо перевести все текстовые значения, которые вводятся в текстовые поля, в числовые. Для этого прописывают в коде преобразование: a = Val(TextBox1.Text) и т. д. После чего программа уже работает с числовыми значениями.
Если программа в итоге выдает значение одного типа (числовое или строковое), то строку вывода результата можно прописывать по окончании всего блока Case. В данном примере сначала выводятся числовые значения (d), а затем строковое («Введено не то значение»). Поэтому вывод результата необходимо предусмотреть в каждой ветке Case.
Результаты работы показаны на рис. 19.
Пример 6. Создать программу, которая, используя пользовательское диалоговое окно (форму), выполняет следующие действия: при вводе трех переменных в текстовые поля она считывает данные и сравнивает с первой переменной а. Результат выдается в метку на форме (рис. 20).
Рис. 19. Некоторые
результаты работы формы примера 5
Рис. 20. Форма примера 6 в режиме конструктора и в рабочем состоянии
Листинг примера 6
Private Sub CommandButton1_Click()Пример 7.Dim a, b, c As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a > b And a > c Then
Label1.Caption = «Значение а > b и a >c»
Else
Label1.Caption = «Значение а не всегда больше b и с» End If End Sub
Рис. 21. Форма примера 7 в режиме конструктора и в рабочем состоянии
Листинг примера 7
Dim a As VariantDim b As Integer
Dim c As Integer
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
For i = 1 To 12 Step 5
b = a + i
c = a + b
Next i
Label1.Caption = a & "+" & b & "=" & c
End Sub