VBA loogilised operaatorid: JA VÕI EI
Exceli VBA loogilised operaatorid
Oletame, et soovite kliendi tellimust töödelda. Selleks soovite kõigepealt kontrollida, kas tellitud toode on olemas või mitte. Kui see juhtub, soovite ka kontrollida, kas käes olev kogus on piisav. Loogikaoperaatorid tulevad sellistel juhtudel kasuks. Loogilisi operaatoreid kasutatakse mitme tingimuse hindamiseks.
Peamised Exceli VBA loogilised operaatorid AND, OR, NOT on loetletud allolevas tabelis:
| S / N | Operaator | Kirjeldus | Näide | Väljund |
| 1 | JA | JA: Seda kasutatakse mitme tingimuse ühendamiseks. Kui kõik tingimused on tõesed, hindab AND tõeseks. Kui mõni tingimus on vale, hindab AND vale | Kui tõene = tõene JA vale = tõsi SIIS | vale |
| 2 | VÕI | VÕI: seda kasutatakse mitme tingimuse ühendamiseks. Kui mõni neist tingimustest vastab tõele, tagastab OR tõene. Kui kõik need on valed, tagastab OR vale | Kui tõene = tõsi VÕI tõsi = vale SIIS | tõsi |
| 3 | MITTE | MITTE: see töötab nagu pöördfunktsioon. Kui tingimus on tõene, tagastab see vale ja kui tingimus on vale, siis tagasi. | Kui EI (tõsi) siis | vale |
VBA loogiliste operaatorite lähtekoodi näide
Lihtsuse huvides võrdleme kodeeritud numbreid.
Lisage ActiveX-nupud lehele valikust "Lisa".
Määrake omadused, nagu on näidatud alloleval pildil
Järgmine tabel näitab atribuute, mida peate muutma, ja väärtusi, mida peate ka värskendama.
| S / N | Kontroll | Kinnisvara | Väärtus |
| 1 | CommandButton1 | Nimi | btnAND |
| Pealkiri | JA operaator (0 = 0) | ||
| 2 | CommandButton2 | Nimi | btnOR |
| Pealkiri | VÕI operaator (1 = 1) või (5 = 0) | ||
| 3 | Käsknupp3 | Nimi | btnMITTE |
| Pealkiri | EI operaator ei ole (0 =) |
Lisage btnAND_Clickile järgmine kood
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 JA operaator
- "If (1 = 1) Ja (0 = 0) Siis" kasutab if-lause loogilist operaatorit AND kahe tingimuse (1 = 1) ja (0 = 0) ühendamiseks. Kui mõlemad tingimused on täidetud, käivitatakse märksõna „Muu” kohal olev kood. Kui mõlemad tingimused ei vasta tõele, käivitatakse märksõna „Muu” all olev kood.
Lisage btnOR_Clickile järgmine kood
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 Kui VÕI operaator
- "If (1 = 1) Või (5 = 0) Siis" kasutab if-lause OR loogilist operaatorit kahe tingimuse (1 = 1) ja (5 = 0) ühendamiseks. Kui mõni tingimustest on tõene, käivitatakse muu märksõna kohal olev kood. Kui mõlemad tingimused on valed, käivitatakse muu märksõna all olev kood.
Lisage btnNOT_Clickile järgmine kood
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, kui EI OLE operaator
- "Kui ei (0 = 0), siis" kasutab funktsioon VBA Kui ei, siis loogikaoperaatorit EI, et tühistada lause if tingimus. Kui tingimused on tõesed, käivitatakse märksõna „Muu” all olev kood. Kui tingimus on tõene, käivitatakse muu märksõna kohal olev kood.
Laadige alla ülaltoodud kood sisaldav Excel