1.2.6. Операции с логическими переменными
Переменные логического типа могут принимать только два значения: True (истина) и False (ложь).
Пример программы с использованием логической переменной:
Sub Logic()
Dim lg As Boolean
lg = True
MsgBox lg
End Sub
В данном примере объявляется логическая переменная lg. Затем ей в операторе присваивания присваивается значение "истина". Процедура MsgBox lg выводит на экран значение логической переменной lg.
Логические выражения и применение логических переменных будет более подробно рассмотрено в разделе условных операторов.
1.2.7. Пользовательский тип данных
Наряду с массивами, представляющими нумерованный набор элементов одного типа, существует ещё один способ создания структурного типа – тип, определённый пользователем. Такой тип данных содержит несколько полей различных типов. Отдельный элемент записи называется полем. Объявление структуры может находиться только в модуле и имеет следующий вид:
Type ИмяТипа
ИмяПоля1 As ТипДанных1
ИмяПоля2 As ТипДанных2
….
ИмяПоляN As ТипДанныхN
End Type
Размещается оно вне всех программ выше той программы, в которой будет применён этот тип. Перед словом Type может находиться слово Private (в этом случае тип будет доступен во всех модулях всех проектов) или Public (в этом случае тип будет доступен только в данном модуле). Обращение к элементу переменной пользовательского типа применяется также как и простые переменные и выглядит следующим образом:
ИмяПеременнойПользовательскогоТипа.ИмяПоля
Если в типе присутствует динамический массив, то он должен быть распределён перед его использованием:
Когда использование переменных пользовательского типа делает программу более громоздкой и трудночитаемой, целесообразно воспользоваться оператором With… End With:
With ИмяПеременнойВашегоТипаИлиОбъекта
…
Операторы
…
End With
Он позволяет в операторах, использующих переменные пользовательского типа, не указывать их имена, а применять краткое обращение, состоящее из точки и имени поля:
.ИмяПоля вместо ИмяПеременной.ИмяПоля
Тот же пример, но уже с использованием оператора With:
Аналогичным образом этот оператор используется при работе с полями объектов, которые вы изучите в следующих лабораторных работах. Следующие две программы демонстрируют сокращение записи благодаря оператору With. Первая из них заполняет блок ячеек рабочего листа числами 30, обрамляет их и закрашивает жёлтым цветом. Вторая выводит в ячейку результат выражения и задаёт для него параметры шрифта
1.2.8. Константы
В случае, когда в программе некоторая величина, встречающаяся во многих выражениях, не изменяет своего значения, удобно использовать константы. Вместо конкретного значения в выражениях подставляется имя константы.
Константы, в отличие от переменных, не могут изменять свои значения. Объявляется константа следующим образом:
Const ИмяКонстанты As Тип = Значение
где ИмяКонстанты – идентификатор, удовлетворяющий правилам задания имён в VBA;
Тип – любой встроенный тип VBA;
Значение – это число, строка, логическое значение или выражение, возвращающее результат соответствующего типа
Например:
Const Rate As Single = 0.2
Const St As String = “Это - строка”
Const L As Boolean = .true.
Попытка присвоить константе какое-нибудь значение вызовет сообщение об ошибке.
Пример программы с использованием константы:
Function Exersise()
Dim Ex As Single ' объявляется переменная Ex вещественного типа
Const T As Integer = 8 ' создаётся константа Т со значением 8
Ex = T*F ' переменной Ex присваивается значение произведения
MsgBox Ex ' значение Ex выводится в диалоговое окно
End Function