VBA loginiai operatoriai: IR, ARBA, NE
„Excel VBA“ loginiai operatoriai
Tarkime, kad norite apdoroti kliento užsakymą. Tam pirmiausia norite patikrinti, ar užsakytas produktas egzistuoja, ar ne. Jei taip, taip pat norite patikrinti, ar pakanka rankoje esančio kiekio. Tokiais atvejais praverčia loginiai operatoriai. Loginiai operatoriai naudojami įvertinti daugiau nei vieną sąlygą.
Pagrindiniai „Excel VBA“ loginiai operatoriai AND, OR, NOT yra išvardyti toliau pateiktoje lentelėje:
| S / N | operatorius | apibūdinimas | Pavyzdys | Rezultatas |
| 1 | IR | IR: Tai naudojama norint sujungti daugiau nei vieną sąlygą. Jei visos sąlygos yra teisingos, IR vertina kaip teisingą. Jei kuri nors sąlyga yra klaidinga, IR vertina kaip klaidingą | Jei tiesa = tiesa IR melas = tiesa TADA | melagingas |
| 2 | ARBA | ARBA: Tai naudojama norint sujungti daugiau nei vieną sąlygą. Jei kuri nors iš sąlygų bus teisinga, ARBA grįš į tiesą. Jei visi jie yra klaidingi, OR grąžina klaidingą | Jei tiesa = tiesa ARBA tiesa = klaidinga TADA | tiesa |
| 3 | NE | NE: Šis veikia kaip atvirkštinė funkcija. Jei sąlyga yra teisinga, ji grąžina klaidingą, o jei sąlyga yra klaidinga, ji grąžina tiesą. | Jei NE (tiesa) Tada | melagingas |
VBA loginių operatorių šaltinio kodo pavyzdys
Paprastumo sumetimais palyginsime sunkiai užkoduotus skaičius.
Pridėkite „ActiveX“ mygtukus prie lapo naudodami parinktį „Įterpti“.
Nustatykite savybes, kaip parodyta žemiau esančiame paveikslėlyje
Šioje lentelėje pateikiamos ypatybės, kurias turite pakeisti, ir reikšmės, kurias taip pat turite atnaujinti.
| S / N | Kontrolė | Nuosavybė | Vertė |
| 1 | „CommandButton“ | vardas | btnAND |
| Antraštė | IR operatorius (0 = 0) | ||
| 2 | Komandos mygtukas2 | vardas | btnOR |
| Antraštė | ARBA Operatorius (1 = 1) Arba (5 = 0) | ||
| 3 | Komandos mygtukas3 | vardas | btnNE |
| Antraštė | NE operatorius ne (0 =) |
Pridėkite šį kodą prie „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“ operatorius
- "If (1 = 1) Ir (0 = 0) Tada" if sakinys naudoja loginį operatorių AND, kad sujungtų dvi sąlygas (1 = 1) ir (0 = 0). Jei abi sąlygos yra teisingos, vykdomas kodas virš „Else“ raktinio žodžio. Jei abi sąlygos netenkinamos, vykdomas kodas po raktiniu žodžiu „Kita“.
Pridėkite šį kodą prie 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 Jei ARBA operatorius
- "If (1 = 1) Arba (5 = 0) Tada" if sakinys naudoja loginį operatorių OR, kad sujungtų dvi sąlygas (1 = 1) ir (5 = 0). Jei kuri nors iš sąlygų yra teisinga, vykdomas virš kito raktinio žodžio pateiktas kodas. Jei abi sąlygos yra klaidingos, vykdomas žemiau esančio raktinio žodžio kodas.
Pridėkite šį kodą prie 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 Jei NE operatorius
- "Jei ne (0 = 0), tada" funkcija VBA Jei ne, loginis operatorius NOT, kad paneigtų teiginio if rezultatą. Jei sąlygos yra teisingos, vykdomas kodas po raktiniu žodžiu „Kita“. Jei sąlyga teisinga, vykdomas kodas virš kito raktinio žodžio.
Atsisiųskite „Excel“, kuriame yra aukščiau pateiktas kodas