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

VBA Logical Operators: ΚΑΙ, Ή, ΟΧΙ

Excel VBA Logical Operaκορμοί

Ας υποθέσουμε ότι θέλετε να επεξεργαστείτε μια παραγγελία πελάτη. Για αυτό, θέλετε πρώτα να ελέγξετε εάν το παραγγελθέν προϊόν υπάρχει ή όχι. Εάν ναι, θέλετε επίσης να ελέγξετε αν η ποσότητα που έχετε στο χέρι είναι αρκετή. Οι λογικοί τελεστές είναι χρήσιμοι σε τέτοιες περιπτώσεις. Οι λογικοί τελεστές χρησιμοποιούνται για την αξιολόγηση περισσότερων από μία συνθηκών.

Οι κύριοι λογικοί τελεστές Excel VBA ΚΑΙ, Ή, ΟΧΙ παρατίθενται στον παρακάτω πίνακα:

S / N	OperaTor	Descriptιόν	Παράδειγμα	Παραγωγή
1	ΚΑΙ	ΚΑΙ: Χρησιμοποιείται για τον συνδυασμό περισσότερων από μία συνθηκών. Εάν όλες οι συνθήκες είναι αληθείς, το AND αξιολογείται ως αληθές. Εάν κάποια από τις συνθήκες είναι ψευδής, AND αξιολογείται ως ψευδής	Αν true = true ΚΑΙ false = true ΤΟΤΕ	ψευδής
2	OR	Ή: Χρησιμοποιείται για τον συνδυασμό περισσότερων από μία συνθηκών. Εάν κάποια από τις συνθήκες αξιολογηθεί ως true, OR επιστρέφει true. Εάν όλα είναι ψευδή, το OR επιστρέφει ψευδές	Αν true = true Ή true = false ΤΟΤΕ	αληθής
3	ΔΕΝ	ΟΧΙ: Αυτό λειτουργεί σαν αντίστροφη συνάρτηση. Εάν η συνθήκη είναι αληθής, επιστρέφει ψευδής, και εάν μια συνθήκη είναι ψευδής, επιστρέφει true.	Αν ΟΧΙ (αληθές) Τότε	ψευδής

VBA Logical Operators Παράδειγμα Πηγαίος Κώδικας

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

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

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

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

S / N	Έλεγχος	Ιδιοκτησία	αξία
1	Κουμπί Command1	Όνομα	btnΚΑΙ
		Λεζάντα	ΚΑΙ Operator (0 = 0)
2	Κουμπί Command2	Όνομα	btnOR
		Λεζάντα	OR Operator (1 = 1) Ή (5 = 0)
3	Κουμπί Command3	Όνομα	btnΟΧΙ
		Λεζάντα	ΔΕΝ Operator Όχι (0 = )

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

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

Προσθέστε τον ακόλουθο κώδικα στο 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. Εάν οι συνθήκες είναι αληθείς, εκτελείται ο κώδικας κάτω από τη λέξη-κλειδί 'Alse'. Εάν η συνθήκη είναι αληθής, εκτελείται ο κώδικας πάνω από τη λέξη-κλειδί Else.

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

Μπορεί να σας αρέσει: