| Оператор | Синтаксис | Описание |
| AND | A AND B | Конъюнкция: Если А и В имеют значение True, то - True. Иначе - False |
| OR | A OR B | Дизъюнкция: Если любой из операндов имеет значение True, то - True. Иначе - False |
| NOT | NOT A | Отрицание: Если А имеет значение False, то - True. Иначе - False |
| XOR | A XOR B | Исключение: Если А имеет значение True или В имеет значение True, то - True. Иначе - False |
| EQV | A EQV B | Эквивалентность: Если А имеет такое же значение что и В, то - True. Иначе - False |
| IMP | A IMP B | Импликация: Если А имеет значение True и В имеет значение False, то - False. Иначе - True |
В качестве операнда для логического оператора можно использовать любое действительное выражение, имеющее результат типа Boolean, а также число, которое может быть преобразовано в значение типа Boolean.
Результатом логической операции является значение типа Boolean (или Null, если хотя бы один из операндов имеет значение Null).
Логический оператор AND
Синтаксис:
Операнд_1 AND Операнд_2
Оператор AND выполняет логическую конъюнкцию .
Результатом данной операции является значение True, только когда оба операнда имеют значение True, иначе - False.
Таблица истинности
Оператор AND можно использовать для нескольких операндов:
(5 3) AND (5=6) результатом будет False
Независимо от количества операндов результатом логической операции AND будет True только в том случае, когда все операнды выражения будут иметь значение True. В любом другом случае результатом будет False. Обратите внимание, что операнды заключаются в круглые скобки. VBA сначала вычисляет значение каждого операнда внутри скобок, а затем уже все выражение полностью.
Логический оператор OR
Синтаксис:
Операнд_1 OR Операнд_2
Оператор OR выполняет логическую дизъюнкцию .
Результатом данной операции является значение True, если хотя бы один из операндов имеет значение True, иначе - False.
Таблица истинности
Оператор OR можно использовать для нескольких операндов:
(5 3) OR (5=6) результатом будет True
Независимо от количества операндов результатом логической операции OR будет всегда True в том случае, если хотя бы один из операндов выражения будет иметь значение True. Иначе результатом будет False.
Операторы AND и OR можно комбинировать:
((5 3)) OR (5=6) результатом будет True
Логический оператор NOT
Синтаксис:
NOT Операнд
Оператор NOT выполняет логическое отрицание .
Оператор NOT использует только один операнд.
Таблица истинности
Операторы AND OR NOT можно комбинировать:
((5 3)) OR NOT (5=6) результатом будет True
Логический оператор XOR
Синтаксис:
Операнд_1 XOR Операнд_2
Оператор XOR выполняет логическое исключение .
Результатом данной операции является значение True, если операнды имеют разные значения, иначе - False.
Таблица истинности
((5 3)) OR NOT (5=6) XOR (5=5) результатом будет False
Логический оператор EQV
Синтаксис:
Операнд_1 EQV Операнд_2
Оператор EQV - это оператор логической эквивалентности .
Результатом данной операции является значение True, если операнды имеют одинаковые значения, иначе - False.
Таблица истинности
((5 3)) OR NOT (5=6) EQV (5=5) результатом будет True
Логический оператор IMP
Синтаксис:
Операнд_1 IMP Операнд_2
Оператор IMP выполняет логическую операцию импликации .
Таблица истинности
((5 3)) OR NOT (5=6) IMP (5=5) результатом будет True
Логический оператор IMP наименее интуитивно понятный из всех логических операторов. К счастью, необходимость в его применении возникает довольно редко.
Программа на VBA – это последовательность операторов.
При составлении программ следует придерживаться ряда соглашений. Так, на одной строке можно разместить несколько операторов. Между операторами в одной строке ставится двоеточие.
Любую строку можно разбить на две, расположив в конце первой знаки символов «Пробел» + «Знак подчеркивания» (_), в этом случае вторая строка будет считаться продолжением первой.
Для того, чтобы сделать программу легко читаемой используют комментарии. В языке VBA существуют два способа ввода комментариев: применение апострофа (‘), который можно поставить в любом месте строки, и зарезервированное слово Rem вместо апострофа.
1. Оператор Dim предназначен для объявления типов переменных.
· Dim A As Integer – переменная A объявляется как целое, т.е. в ней будут храниться только целые величины .
· Dim D As Date – объявляется переменная D для хранения дат.
· Dim Фамилия, Наименование As String – объявлютсяпеременные. Фамилия и Наименование, предназначеные для хранения текста.
· Dim B(12) As Integer – объявляется одномерный массив (вектор), состоящий из 12 целых чисел, причем по умолчанию первый элемент массива будет B(0), а последний B(12).
· Dim B(3,3) As Single – объявляется двумерный массив 3х3 (матрица), состоящий из действительных чисел.
Если не указан тип переменной, то по умолчанию используется тип Variant. Однако указание конкретного типа переменной делает программу надежнее и убыстряет ее работу, т.к. VBA не требуется тратить время на распознавание необъявленной переменной при каждом обращении к ней.
Если размер массива M заранее не известен и определяется в ходе программы, то при описании массива число элементов не указывается, и массив определяется так:
Dim M() As Integer
После определения числа элементов массива, например, N, необходимо записать оператор
2. Оператор присваивания предназначен для присваивания переменной какого-либо значения.
Синтаксис:
Переменная (или свойство объекта) = выражение.
· а=5 – переменной А присвоить значение 5 ;
· b=«Менеджер» – переменной b присвоить значение «Менеджер» ;
· Адрес=Sheets("Организации").Cells(2,2) – переменной Адрес присвоить содержимое ячейки B2, которая находится на листе Организации в текущей рабочей книге;
· Фамилия=UserForm1.TextBox1.Text – переменнойФамилия присвоить содержимое поля TextBox1 пользовательской формы UserForm1.
3. Оператор With/End with избавляет программиста от большого количества повторений имени одного и того же объекта.
Синтаксис:
With объект
оператор1
оператор2
операторN
Например, вместо последовательности операторов
UserForm1.TextBox1.Text = Date
UserForm1.TextBox2.Text = “ “
UserForm1.ComboBox1.Text = “ “
можно записать так
TextBox1.Text = Date
. TextBox2.Text = “ “
. ComboBox1.Text = “ “
REM На листе Лист1 в столбце А, начиная со второй строки, записаны ‘тарифы сотрудников. Заполним поле со списком ComboBox1 в ‘пользовательской форме UserForm1
‘Первая строка программы – на листе Лист1 в столбце А ‘подсчитывается количество заполненных ячеек, результат ‘присваивается переменной N
N=Application.CountA(Sheets(“Лист1”).Range(“A:A”)).
D=”A2:A”&Cint(N)
Sheets(“Лист1”).Range(D).Name=”Тарифы”
TextBox1.Text = Date
. TextBox2.Text = “ “
. ComboBox1.Text = “ “
. ComboBox1.Rowsource = “Тарифы “
4. Условный оператор If/Then/Else – позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие
Синтаксис:
If условие Then операторы1 [Else операторы2]
Если условие истинно, то выполняются операторы1, в противном случае выполняются операторы2.
Допускается также использование сложного условного оператора, который записывается в виде блока:
If условие1 Then
операторы1
ElseIf условие2 Then
Обычно операции сравнения используются в операторах организации циклов для принятия какого-либо решения о дальнейшем ходе выполнения операций.
Результатом любой операции сравнения является значение типа Boolean: True, False.
Если оба операнда в выражении сравнения имеют один и тот же тип данных, VBA выполняет простое сравнение для этого типа.
Если оба операнда в выражении сравнения имеют определенные типы и эти типы не являются совместимыми, VBA выдает сообщение об ошибке несовпадения типов.
Если один или оба операнда в выражении сравнения являются переменными типа Variant, VBA пытается преобразовать тип Variant в какой-либо совместимый тип.
Сравнение строк
При сравнении строк операторами отношения, VBA сравнивает каждую строку слева направо посимвольно.
В VBA одна строка равна другой только, когда обе строки содержат точно такие же символы в точно таком же порядке и обе строки имеют одну и ту же длину. Например, строки "абвгд" "абвгд " " абвгд" не равны между собой, т.к. VBA не игнорирует начальные или конечные символы пробела при сравнении строк.
Следует быть внимательным при сравнении строк переменной длины.
Двоичное и текстовое сравнение строк
Для сохранения текста компьютер использует схему, в которой каждый отображаемый символ имеет уникальный номер. Все буквы алфавита имеют свои уникальные номера. Обычно буквы верхнего регистра имеют меньшие номера, чем буквы нижнего регистра. Число, соответствующее определенной букве или символу, называется кодом символа .
При выполнении двоичного сравнения строковой информации VBA использует бинарный эквивалент числа для каждого символа. Такой метод сравнения называется двоичным или бинарным и является методом сравнения по умолчанию.
Т.к. буквы верхнего регистра имеют меньшие двоичные номера, буквы верхнего регистра располагаются в алфавитном порядке перед буквами нижнего регистра. Поэтому при двоичном сравнении строк, строка "АБВ" будем меньше строки "абв".
При текстовом сравнении строк VBA не использует двоичный эквивалент символов, и не "различает" верхнего и нижнего регистра. В текстовом сравнении строка "абв" равна строке "АБВ".
Для выбора метода сравнения строк используется директива Option Compare
Option Compare
Данная директива должна находиться в области объявления модуля.
Конкатенация строк
Присоединение одной строки к другой называется конкатенацией строк .
Конкатенацию строк обычно используют для формирования строк из различных источников в процедуре, чтобы создавать сообщение для вывода на экран. В VBA имеется два оператора для конкатенации строк.
Оператор конкатенации (&)
Оператор (&)в VBA используется только для конкатенации строк.
Синтаксис
Операнд_1 & Операнд_2 [& Операнд_3..]
Операнд_N - любое допустимое строковое или численное выражение (которое преобразуется в строковое).
Тип данных результата конкатенации строк - String.
Если операнд в выражении конкатенации строк имеет значение Empty или Null, VBA интерпретирует этот операнд как строку нулевой длины (строка не содержащая символов).
Обратите внимание! Символ (&) операции конкатенации обязательно необходимо отделять пробелом от имени переменной, т.к. в противном случае VBA может интерпретировать этот символ как символ определения типа Long.
Оператор сложения в конкатенации строк
Для конкатенации строк можно также использовать оператор (+).
Этот оператор имеет такой же синтаксис и требования, как и оператор (&). Однако следует понимать, что в VBA основное предназначение оператора (+) - это арифметическое сложение. Поэтому, чтобы избежать двусмысленности чтения программного кода, для конкатенации строк настоятельно рекомендуется использовать именно оператор (&).
Приоритеты выполнения операций
Многие из выражений в программной коде являются сложными (составными), т.е. состоят из двух или более выражений.
При вычислении сложных выражений VBA следует следующим правилам:
- Части выражения, заключенные в круглые скобки, всегда вычисляются в первую очередь;
- Конкретные операции выполняются в зависимости от иерархии операторов (таблица ниже);
- При равенстве иерархии операторов, они вычисляются слева направо.
| Оператор |
Инструкции (или операторы) языка – это программные единицы, выполняющие какие-то действия или описывающие данные.
В состав оператора входят одно или несколько ключевых слов, а также, возможно, параметры. Несколько операторов, расположенных в одной программной строке, отделяются друг от друга двоеточием. Если оператор слишком длинный, можно разбить его на несколько строк, используя для переноса символ подчеркивания _.
О ператор присвоения
Оператор присвоения используется для присвоения нового значения переменной в ходе выполнения программы. Знак присвоения «=».
Например , оператор:
x = Sqr(5 + Tan(1.8) ^ 2)
присваивает переменной х значение выражения . В результате вычисления выражения, записанного в правой части, получим вещественное число. Но значение, которое будет присвоено переменной х, зависит от того, как был описан тип этой переменной. Так, если переменная х имеет тип Single, ей будет присвоен результат 4,834464 , если Double, то 4,83446368725481, а если Integer, то 5.
Тип данных переменной х должен быть совместим с типом данных этого выражения. Кроме неявного преобразования из одного типа в другой при присвоении, в языке Visual Basic предусмотрена возможность преобразования типов с помощью функций. Например, функция CDbl преобразует данные к типу Double, CInt – к типу Integer, Clng – к типу Long, CSng – к типу Single, CStr – к типу String и т. д.
Функции CInt и Clng выполняют округление результата. При этом если дробная часть числа равна 0,5, округление производится до ближайшего четного числа.
Оператор присвоения позволяет не только присвоить значение переменной, но и задать значения свойств объектов VBA. Например, оператор
Rows("1:1").Font. Bold = True
делает полужирным шрифт в первой строке рабочего листа.
ПЕРЕНОС СТРОКИ
Комбинация <Пробел> + <Знак подчеркивания> в конце строки обеспечивает то, что последующая строка является продолжением предыдущей. При этом надо помнить что:
§ Нельзя разбивать переносом строковые константы
§ Допустимо не более семи продолжений одной и той же строки
§ Сама строка не может содержать более 1024 символов
Пример.
Некорректный перенос Корректный перенос
Строка = "Visual Basic for _ Строка = "Visual Basic" _
Applications" & "for Applications "
КОММЕНТАРИИ
Текст, следующий в программе за символом (") вплоть до конца строки игнорируется компилятором и является комментарием. С помощью комментариев добавляются пояснения и описания к программе. Комментарии полезны при отладке программы: они позволяют временно отключить строки программы при отладке.
Условный оператор
Условный оператор выполняет определенные инструкции (операторы) в зависимости от значения выражения условия. Блок-схема проверки условия имеет вид:
Рис. 1. Ветвление может быть неполным (такую структуру называют еще обход).
Рис. 2. Условный оператор имеет две формы синтаксиса: строчную и блочную.
Строчная форма
If условие Then [операторы_если_истина ]
Алгоритм, представленный на рис. 1, в строчной форме будет записан в виде
If условие Then операторы_если_истина Else операторы_если_ложь
Рисунку 2 соответствует запись
If условие Then операторы_если_истина
Рисунку 3 соответствует запись
If условие Then Else операторы_если_ложь
Блочная форма
If условие-1 Then
[операторы_если условие–1_истина ]
[операторы_если_ все_условия_ложь ]]
Условия, перечисленные в частях If и ElseIf, представляют собой выражения отношения или логические выражения. При выполнении одного из условий выполняются инструкции, следующие за соответствующим ему ключевым словом Then, а остальные инструкции игнорируются (т. е. дальнейшие проверки не выполняются и управление передается оператору, следующему за End If). Если ни одно из логических условий не равно истине, то выполняются операторы_если_ все_предыдущие_условия_ложь , либо, если эта часть опущена, управление передается строке программы, следующей после условного оператора.
Блочная форма оператора If более предпочтительна, если:
При выполнении или невыполнении условия выполняется несколько операторов (строчную форму в этом случае тоже можно использовать, но строка будет слишком длинной, а программа – менее понятной);
Последовательно проверяется несколько условий, и при выполнении очередного условия проверять последующие условия нецелесообразно (для этого и используется ключевое слово ElseIf).
Пример
Фирма предоставляет скидки оптовым покупателям.
По известному объему заказа надо определить его стоимость.
Для вычисления стоимости заказа используем функцию:
Public Function Стоимость_заказа(Количество As Long) As Double
If Количество <= 999 Then
Стоимость_заказа = Количество * 5
ElseIf Количество <= 1999 Then
Стоимость_заказа = Количество * 4.8
Стоимость_заказа = Количество * 4.75
В данном случае можно было использовать и строчную форму оператора IF:
Public Function Стоимость_заказа1(Количество As Long) As Double
If Количество <= 999 Then Стоимость_заказа1 = Количество * 5
If Количество >= 1000 And Количество <= 1999 Then Стоимость_ заказа1 = Количество * 4.8
If Количество >= 2000 Then Стоимость_заказа1 = Количество * 4.75
Если не считать недостатками то, что строки длинноваты, и при любом объеме заказа последовательно выполняются все проверки (первая процедура при малых объемах заказа работает быстрее), то программа написана верно и, может быть, даже более наглядна.
Однако можно привести примеры, когда при выполнении (или невыполнении) одного из условий другие проверять просто нельзя.
Например , некоторые операторы должны выполняться при совместном выполнении условий: http://po-teme.com.ua/images/adIIIin/image014_e652e49476c6f0eb9cf40b68cc090828.gif" alt="" width="56" height="27 src=">. Если для проверки использовать оператор
If x>0 and y то при отрицательном значении х возникнет ошибка при вызове функции sqr (под корнем отрицательное число). Этой ошибки можно избежать, если использовать конструкцию If x > 0 Then If y < Sqr(x) Then В последней форме записи если есть ключевое слово Else, то оно относится к последнему оператору If. Оператор выбора
Select Case выражение
[инструкции_
else
]] Параметр выражение – любое числовое или строковое выражение. Вместо вычисления логического условия выполняется сравнение значения выражения с каждой из величин, заданных параметром список_выражений-
n
. Величины для сравнения, входящие в список_выражений-n
, могут быть заданы в виде: – значения; – диапазона значений в виде начальное_значение
To конечное_значение
; – выражения сравнения в виде Is оператор_сравнения значение
; – списка любых из перечисленных видов выражений (разделитель – запятая). В инструкции может быть произвольное число блоков Case. Если ни одно из условий не является истинным, то выполняются инструкции блока Case Else. Например, если условием является оценка выше тройки, то это условие можно записать: Case 4, 5 или Case Is >3 или Case Is >= 4 или Case 4 To 5. Примечание. Ключевое слово Is можно не вводить, оно добавится само. Пример
Рассмотренный выше пример с дисконтируемой ценой с помощью конструкции Select Case можно решить так: Public Function Стоимость_заказа2(Количество As Long) As Double Select Case Количество Стоимость_заказа2 = Количество * 5 Case 1000 To 1999 Стоимость_заказа2 = Количество * 4.8 Case Is >= 2000 Стоимость_заказа2 = Количество * 4.75 Синтаксис VBA позволяет «цепочки» операторов сравнения, но в целом эти конструкции следует избегать. Сравнение всегда выполняется слева направо только на 2 операндах за раз, и каждое сравнение приводит к Boolean . Например, выражение... A = 2: b = 1: c = 0
expr = a > b > c
Может быть прочитан в некоторых контекстах как проверка того, является ли b между a и c . В VBA это оценивается следующим образом: A = 2: b = 1: c = 0
expr = a > b > c
expr = (2 > 1) > 0
expr = True > 0
expr = -1 > 0 "CInt(True) = -1
expr = False
Любой оператор сравнения, кроме Is использоваться с Object в качестве операнда будет выполняться на возвращаемом значении Object «s члена по умолчанию . Если объект не имеет члена по умолчанию, сравнение приведет к ошибке времени выполнения 438 - «Объект не поддерживает его свойство или метод». Если Object не инициализирован, сравнение приведет к ошибке времени выполнения 91 - «Объектная переменная или С заблокированной переменной блока». Если литерал Nothing используется с любым оператором сравнения, отличным от Is , это приведет к ошибке компиляции - «Недопустимое использование объекта». Если Object по умолчанию Object является другой Object
, VBA будет постоянно вызывать элемент по умолчанию каждого последующего возвращаемого значения до тех пор, пока не будет возвращен примитивный тип или не будет поднята ошибка. Например, предположим, что у SomeClass есть член по умолчанию Value , который является экземпляром ChildClass с членом ChildValue по ChildValue . Сравнение... Set x = New SomeClass
Debug.Print x > 42
Будет оцениваться как: Set x = New SomeClass
Debug.Print x.Value.ChildValue > 42
Если либо операнд является числовым, а другой
операндом является String или Variant подтипа String , будет выполнено числовое сравнение. В этом случае, если String не может быть отнесено к числу, результатом сравнения будет ошибка времени выполнения 13 - «Несоответствие типа». Если оба
операнда представляют собой String или Variant подтипа String , сравнение строк будет выполняться на основе параметра сравнения параметров модуля кода. Эти сравнения выполняются по характеру по характеру. Обратите внимание, что символьное представление
String содержащей число, не
совпадает с сопоставлением числовых значений: Public Sub Example()
Dim left As Variant
Dim right As Variant
left = "42"
right = "5"
Debug.Print left > right "Prints False
Debug.Print Val(left) > Val(right) "Prints True
End Sub
По этой причине убедитесь, что переменные String или Variant передаются в числа перед выполнением численных сравнений неравенства. Если один из операндов - это Date , то числовое сравнение по базовому двойному значению будет выполняться, если другой операнд является числовым или может быть преобразован в числовой тип. Если другой операнд представляет собой String или Variant подтипа String который может быть перенесен в Date с использованием текущего языкового стандарта, String будет передана в Date . Если он не может быть применен к Date в текущей локали, результатом сравнения будет ошибка времени выполнения 13 - «Несоответствие типа». Следует соблюдать осторожность при сравнении значений Double или Single и Booleans . В отличие от других числовых типов ненулевые значения нельзя считать True из-за поведения VBA в продвижении типа данных сравнения с использованием числа с плавающей точкой в Double: Public Sub Example()
Dim Test As Double
Test = 42 Debug.Print CBool(Test) "Prints True.
"True is promoted to Double - Test is not cast to Boolean
Debug.Print Test = True "Prints False
"With explicit casts:
Debug.Print CBool(Test) = True "Prints True
Debug.Print CDbl(-1) = CDbl(True) "Prints True
End Sub
знак
название
Описание
=
Равно
Возвращает True если левый и правый операнды равны. Обратите внимание, что это перегрузка оператора присваивания.
<>
Не равен
Возвращает True если левый и правый операнды не равны.
>
Лучше чем
Возвращает True если левый операнд больше правого операнда.
<
Меньше, чем
Возвращает True если левый операнд меньше правого операнда.
>=
Больше или равно
Возвращает True если если левый операнд больше или равен правому операнду.
<=
Меньше или равно
Возвращает True если левый операнд меньше или равен правому операнду.
Is
Справочный капитал
Возвращает значение True если ссылка на левый объект - это тот же экземпляр, что и ссылка на правый объект. Он также может использоваться с Nothing (ссылка на нулевой объект) с обеих сторон. Примечание.
Оператор Is попытается принудить оба операнда к Object перед выполнением сравнения. Если какая-либо сторона является примитивным типом или
Variant , который не содержит объект (либо не-объектный подтип, либо vtEmpty), сравнение приведет к ошибке времени выполнения 424 - «Требуется объект». Если любой операнд принадлежит другому интерфейсу
одного и того же объекта, сравнение вернет True . Если вам нужно проверить справедливость как экземпляра, так и
интерфейса, ObjPtr(left) = ObjPtr(right) используйте ObjPtr(left) = ObjPtr(right) .
Заметки
