Логічні оператори VBA: І, АБО, НІ
Логічні оператори Excel VBA
Скажімо, ви хочете обробити замовлення клієнта. Для цього спочатку потрібно перевірити, чи існує замовлений товар чи ні. Якщо це так, ви також хочете перевірити, чи достатньо наявної кількості. У таких випадках логічні оператори дуже до речі. Логічні оператори використовуються для оцінки більш ніж однієї умови.
Основні логічні оператори Excel VBA І, АБО, НЕ перелічені в таблиці нижче:
| S / N | Оператор | Опис | Приклад | Вихідні дані |
| 1 | І | І: Це використовується для поєднання більш ніж однієї умови. Якщо всі умови відповідають дійсності, І оцінює як істинні. Якщо будь-яка умова хибна, І оцінює як хибну | Якщо true = true І false = true ПОТОМИ | помилковий |
| 2 | АБО | АБО: Це використовується для поєднання більш ніж однієї умови. Якщо будь-яка з умов має значення true, АБО повертає true. Якщо всі вони хибні, АБО повертає false | Якщо істина = істина АБО істина = помилка ТОГО | правда |
| 3 | НЕ | ПРИМІТКА: Цей працює як обернена функція. Якщо умова істинна, вона повертає 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 If OR Operator
- "Якщо (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, що містить код вище