VBA logiske operatører: AND, OR, NOT
Excel VBA logiske operatører
Lad os sige, at du vil behandle en kundeordre. Til det vil du først kontrollere, om det bestilte produkt findes eller ej. Hvis det gør det, vil du også kontrollere, om mængden ved hånden er tilstrækkelig. Logiske operatører er nyttige i sådanne tilfælde. Logiske operatorer bruges til at evaluere mere end en tilstand.
De vigtigste Excel VBA-logiske operatorer AND, OR, NOT er angivet i nedenstående tabel:
| S / N | Operatør | Beskrivelse | Eksempel | Produktion |
| 1 | OG | OG: Dette bruges til at kombinere mere end en tilstand. Hvis alle betingelserne er sande, OG vurderes til sande. Hvis en af betingelserne er falske, OG vurderes til falske | Hvis sandt = sandt og falskt = sandt SÅ | falsk |
| 2 | ELLER | ELLER: Dette bruges til at kombinere mere end en tilstand. Hvis nogen af betingelserne vurderes til sand, returnerer OR sand. Hvis alle er falske, returnerer ELLER falske | Hvis sand = sand ELLER sand = falsk SÅ | sand |
| 3 | IKKE | IKKE: Denne fungerer som en invers funktion. Hvis betingelsen er sand, returnerer den falsk, og hvis en betingelse er falsk, returnerer den sand. | Hvis IKKE (sandt) Så | falsk |
VBA logiske operatører Eksempel på kildekode
Af hensyn til enkelheden sammenligner vi hårdkodede tal.
Føj ActiveX-knapper til arket fra "Indsæt valgmulighed."
Indstil egenskaberne som vist på billedet nedenfor
Den følgende tabel viser de egenskaber, du skal ændre, og de værdier, du også skal opdatere.
| S / N | Styring | Ejendom | Værdi |
| 1 | KommandoKnap1 | Navn | btnAND |
| Billedtekst | OG operatør (0 = 0) | ||
| 2 | CommandButton2 | Navn | btnOR |
| Billedtekst | ELLER operatør (1 = 1) Eller (5 = 0) | ||
| 3 | CommandButton3 | Navn | btNOT |
| Billedtekst | IKKE operatør Ikke (0 =) |
Føj følgende kode til btnAND_Klik
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 Hvis OG operatør
- "Hvis (1 = 1) Og (0 = 0) Så" bruger if-sætningen den OG-logiske operator til at kombinere to betingelser (1 = 1) Og (0 = 0). Hvis begge betingelser er opfyldt, udføres koden ovenfor 'Else' nøgleordet. Hvis begge betingelser ikke er sande, udføres koden under 'Andet' nøgleord.
Føj følgende kode til 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 Hvis ELLER operatør
- "Hvis (1 = 1) Eller (5 = 0) Så" bruger if-sætningen ELLER den logiske operator til at kombinere to betingelser (1 = 1) Og (5 = 0). Hvis nogen af betingelserne er sande, udføres koden ovenfor Else-nøgleordet. Hvis begge betingelser er falske, udføres koden nedenfor Else-nøgleordet.
Føj følgende kode til 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 Hvis IKKE operatør
- "Hvis ikke (0 = 0) Derefter" bruger VBA Hvis ikke-funktionen den IKKE logiske operator til at negere resultatet af betingelsen if if. Hvis betingelserne er sande, udføres koden under 'Andet' nøgleord. Hvis betingelsen er sand, udføres koden ovenfor Else-nøgleordet.
Download Excel, der indeholder ovenstående kode