VBA ΕΑΝ ΟΧΙ | Πώς να χρησιμοποιήσετε τη λειτουργία IF & NOT στο Excel VBA;
ΕΑΝ ΟΧΙ στο VBA
Οι λογικές συναρτήσεις είναι χρήσιμες για τους υπολογισμούς που απαιτούν πολλαπλούς όρους ή κριτήρια για έλεγχο. Στα προηγούμενα άρθρα μας, έχουμε δει τις συνθήκες "VBA IF", "VBA OR" και "VBA AND". Σε αυτό το άρθρο, θα συζητήσουμε τη λειτουργία "VBA IF NOT". Πριν από την εισαγωγή της λειτουργίας VBA IF NOT επιτρέψτε μου να σας δείξω πρώτα τη λειτουργία VBA NOT.
Τι ΔΕΝ Λειτουργεί στο VBA;
Το "NOT" είναι μία από τις λογικές λειτουργίες που έχουμε με το Excel & VBA. Όλες οι λογικές συναρτήσεις απαιτούν τη διεξαγωγή λογικών δοκιμών και επιστροφή ΑΛΗΘΕΙΑ εάν η λογική δοκιμή είναι σωστή, εάν η λογική δοκιμή δεν είναι σωστή, τότε θα επιστρέψει FALSE ως αποτέλεσμα.
Αλλά το "VBA NOT" είναι εντελώς αντίθετο από την άλλη λογική συνάρτηση. Θα έλεγα ότι αυτή είναι η αντίστροφη συνάρτηση των λογικών συναρτήσεων.
Η συνάρτηση "VBA NOT" επιστρέφει "FALSE" εάν η λογική δοκιμή είναι σωστή και εάν η λογική δοκιμή δεν είναι σωστή, θα επιστρέψει "TRUE". Τώρα, κοιτάξτε τη σύνταξη της συνάρτησης "VBA NOT".
ΟΧΙ (Λογική δοκιμή)Αυτό είναι πολύ απλό, πρέπει να παρέχουμε τη λογική δοκιμή. Η συνάρτηση NOT αξιολογεί το τεστ και επιστρέφει το αποτέλεσμα.
Παραδείγματα λειτουργίας NOT & IF στο VBA;
Ακολουθούν τα παραδείγματα χρήσης της λειτουργίας IF και NOT στο excel VBA.
Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA IF NOT Excel εδώ - Πρότυπο VBA IF NOT Excel
Παράδειγμα # 1
Ρίξτε μια ματιά στον παρακάτω κώδικα για ένα παράδειγμα.
Κώδικας:
Sub NOT_Example () Dim k As String k = Not (100 = 100) MsgBox k End Sub
Στον παραπάνω κώδικα, έχω δηλώσει τη μεταβλητή ως String.
Dim k As String
Στη συνέχεια, για αυτήν τη μεταβλητή, έχω εκχωρήσει τη συνάρτηση NOT με τη λογική δοκιμή ως 100 = 100.
k = Όχι (100 = 100)
Τότε έγραψα τον κωδικό για να δείξω το αποτέλεσμα στο πλαίσιο μηνυμάτων VBA. MsgBox k
Τώρα θα εκτελέσω τον κώδικα και θα δω το αποτέλεσμα.
Έχουμε το αποτέλεσμα ως "FALSE".
Τώρα κοιτάξτε πίσω τη λογική δοκιμή. Έχουμε παράσχει τη λογική δοκιμή ως 100 = 100, η οποία είναι γενικά Αληθινή αφού είχαμε δώσει τη συνάρτηση NOT πήραμε το αποτέλεσμα ως FALSE. Όπως είπα, στην αρχή, δίνει αντίστροφα αποτελέσματα σε σύγκριση με άλλες λογικές συναρτήσεις. Δεδομένου ότι το 100 ισούται με 100, επέστρεψε το αποτέλεσμα ως ΛΑΘΟΣ.
Παράδειγμα # 2
Τώρα, δείτε ένα ακόμη παράδειγμα με διαφορετικούς αριθμούς.
Κώδικας:
Υπο NOT_Example () Dim k As String k = Not (85 = 148) MsgBox k End Sub
Ο κώδικας είναι το ίδιο πράγμα που έχω αλλάξει εδώ είναι ότι έχω αλλάξει τη λογική δοκιμή από 100 = 100 σε 85 = 148.
Τώρα θα τρέξω τον κώδικα και θα δω ποιο είναι το αποτέλεσμα.
Αυτή τη φορά έχουμε το αποτέλεσμα ως Αληθινό. Τώρα εξετάστε τη λογική δοκιμή.
k = Όχι (85 = 148)
Όλοι γνωρίζουμε ότι το 85 δεν είναι ίσο με τον αριθμό 148. Δεδομένου ότι δεν είναι ίσο, η λειτουργία ΟΧΙ επέστρεψε το αποτέλεσμα ως ΑΛΗΘΕ.
ΟΧΙ με συνθήκη IF:
Στο Excel ή στο VBA, οι λογικές συνθήκες δεν είναι πλήρεις χωρίς τη συνθήκη IF συνθήκης. Χρησιμοποιώντας το IF σε κατάσταση excel μπορούμε να κάνουμε πολύ περισσότερα πράγματα πέρα από την προεπιλεγμένη ΑΛΗΘΕΙΑ ή ΛΑΘΟΣ. Για παράδειγμα, στα παραπάνω παραδείγματα έχουμε προεπιλεγμένα αποτελέσματα FALSE & TRUE, αντί για αυτό μπορούμε να τροποποιήσουμε το αποτέλεσμα με τις δικές μας λέξεις.
Κοιτάξτε τον παρακάτω κώδικα.
Κώδικας:
Sub NOT_Example2 () Dim Number1 As String Dim Number2 As String Number1 = 100 Number2 = 100 If Not (Number1 = Number2) Στη συνέχεια, το MsgBox "Number 1 δεν είναι ίσο με το Number 2" Else MsgBox "Ο αριθμός 1 είναι ίσος με τον αριθμό 2" End if Τέλος Υποτ
Έχω δηλώσει δύο μεταβλητές.
Dim Number1 ως String & Dim Number 2 ως συμβολοσειρά
Για αυτές τις δύο μεταβλητές, έχω αντιστοιχίσει τους αριθμούς ως 100 & 100 αντίστοιχα.
Number1 = 100 & Number2 = 100
Στη συνέχεια, για τη συνάρτηση NOT, έχω επισυνάψει συνθήκη IF για να αλλάξω την προεπιλεγμένη TRUE ή FALSE. Εάν το αποτέλεσμα της συνάρτησης NOT είναι ΑΛΗΘΡΟ, τότε το αποτέλεσμα θα έχει ως εξής.
MsgBox "Ο αριθμός 1 δεν ισούται με τον αριθμό 2"
Εάν το αποτέλεσμα λειτουργίας NOT είναι ΛΑΘΟΣ, τότε το αποτέλεσμα μου έχει ως εξής.
MsgBox "Ο αριθμός 1 είναι ίσος με τον αριθμό 2"
Τώρα θα τρέξω τον κώδικα και θα δω τι θα συμβεί.
Πήραμε το αποτέλεσμα ως "Ο αριθμός 1 είναι ίσος με τον αριθμό 2", οπότε η συνάρτηση NOT δεν επέστρεψε το αποτέλεσμα FALSE σε συνθήκη IF, οπότε η συνθήκη IF επέστρεψε αυτό το αποτέλεσμα
Έτσι, μπορούμε να χρησιμοποιήσουμε συνθήκη IF για να κάνουμε την αντίστροφη δοκιμή.
