Logische VBA-operators: EN, OF, NIET
Excel VBA logische operators
Stel dat u een bestelling van een klant wilt verwerken. Daarvoor wilt u eerst controleren of het bestelde product bestaat of niet. Als dit het geval is, wilt u ook controleren of de beschikbare hoeveelheid voldoende is. Logische operators komen in dergelijke gevallen goed van pas. Logische operatoren worden gebruikt om meer dan één voorwaarde te evalueren.
De belangrijkste logische operators van Excel VBA AND, OR, NOT staan in de onderstaande tabel:
| S / N | Operator | Omschrijving | Voorbeeld | Uitvoer |
| 1 | EN | EN: Dit wordt gebruikt om meer dan één voorwaarde te combineren. Als alle voorwaarden waar zijn, evalueert AND naar waar. Als een van de voorwaarden onwaar is, resulteert AND in onwaar | Als waar = waar EN onwaar = waar DAN | false |
| 2 | OF | OF: Dit wordt gebruikt om meer dan één voorwaarde te combineren. Als een van de voorwaarden true oplevert, retourneert OR true. Als ze allemaal onwaar zijn, retourneert OR onwaar | Als waar = waar OF waar = onwaar DAN | waar |
| 3 | NIET | NIET: deze werkt als een inverse functie. Als de voorwaarde waar is, wordt onwaar geretourneerd, en als een voorwaarde onwaar is, wordt waar geretourneerd. | Indien NIET (waar) Dan | false |
VBA logische operators Voorbeeld broncode
Eenvoudigheidshalve zullen we hard gecodeerde getallen vergelijken.
Voeg ActiveX-knoppen toe aan het blad via de "Invoegoptie".
Stel de eigenschappen in zoals weergegeven in de onderstaande afbeelding
De volgende tabel toont de eigenschappen die u moet wijzigen en de waarden die u ook moet bijwerken.
| S / N | Controle | Eigendom | Waarde |
| 1 | CommandButton1 | Naam | btnAND |
| Onderschrift | AND Operator (0 = 0) | ||
| 2 | CommandButton2 | Naam | btnOR |
| Onderschrift | OF Operator (1 = 1) Of (5 = 0) | ||
| 3 | CommandButton3 | Naam | btnNOT |
| Onderschrift | NOT Operator Niet (0 =) |
Voeg de volgende code toe aan 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 If AND Operator
- "If (1 = 1) And (0 = 0) Then" de if-instructie gebruikt de logische operator AND om twee voorwaarden (1 = 1) And (0 = 0) te combineren. Als aan beide voorwaarden is voldaan, wordt de code boven het trefwoord 'Else' uitgevoerd. Als niet aan beide voorwaarden wordt voldaan, wordt de code onder het trefwoord 'Else' uitgevoerd.
Voeg de volgende code toe aan 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 Als OR Operator
- "If (1 = 1) Or (5 = 0) Then" de if-instructie gebruikt de logische OR-operator om twee voorwaarden (1 = 1) And (5 = 0) te combineren. Als een van de voorwaarden waar is, wordt de code boven het Else-sleutelwoord uitgevoerd. Als beide voorwaarden onwaar zijn, wordt de code onder het Else-sleutelwoord uitgevoerd.
Voeg de volgende code toe aan 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 indien NIET operator
- "If Not (0 = 0) Then", de VBA If Not-functie gebruikt de NOT logische operator om het resultaat van de if statement conditie te ontkennen. Als de voorwaarden waar zijn, wordt de code onder het trefwoord 'Else' uitgevoerd. Als de voorwaarde waar is, wordt de code boven het Else-sleutelwoord uitgevoerd.
Download Excel met bovenstaande code