Операторы сравнения Excel VBA

VBA в Excel расшифровывается как Visual Basic for Applications, который является языком программирования Microsoft. Для оптимизации производительности и сокращения времени работы в Excel нам нужны макросы, а VBA — это инструмент, используемый в серверной части.

Реализация

На вкладках Microsoft Excel выберите вкладку Разработчик. Изначально вкладка разработчик может быть недоступна.

Вкладку Разработчик можно легко включить с помощью двухэтапного процесса :

  • Щелкните правой кнопкой мыши на любой из существующих вкладок в верхней части окна Excel.
  • Теперь выберите Настроить ленту во всплывающем меню.

  • В окне параметров Excel установите флажок Разработчик, чтобы включить его, и нажмите «ОК».

  • Теперь видна вкладка разработчика.

  • Теперь нажмите на опцию Visual Basic на вкладке Разработчик и создайте новый модуль для написания программы.

Developer -> Visual Basic -> Tools -> Macros
Теперь создайте макрос и дайте ему любое подходящее имя.

Откроется окно редактора, в котором можно написать код.

Операторы сравнения в Excel

S.No . Операторы Определение
1 <>  Для сравнения двух операндов используется оператор Не равно. Если два операнда

не равны, это возвращает TRUE, иначе это возвращает FALSE.

Например : A=10, B= 20

Условие будет ВЫПОЛНЕНО для A <> B, поскольку A и B не равны.

2 =  Для сравнения двух операндов используется оператор Equal. Если два операнда

равны, это возвращает TRUE, иначе это возвращает FALSE.

Например : A=20, B= 20

Условие будет ВЫПОЛНЕНО для A = B, поскольку A и B равны.

3 > Операторбольше проверяет, является ли операнд в левой части строго

больше, чем операнд в RHS. Если больше, то возвращается значение TRUE, иначе FALSE.

Например : A=10, B= 5

Условие будет ВЫПОЛНЕНО для A > B, поскольку A больше B.

4 < Оператор меньше проверяет, является ли операнд в левой части строго

меньше, чем операнд в RHS. Если больше, то возвращается значение TRUE, иначе FALSE.

Например : A=10, B= 5

Условие будет ЛОЖНЫМ для A < B, поскольку A больше B.

5 >= Оператор больше, чем равно проверяет, является ли операнд в левой части либо

больше или равно операнду в RHS. Если больше или равно, то возвращается значение TRUE, иначе FALSE.

Например : A=10, B=10

Условие будет ВЫПОЛНЕНО для A >= B, поскольку A равно B.

6 <= Оператор меньше, чем равно проверяет, является ли операнд в левой части либо

меньше или равно операнду в RHS. Если меньше или равно, то возвращается значение TRUE, иначе FALSE.

Например : A=5, B= 10

Условие будет ВЫПОЛНЕНО для A <= B, поскольку A меньше B.

Операторы сравнения в основном используются с оператором If Else Then в Excel, потому что операторы сравнения возвращают значение TRUE, если условие выполнено, и значение FALSE, если нет.

Синтаксис If Else в Excel является :

If condition/expression Then
Code Block for True
Else
Code Block for False
End If

Давайте возьмем пример, где значения A = -1 и B =-5 и посмотрим код в Excel VBA для всех операторов сравнения.

1. Равно и не равно

Sub Comparison_Operator_Demo()
'Entering the numbers
Dim A As Integer: A = -1
Dim B As Integer: B = -5
'Condition for Equal To
If A = B Then
MsgBox " A and B are equal"
Else
MsgBox " A and B are not equal"
End If
End Sub

В приведенном выше коде, если условие становится ЛОЖНЫМ, поскольку значения A и B не совпадают. Таким образом, будет выполнен блок кода внутри Else.

Sub Comparison_Operator_Demo()
'Entering the numbers
Dim A As Integer: A = -1
Dim B As Integer: B = -5
'Condition for Not Equal To
If A <> B Then
MsgBox " True since A and B are not same"
Else
MsgBox " False since A and B are same"
End If
End Sub

В приведенном выше коде условие If становится ИСТИННЫМ , поскольку A и B не совпадают. Таким образом, будет выполнен блок кода внутри If.

2. Больше или меньше оператора :

Sub Comparison_Operator_Demo()
'Entering the numbers
Dim A As Integer: A = -1
Dim B As Integer: B = -5
'Condition for Greater Than
If A > B Then
MsgBox " A is greater than B"
Else
MsgBox " A is not greater than B"
End If
End Sub

В приведенном выше коде условие If становится ИСТИННЫМ, поскольку A больше B. Таким образом, будет выполнен блок кода внутри If.

Sub Comparison_Operator_Demo()
'Entering the numbers
Dim A As Integer: A = -1
Dim B As Integer: B = -5
'Condition for Less Than
If A < B Then
MsgBox "True because A is less than B"
Else
MsgBox "False because A is greater than B"
End If
End Sub

В приведенном выше коде, если условие становится ЛОЖНЫМ, поскольку A больше B. Таким образом, блок кода внутри Else будет выполнен.

Аналогично, вы можете выполнить для операторов, которые больше, чем равны, и меньше, чем равны.

Автор А. Днепров

Обучаю основам работы с офисными программами.

Операторы сравнения Excel VBA
Не удается корректно запустить приложение Office — ошибка 0xc0000142