VBA logic Operators: ȘI, SAU, NU, DACĂ NU în Excel VBA

VBA logic Operators: AND, OR, NOT

Excel VBA logic Operatori

Să presupunem că doriți să procesați o comandă de client. Pentru asta, doriți să verificați mai întâi dacă produsul comandat există sau nu. Dacă da, doriți să verificați și dacă cantitatea disponibilă este suficientă. Operatorii logici sunt folositori în astfel de cazuri. Operatorii logici sunt utilizați pentru a evalua mai mult de o condiție.

Principalii operatori logici Excel VBA ȘI, SAU, NU sunt enumerați în tabelul de mai jos:

S / N OperaTdR Descriere Exemplu producție
1 AND ȘI: Aceasta este folosită pentru a combina mai mult de o condiție. Dacă toate condițiile sunt adevărate, AND se evaluează la adevărat. Dacă oricare dintre condiții este falsă, AND se evaluează ca fals Dacă adevărat = adevărat ȘI fals = adevărat, atunci fals
2 OR SAU: Aceasta este folosită pentru a combina mai mult de o condiție. Dacă oricare dintre condiții este evaluată la adevărat, SAU returnează adevărat. Dacă toate sunt false, SAU returnează false 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ă, returnează false, iar dacă o condiție este falsă, returnează adevărat. Dacă NU (adevărat), atunci fals

VBA logic Operators Exemplu de cod sursă

De dragul simplității, vom compara numerele codificate greu.

Adăugați butoane ActiveX la foaie din „Opțiune de inserare”.

Setați proprietățile așa cum se arată în imaginea de mai jos

VBA logic Operatori
VBA logic Operatori

Următorul tabel arată proprietățile pe care trebuie să le modificați și valorile pe care trebuie să le actualizați.

S / N Mod de control: Proprietatea Valoare
1 Butonul Command1 Nume btnAND
Legendă AND Operator (0 = 0)
2 Butonul Command2 Nume btnOR
Legendă OR Operator (1 = 1) Sau (5 = 0)
3 Butonul Command3 Nume btnNU
Legendă NU Operator Not (0 = )

Adăugați următorul cod la 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 Dacă AND OperaTdR

  • „Dacă (1 = 1) și (0 = 0) atunci” instrucțiunea if folosește operatorul logic AND pentru a combina două condiții (1 = 1) și (0 = 0). Dacă ambele condiții sunt adevărate, se execută codul de deasupra cuvântului cheie „Else”. Dacă ambele condiții nu sunt adevărate, se execută codul de sub cuvântul cheie „Else”.

Adăugați următorul cod la 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 Dacă SAU OperaTdR

  • „Dacă (1 = 1) Sau (5 = 0) atunci” instrucțiunea if folosește operatorul logic SAU pentru a combina două condiții (1 = 1) și (5 = 0). Dacă oricare dintre condiții este adevărată, codul de mai sus este executat cuvântul cheie Else. Dacă ambele condiții sunt false, se execută codul de sub cuvântul cheie Else.

Adăugați următorul cod la 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 Dacă NU OperaTdR

  • „Dacă nu (0 = 0) atunci” funcția VBA If Not folosește operatorul logic NOT pentru a anula rezultatul condiției instrucțiunii if. Dacă condițiile sunt adevărate, se execută codul de sub cuvântul cheie „Else”. Dacă condiția este adevărată, codul de mai sus se execută cuvântul cheie Else.

Descărcați Excel care conține codul de mai sus