VBA Logical Operaтори: І, АБО, НІ, ЯКЩО НІ в Excel VBA

VBA Logical Operaтори: І, АБО, НІ

Логічний Excel VBA Operaторс

Припустимо, ви хочете обробити замовлення клієнта. Для цього ви хочете спочатку перевірити, чи існує замовлений продукт чи ні. Якщо так, ви також хочете перевірити, чи достатньо наявної кількості. У таких випадках стають у пригоді логічні оператори. Логічні оператори використовуються для оцінки кількох умов.

Основні логічні оператори Excel VBA AND, OR, NOT перераховані в таблиці нижче:

S / N	Operaтор	Опис	Приклад	Вихід
1	І	І: використовується для поєднання кількох умов. Якщо всі умови істинні, AND оцінюється як істинне. Якщо будь-яка умова хибна, AND оцінюється як хибна	Якщо true = true AND false = true THEN	false
2	OR	АБО: використовується для поєднання кількох умов. Якщо будь-яка з умов має значення true, функція OR повертає значення true. Якщо всі вони false, OR повертає false	Якщо true = true АБО true = false THEN	правда
3	$NOT	НІ: Ця функція працює як зворотна функція. Якщо умова істинна, вона повертає false, а якщо умова хибна, повертає true.	Якщо НІ (вірно), тоді	false

VBA Logical Operators Приклад вихідного коду

Для простоти ми будемо порівнювати жорстко закодовані числа.

Додайте кнопки ActiveX на аркуш із пункту «Вставити».

Встановіть властивості, як показано на зображенні нижче

У наведеній нижче таблиці показано властивості, які потрібно змінити, а також значення, які потрібно оновити.

S / N	Контроль	властивість	значення
1	CommandButton1	ІМ'Я	btnAND
		Підпис	І Operator (0 = 0)
2	CommandButton2	ІМ'Я	btnOR
		Підпис	OR Operaтор (1 = 1) або (5 = 0)
3	CommandButton3	ІМ'Я	btnNOT
		Підпис	$NOT Operaтор Ні (0 = )

Додайте наступний код до btnAND_Click

Private Sub btnAND_Click()
    If (1 = 1) And (0 = 0) Then
            MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"
        Else
            MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"
    End If
End Sub

VBA Якщо І Operaтор

«Якщо (1 = 1) і (0 = 0) тоді» оператор if використовує логічний оператор AND для поєднання двох умов (1 = 1) і (0 = 0). Якщо обидві умови виконуються, виконується код над ключовим словом "Else". Якщо обидві умови не виконуються, виконується код під ключовим словом "Else".

Додайте наступний код до btnOR_Click

Private Sub btnOR_Click()
    If (1 = 1) Or (5 = 0) Then
            MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"
        Else
            MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"
    End If
End Sub

VBA Якщо АБО Operaтор

«Якщо (1 = 1) Або (5 = 0) Тоді» оператор if використовує логічний оператор АБО для об’єднання двох умов (1 = 1) і (5 = 0). Якщо будь-яка з умов виконується, код над ключовим словом Else виконується. Якщо обидві умови хибні, виконується код під ключовим словом Else.

Додайте наступний код до btnNOT_Click

Private Sub btnNOT_Click()
    If Not (0 = 0) Then
            MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"
        Else
            MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"
    End If
End Sub

VBA Якщо НІ Operaтор

«Якщо ні (0 = 0), тоді» функція VBA If Not використовує логічний оператор NOT, щоб заперечувати результат умови оператора if. Якщо умови виконуються, виконується код під ключовим словом "Else". Якщо умова виконується, код над ключовим словом Else виконується.

Завантажте Excel із кодом вище

Вам може сподобатися: