VBA Logical Operators: ΚΑΙ, Ή, ΟΧΙ, ΑΝ ΟΧΙ στο Excel VBA

Οι τρεις παραπάνω περιγραφές είναι πιο εύκολο να τις θυμάστε ως ένα ενιαίο πλέγμα εισροών και αποτελεσμάτων.

Πίνακας Αλήθειας για Λογική VBA Operaκορμοί

Ένας πίνακας αλήθειας παραθέτει κάθε συνδυασμό εισόδων και το αποτέλεσμα που επιστρέφει κάθε τελεστής. Η ανάγνωσή του μία φορά αφαιρεί την εικασία από οποιαδήποτε συνθήκη γράψετε αργότερα.

Δύο μοτίβα αξίζει να απομνημονεύσετε. ΚΑΙ παράγει True μόνο σε μία γραμμή από τις τέσσερις, επομένως περιορίζει την επιλογή. OR παράγει την τιμή False μόνο σε μία γραμμή, άρα διευρύνει μία. ΔΕΝ δέχεται μία μόνο συνθήκη αντί για δύο, γι' αυτό και έχει μία δική της στήλη.

VBA Logical OperaΠαράδειγμα Πηγής tors Code

Για λόγους απλότητας, θα συγκρίνουμε σκληρούς κωδικοποιημένους αριθμούς.

Προσθέστε κουμπιά ActiveX στο φύλλο από την επιλογή "Εισαγωγή".

Ορίστε τις ιδιότητες όπως φαίνεται στην παρακάτω εικόνα

Ο παρακάτω πίνακας δείχνει τις ιδιότητες που πρέπει να αλλάξετε και τις τιμές που πρέπει επίσης να ενημερώσετε.

Προσθέστε τον ακόλουθο κώδικα στο 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 Αν ΚΑΙ OperaTor

• "Αν (1 = 1) Και (0 = 0) Τότε" η εντολή if χρησιμοποιεί τον λογικό τελεστή AND για να συνδυάσει δύο συνθήκες (1 = 1) και (0 = 0). Εάν ισχύουν και οι δύο συνθήκες, εκτελείται ο κώδικας πάνω από τη λέξη-κλειδί 'Else'. Εάν και οι δύο συνθήκες δεν ισχύουν, εκτελείται ο κώδικας κάτω από τη λέξη-κλειδί 'Alse'.

Και οι δύο συνθήκες ισχύουν εδώ, επομένως κάνοντας κλικ στο κουμπί εμφανίζεται η ένδειξη "ΚΑΙ αξιολογήθηκε ως TRUE".

Προσθέστε τον ακόλουθο κώδικα στο 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 Εάν OR OperaTor

• "Αν (1 = 1) Ή (5 = 0) Τότε" Η πρόταση if χρησιμοποιεί τον λογικό τελεστή OR για να συνδυάσει δύο συνθήκες (1 = 1) ή (5 = 0). Εάν οποιαδήποτε από τις συνθήκες είναι αληθής, εκτελείται ο κώδικας παραπάνω από τη λέξη-κλειδί Else. Εάν και οι δύο συνθήκες είναι ψευδείς, εκτελείται ο κώδικας παρακάτω από τη λέξη-κλειδί Else.

Η πρώτη συνθήκη είναι αληθής και η δεύτερη είναι ψευδής, επομένως η συνάρτηση OR εξακολουθεί να επιστρέφει αληθής και το μήνυμα αναφέρει "Το OR αξιολογήθηκε ως TRUE".

Προσθέστε τον ακόλουθο κώδικα στο 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 Εάν ΟΧΙ OperaTor

• "Αν όχι (0 = 0) Τότε" Η συνάρτηση VBA If Not χρησιμοποιεί τον λογικό τελεστή NOT για να ακυρώσει το αποτέλεσμα της συνθήκης if. Η εσωτερική συνθήκη (0 = 0) είναι true, επομένως η Not την μετατρέπει σε false και εκτελείται ο κώδικας κάτω από τη λέξη-κλειδί 'Else'. Εάν η εσωτερική συνθήκη ήταν false, η Not θα την είχε κάνει true και ο κώδικας πάνω από την 'Else' θα είχε εκτελεστεί αντ' αυτού.

Αυτά τα τρία κουμπιά δοκιμάζουν το καθένα μια σταθερή τιμή. Οι πραγματικές συνθήκες διαβάζονται από το φύλλο εργασίας και συνδυάζουν και τις δύο οικογένειες τελεστών.

Πώς να συνδυάσετε τη λογική και τη σύγκριση Operaκορμοί

Μια μακροεντολή παραγωγής σπάνια ελέγχει έναν αριθμό με κωδικοποίηση. Διαβάζει μια τιμή, τη συγκρίνει και ενώνει αρκετές από αυτές τις συγκρίσεις σε μία απόφαση. Η παρακάτω μακροεντολή εγκρίνει μια παραγγελία μόνο όταν το προϊόν υπάρχει, η ποσότητα είναι επαρκής και ο λογαριασμός πελάτη δεν είναι σε αναμονή.

Sub ApproveOrder()
    Dim QtyOnHand As Long
    Dim QtyOrdered As Long
    Dim OnHold As Boolean

    QtyOnHand = Sheet1.Range("B2").Value
    QtyOrdered = Sheet1.Range("B3").Value
    OnHold = Sheet1.Range("B4").Value

    ' All three parts must hold for the order to pass
    If (QtyOrdered > 0) And (QtyOnHand >= QtyOrdered) And Not OnHold Then
        Sheet1.Range("B5").Value = "Approved"
    Else
        Sheet1.Range("B5").Value = "On hold"
    End If
End Sub

Τρεις κανόνες διατηρούν μια συνδυασμένη συνθήκη ευανάγνωστη και σωστή.

• Τοποθετήστε κάθε σύγκριση σε παρένθεση: Η VBA αξιολογεί τους τελεστές σύγκρισης πριν από τους λογικούς, αλλά οι αγκύλες καθορίζουν την ομάδα.ping προφανές και να αποτρέψει ένα λάθος όταν η κατάσταση επιδεινωθεί αργότερα.
• Προσέξτε την προτεραιότητα του And έναντι του Or: Α ή Β και Γ διαβάζεται ως Α Ή (Β Και Γ)Αν εννοούσες (Α ή Β) και Γ, οι παρενθέσεις είναι υποχρεωτικές.
• Εφαρμογή Όχι σε Λογική τιμή, όχι σε αριθμό: Δεν είναι σε αναμονή διαβάζεται φυσικά. Αποφύγετε Όχι 5, επειδή η συνάρτηση Not εκτελεί μια λειτουργία bitwise σε αριθμούς και επιστρέφει -6 αντί για False.

⚠️ Προειδοποίηση: Η VBA δεν βραχυκυκλώνει. Αν (ws Δεν Είναι Τίποτα) Ή (ws.Name = “Δεδομένα”) Τότε, το δεύτερο μέρος εξακολουθεί να εκτελείται ακόμα και όταν το πρώτο είναι αληθές, γεγονός που προκαλεί το σφάλμα χρόνου εκτέλεσης 91. Διαχωρίστε αυτούς τους φρουρούς σε ένθετες εντολές If.

Xor, Eqv και Imp Operators σε VBA

Οι τελεστές ΚΑΙ, Ή και ΟΧΙ καλύπτουν σχεδόν κάθε καθημερινή συνθήκη, αλλά η VBA παρέχει τρεις ακόμη λογικούς τελεστές που περιστασιακά εκφράζουν έναν κανόνα πολύ πιο καθαρά από μια φωλιά εντολών If.

Το Xor είναι το πιο πρακτικό από τα τρία. Ταιριάζει σε έναν κανόνα όπως «μια έκπτωση ισχύει για ένα μέλος του προσωπικού ή ένα μέλος πιστής επικοινωνίας, αλλά όχι για κάποιον που είναι και τα δύο». Το Eqv και το Imp εμφανίζονται κυρίως σε παλαιότερο κώδικα και σε ασκήσεις λογικής, επομένως η αναγνώρισή τους έχει μεγαλύτερη σημασία από τη συγγραφή τους.

Κατεβάστε το Excel που περιέχει τον παραπάνω κώδικα

Συχνές Ερωτήσεις