VBA logički operateri: I, ILI, NE, AKO NE u programu Excel VBA

Sadržaj:

Anonim

VBA logički operateri: I, ILI, NE

Logički operateri programa Excel VBA

Recimo da želite obraditi narudžbu kupca. Za to prvo želite provjeriti postoji li naručeni proizvod ili ne. Ako se dogodi, također želite provjeriti je li količina u ruci dovoljna. Logični operateri dobro dođu u takvim slučajevima. Logički operatori koriste se za procjenu više od jednog uvjeta.

Glavni Excel VBA logički operatori I, ILI, NE navedeni su u donjoj tablici:

S N Operater Opis Primjer Izlaz
1 I I: Ovo se koristi za kombiniranje više od jednog stanja. Ako su svi uvjeti istiniti, I procjenjuje na istinite. Ako je neki od uvjeta netačan, I procjenjuje na netačno Ako je true = true I false = true ONDA lažno
2 ILI ILI: Koristi se za kombiniranje više od jednog stanja. Ako se bilo koji od uvjeta ocijeni istinitim, ILI vraća true. Ako su svi lažni, ILI vraća false Ako je true = true ILI true = false ONDA pravi
3 NE NAPOMENA: Ovaj radi poput inverzne funkcije. Ako je uvjet istinit, vraća false, a ako je uvjet netačan, vraća true. Ako NE (istina) Tada lažno

Primjer izvornog koda VBA logičkih operatora

Radi jednostavnosti usporedit ćemo tvrdo kodirane brojeve.

Dodajte ActiveX gumbe na list iz opcije "Umetni".

Postavite svojstva kao što je prikazano na donjoj slici

VBA logički operateri

Sljedeća tablica prikazuje svojstva koja trebate promijeniti i vrijednosti koje također trebate ažurirati.

S N Kontrolirati Vlasništvo Vrijednost
1 CommandButton1 Ime btnAND
Naslov I Operator (0 = 0)
2 CommandButton2 Ime btnOR
Naslov ILI Operator (1 = 1) Ili (5 = 0)
3 CommandButton3 Ime btnNIJE
Naslov NE Operator Nije (0 =)

Dodajte sljedeći kod u 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 Ako I Operator

  • "Ako (1 = 1) I (0 = 0) Tada" izraz if koristi logički operator AND da kombinira dva uvjeta (1 = 1) And (0 = 0). Ako su oba uvjeta istinita, izvršava se kod iznad ključne riječi 'Else'. Ako oba uvjeta nisu istinita, izvršava se kod ispod ključne riječi 'Else'.

Dodajte sljedeći kod u 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 Ako ILI Operator

  • "Ako (1 = 1) Ili (5 = 0) Tada" izraz if koristi logički operator OR da kombinira dva uvjeta (1 = 1) I (5 = 0). Ako je bilo koji od uvjeta istinit, izvršava se kod iznad ključne riječi Else. Ako su oba uvjeta netačna, izvršava se kod ispod ključne riječi Else.

Dodajte sljedeći kod u 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 ako NE operator

  • "If Not (0 = 0) then" VBA If Not funkcija koristi logički operator NOT da negira rezultat uvjeta if. Ako su uvjeti istiniti, izvršava se kod ispod ključne riječi 'Else'. Ako je uvjet istinit, izvršava se kod iznad ključne riječi Else.

Preuzmite Excel koji sadrži gornji kod