VBA logisk Operators: OG, ELLER, IKKE, HVIS IKKE i Excel VBA

VBA logisk Operators: OG, ELLER, IKKE

Excel VBA Logisk Operatorer

La oss si at du vil behandle en kundebestilling. For det, vil du først sjekke om det bestilte produktet eksisterer eller ikke. Hvis den gjør det, vil du også sjekke om mengden på hånden er nok. Logiske operatører kommer godt med i slike tilfeller. Logiske operatorer brukes til å evaluere mer enn én tilstand.

De viktigste logiske Excel VBA-operatorene AND, OR, NOT er oppført i tabellen nedenfor:

S / N Operator Tekniske beskrivelser Eksempel Produksjon
1 OG OG: Dette brukes til å kombinere mer enn én betingelse. Hvis alle betingelsene er sanne, OG evalueres til sanne. Hvis noen av betingelsene er falske, OG evalueres til usann Hvis sant = sant OG usant = sant DA falsk
2 OR ELLER: Dette brukes til å kombinere mer enn én betingelse. Hvis noen av betingelsene evalueres til sann, returnerer OR sann. Hvis alle er falske, returnerer OR falsk Hvis sant = sant ELLER sant = usant DÅ sant
3 IKKE IKKE: Denne fungerer som en invers funksjon. Hvis betingelsen er sann, returnerer den usann, og hvis en betingelse er usann, returnerer den sann. Hvis IKKE (sant) så falsk

VBA logisk Operators Eksempel kildekode

For enkelhets skyld vil vi sammenligne hardkodede tall.

Legg til ActiveX-knapper på arket fra "Sett inn-alternativet."

Angi egenskapene som vist på bildet nedenfor

VBA logisk Operatorer
VBA logisk Operatorer

Tabellen nedenfor viser egenskapene du må endre og verdiene du også må oppdatere.

S / N Kontroll: Eiendom Verdi
1 Kommandoknapp1 Navn btnAND
Bildetekst OG Operator (0 = 0)
2 Kommandoknapp2 Navn btnOR
Bildetekst OR Operator (1 = 1) Eller (5 = 0)
3 Kommandoknapp3 Navn btnIKKE
Bildetekst IKKE Operator Ikke (0 = )

Legg til følgende kode i 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 Hvis OG Operator

  • "Hvis (1 = 1) Og (0 = 0) Da" if-setningen bruker den logiske AND-operatoren for å kombinere to betingelser (1 = 1) og (0 = 0). Hvis begge betingelsene er sanne, kjøres koden over «Else»-nøkkelordet. Hvis begge betingelsene ikke er sanne, kjøres koden under 'Else'-nøkkelordet.

Legg til følgende kode i 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 Hvis ELLER Operator

  • "Hvis (1 = 1) Eller (5 = 0) Da" if-setningen bruker den logiske operatoren OR for å kombinere to betingelser (1 = 1) og (5 = 0). Hvis noen av betingelsene er sanne, kjøres koden over Else-nøkkelordet. Hvis begge betingelsene er usanne, kjøres koden under Else-nøkkelordet.

Legg til følgende kode til 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 hvis IKKE Operator

  • "Hvis ikke (0 = 0) så" VBA If Not-funksjonen bruker den logiske NOT-operatoren for å negere resultatet av if-setningsbetingelsen. Hvis betingelsene er sanne, kjøres koden under 'Else'-nøkkelordet. Hvis betingelsen er sann, kjøres koden over Else-nøkkelordet.

Last ned Excel som inneholder koden ovenfor