ВБА логички оператери: И, ИЛИ, НЕ
Екцел ВБА логички оператери
Рецимо да желите да обрадите поруџбину купца. За то прво желите да проверите да ли наручени производ постоји или не. Ако се догоди, такође желите да проверите да ли је количина у руци довољна. Логички оператери добро дођу у таквим случајевима. Логички оператори се користе за процену више услова.
Главни Екцел ВБА логички оператори И, ИЛИ, НЕ наведени су у доњој табели:
С / Н | Оператор | Опис | Пример | Оутпут |
1 | И | И: Ово се користи за комбиновање више од једног услова. Ако су сви услови тачни, И оцењује као тачно. Ако је неки од услова нетачан, И оцењује као нетачно | Ако је тачно = тачно И нетачно = тачно ОНДА | лажно |
2 | ИЛИ | ИЛИ: Ово се користи за комбиновање више од једног услова. Ако се неки од услова процијени на тачно, ИЛИ враћа тачно. Ако су сви нетачни, ИЛИ враћа фалсе | Ако је тачно = тачно ИЛИ тачно = нетачно ОНДА | истинито |
3 | НЕ | НАПОМЕНА: Овај ради као инверзна функција. Ако је услов тачан, враћа фалсе, а ако је услов нетачан, враћа труе. | Ако НЕ (тачно) Онда | лажно |
Пример изворног кода ВБА логичких оператора
Ради једноставности упоредићемо тврдо кодиране бројеве.
Додајте АцтивеКс дугмад на лист из опције „Уметни“.
Поставите својства као што је приказано на слици испод

Следећа табела приказује својства која треба да промените и вредности које такође треба да ажурирате.
С / Н | Контрола | Својство | Вредност |
1 | ЦоммандБуттон1 | Име | бтнАНД |
Наслов | И Оператор (0 = 0) | ||
2 | ЦоммандБуттон2 | Име | бтнОР |
Наслов | ИЛИ Оператор (1 = 1) Или (5 = 0) | ||
3 | ЦоммандБуттон3 | Име | бтнНОТ |
Наслов | НОТ Оператор Нот (0 =) |
Додајте следећи код у бтнАНД_Цлицк
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
ВБА Ако И Оператор
- „Ако (1 = 1) И (0 = 0) Тада“ израз иф користи логички оператор АНД да комбинује два услова (1 = 1) Анд (0 = 0). Ако су оба услова тачна, извршава се код изнад кључне речи 'Елсе'. Ако оба услова нису тачна, извршава се код испод кључне речи 'Елсе'.
Додајте следећи код у бтнОР_Цлицк
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
ВБА Ако ИЛИ Оператор
- „Ако (1 = 1) Или (5 = 0) Тада“ израз иф користи логички оператор ИЛИ да комбинује два услова (1 = 1) И (5 = 0). Ако је било који од услова тачан, извршава се код изнад кључне речи Елсе. Ако су оба услова нетачна, извршава се код испод кључне речи Елсе.
Додајте следећи код у бтнНОТ_Цлицк
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
ВБА ако НЕ оператер
- „Иф Нот (0 = 0) тхен“ ВБА Иф Нот функција користи логички оператор НОТ да поништи резултат услова наредбе иф. Ако су услови тачни, извршава се код испод кључне речи 'Елсе'. Ако је услов тачан, извршава се код изнад кључне речи Елсе.
Преузмите Екцел који садржи горњи код