Operatori logici VBA: ȘI, SAU, NU
Operatori logici Excel VBA
Să presupunem că doriți să procesați o comandă de client. Pentru aceasta, doriți să verificați mai întâi dacă produsul comandat există sau nu. În caz contrar, doriți să verificați dacă cantitatea disponibilă este suficientă. Operatorii logici sunt la îndemână în astfel de cazuri. Operatorii logici sunt utilizați pentru a evalua mai multe condiții.
Principalii operatori logici Excel VBA ȘI, SAU, NU sunt enumerați în tabelul de mai jos:
| S / N | Operator | Descriere | Exemplu | Ieșire |
| 1 | ȘI | ȘI: Acesta este utilizat pentru a combina mai multe condiții. Dacă toate condițiile sunt adevărate, ȘI se evaluează la adevărat. Dacă oricare dintre condiții este falsă, ȘI se evaluează la fals | Dacă adevărat = adevărat ȘI fals = adevărat ATUNCI | fals |
| 2 | SAU | SAU: Aceasta este utilizată pentru a combina mai multe condiții. Dacă oricare dintre condiții devine adevărat, SAU returnează adevărat. Dacă toate sunt false, SAU returnează fals | Dacă adevărat = adevărat SAU adevărat = fals ATUNCI | Adevărat |
| 3 | NU | NU: Aceasta funcționează ca o funcție inversă. Dacă condiția este adevărată, ea returnează fals și, dacă o condiție este falsă, returnează adevărat. | Dacă NU (adevărat) Atunci | fals |
VBA Logical Operators Exemplu de cod sursă
Din motive de simplitate, vom compara numerele codate cu duritate.
Adăugați butoane ActiveX pe foaie din „Opțiunea Insert”.
Setați proprietățile așa cum se arată în imaginea de mai jos
Următorul tabel prezintă proprietățile pe care trebuie să le modificați și valorile pe care trebuie să le actualizați.
| S / N | Control | Proprietate | Valoare |
| 1 | Butonul Command1 | Nume | btnAND |
| Legendă | AND Operator (0 = 0) | ||
| 2 | Butonul Command2 | Nume | btnOR |
| Legendă | SAU Operator (1 = 1) Sau (5 = 0) | ||
| 3 | Butonul Command3 | Nume | btnNOT |
| Legendă | NU Operator Nu (0 =) |
Adăugați următorul cod la 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 Dacă și operator
- „Dacă (1 = 1) Și (0 = 0) Apoi„ instrucțiunea if folosește operatorul AND ȘI pentru a combina două condiții (1 = 1) Și (0 = 0). Dacă ambele condiții sunt adevărate, codul de deasupra cuvântului cheie „Altfel” este executat. Dacă ambele condiții nu sunt adevărate, se execută codul de sub cuvântul cheie „Altfel”.
Adăugați următorul cod la 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 Dacă SAU Operator
- „Dacă (1 = 1) Sau (5 = 0) Apoi„ instrucțiunea if folosește operatorul logic OR pentru a combina două condiții (1 = 1) Și (5 = 0). Dacă oricare dintre condiții este adevărată, codul de deasupra cuvântului cheie Else este executat. Dacă ambele condiții sunt false, codul de sub cuvântul cheie Else este executat.
Adăugați următorul cod la 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 Dacă NU este operator
- „Dacă nu (0 = 0), atunci” funcția VBA Dacă nu folosește operatorul logic NU pentru a anula rezultatul condiției instrucțiunii if. Dacă condițiile sunt adevărate, se execută codul de sub cuvântul cheie „Altfel”. Dacă condiția este adevărată, codul de deasupra cuvântului cheie Else este executat.
Descărcați Excel care conține codul de mai sus