Логически оператори на VBA: И, ИЛИ, НЕ
Логически оператори на Excel VBA
Да предположим, че искате да обработите поръчка на клиент. За това първо трябва да проверите дали поръчаният продукт съществува или не. Ако го направи, вие също искате да проверите дали наличното количество е достатъчно. Логическите оператори са полезни в такива случаи. Логическите оператори се използват за оценка на повече от едно условие.
Основните логически оператори на Excel VBA И, ИЛИ, НЕ са изброени в таблицата по-долу:
| S / N | Оператор | Описание | Пример | Изход |
| 1 | И | И: Това се използва за комбиниране на повече от едно условие. Ако всички условия са верни, И оценява на true. Ако някое от условията е невярно, И оценява на false | Ако е вярно = вярно И невярно = вярно ТОГАВА | невярно |
| 2 | ИЛИ | ИЛИ: Това се използва за комбиниране на повече от едно условие. Ако някое от условията оцени като true, ИЛИ връща true. Ако всички те са неверни, ИЛИ връща false | Ако е вярно = вярно ИЛИ вярно = невярно ТОГАВА | вярно |
| 3 | НЕ | ЗАБЕЛЕЖКА: Тази работи като обратна функция. Ако условието е вярно, то връща false, а ако условието е false, връща true. | Ако НЕ (вярно) Тогава | невярно |
Пример за изходен код на логически оператори на VBA
За по-голяма простота ще сравняваме твърдо кодирани числа.
Добавете бутоните ActiveX към листа от „Опция за вмъкване“.
Задайте свойствата, както е показано на изображението по-долу
Следващата таблица показва свойствата, които трябва да промените, и стойностите, които също трябва да актуализирате.
| S / N | Контрол | Имот | Стойност |
| 1 | CommandButton1 | Име | btnAND |
| Надпис | И Оператор (0 = 0) | ||
| 2 | CommandButton2 | Име | btnOR |
| Надпис | ИЛИ Оператор (1 = 1) Или (5 = 0) | ||
| 3 | CommandButton3 | Име | btnНЕ |
| Надпис | НЕ Оператор Не (0 =) |
Добавете следния код към btnAND_Click
Private Sub btnAND_Click()If (1 = 1) And (0 = 0) ThenMsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"ElseMsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"End IfEnd Sub
VBA Ако И Оператор
- "Ако (1 = 1) И (0 = 0) Тогава" операторът if използва логическия оператор И, за да комбинира две условия (1 = 1) И (0 = 0). Ако и двете условия са верни, кодът над ключовата дума „Else“ се изпълнява. Ако и двете условия не са верни, се изпълнява кодът под ключовата дума „Else“.
Добавете следния код към btnOR_Click
Private Sub btnOR_Click()If (1 = 1) Or (5 = 0) ThenMsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"ElseMsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"End IfEnd Sub
VBA Ако ИЛИ Оператор
- "Ако (1 = 1) Или (5 = 0) Тогава" операторът if използва логическия оператор ИЛИ, за да комбинира две условия (1 = 1) И (5 = 0). Ако някое от условията е вярно, кодът над ключовата дума Else се изпълнява. Ако и двете условия са неверни, кодът под ключовата дума Else се изпълнява.
Добавете следния код към btnNOT_Click
Private Sub btnNOT_Click()If Not (0 = 0) ThenMsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"ElseMsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"End IfEnd Sub
VBA, ако НЕ е оператор
- "Ако не (0 = 0), тогава" функцията VBA, ако не използва логическия оператор NOT, за да отмени резултата от условието if оператор. Ако условията са верни, кодът под ключовата дума „Else“ се изпълнява. Ако условието е вярно, кодът над ключовата дума Else се изпълнява.
Изтеглете Excel, съдържащ горния код