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 будет выполнен.
Аналогично, вы можете выполнить для операторов, которые больше, чем равны, и меньше, чем равны.
