Το Excel VBA δεν λειτουργεί
Οι λογικές συναρτήσεις είναι χρήσιμες για τους υπολογισμούς που απαιτούν πολλαπλούς όρους ή κριτήρια για έλεγχο. Στα προηγούμενα άρθρα μας, έχουμε δει τις συνθήκες "VBA IF", "VBA OR" και "VBA AND". Σε αυτό το άρθρο, θα συζητήσουμε το "VBA NOT" με τη λειτουργία IF στο excel. Για να το καταλάβουμε πρώτα, πρέπει να κοιτάξουμε τη λειτουργία "VBA NOT".
Παραδείγματα
Παράδειγμα # 1
Η λειτουργία NOT είναι διαθέσιμη και με το VBA και λειτουργεί ακριβώς το ίδιο με τη λειτουργία excel. Για παράδειγμα, δείτε το παρακάτω σύνολο κώδικα VBA.
Κώδικας:
Υπο NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
Στον παραπάνω κώδικα, έχουμε δηλώσει τη μεταβλητή "k" ως συμβολοσειρά.
Dim k As String
Στη συνέχεια, έχουμε εκχωρήσει την τιμή μέσω της συνάρτησης NOT. ΔΕΝ Λειτουργία λέει αν ο αριθμός 45 είναι ίσος με 45 ή όχι;
k = Όχι (45 = 45)
Στη συνέχεια, έχουμε αντιστοιχίσει την τιμή επιστροφής από τη συνάρτηση NOT στη μεταβλητή "k" στο πλαίσιο μηνύματος.
MsgBox k
Εκτελέστε τον κωδικό και δείτε τι είναι το αποτέλεσμα.
Παράδειγμα # 2 - ΟΧΙ με λειτουργία IF
Όπως ανέφερα σε ένα από τα προηγούμενα άρθρα, «Αν με άλλες λογικές συναρτήσεις είναι τα καλύτερα ζεύγη στο Excel».
Ομοίως, ΟΧΙ με IF είναι χρήσιμο με πολλούς τρόπους. Με το IF, μπορούμε να έχουμε τα δικά μας αποτελέσματα αντί των προεπιλεγμένων αποτελεσμάτων TRUE ή FALSE.
Πάρτε το ίδιο παράδειγμα κώδικα από ψηλά και δεν θα εφαρμόσουμε ΟΧΙ με τη λειτουργία IF.
Κώδικας:
Sub NOT_Example2 () Dim k As String If Not (45 = 45) Τότε k = "Το αποτέλεσμα της δοκιμής είναι ΑΛΗΘΟΣ" Άλλο k = "Το αποτέλεσμα της δοκιμής είναι FALSE" Τέλος εάν MsgBox k End Sub
Στον παραπάνω κώδικα, έχουμε αλλάξει τα προεπιλεγμένα αποτελέσματα από το "Το αποτέλεσμα της δοκιμής είναι ΛΑΘΟΣ" και το "Το αποτέλεσμα της δοκιμής είναι ΑΛΗΘΕΙΑ". Εάν η παρεχόμενη λογική δοκιμή είναι αληθής, θα επιστρέψει "Το αποτέλεσμα της δοκιμής είναι ΛΑΘΟΣ" και εάν η παρεχόμενη λογική δοκιμή είναι ψευδής, θα επιστρέψει. "Το αποτέλεσμα της δοκιμής είναι Αληθινό."
Στον παραπάνω κώδικα, έχουμε τιμή ως 45 = 45, οπότε θα λάβουμε την απάντηση ως εξής.
Παράδειγμα # 3 - Για προχωρημένους ΟΧΙ
Η λειτουργία NOT χρησιμοποιείται καλύτερα με τη συνάρτηση IF. Μπορούμε να χρησιμοποιήσουμε αυτήν τη λειτουργία για να αποκρύψουμε όλα τα φύλλα εκτός από ένα συγκεκριμένο φύλλο.
Έχουμε διάφορα φύλλα, ως εξής στο excel μας.
Παρακάτω είναι το δείγμα κώδικα για απόκρυψη όλων των φύλλων εκτός από ένα συγκεκριμένο φύλλο.
Κώδικας:
Υπο NOT_Example3 () Dim Ws ως φύλλο εργασίας για κάθε Ws στο ActiveWorkbook. Φύλλα εργασίας εάν όχι (Ws.Name = "Sheet Data") Στη συνέχεια Ws.Visible = xlSheetVeryHideen End if Next Ws End Sub
Ο παραπάνω κώδικας κρύβει όλα τα φύλλα εργασίας εκτός από το φύλλο εργασίας "Φύλλο δεδομένων".
Μπορείτε να χρησιμοποιήσετε αυτόν τον κωδικό VBA για να αποκρύψετε όλα τα φύλλα εκτός από ένα συγκεκριμένο φύλλο αλλάζοντας το όνομα του φύλλου στο όνομα του φύλλου σας.
Όπως και πώς μπορούμε επίσης να εμφανίσουμε φύλλα στο Excel. Ο παρακάτω κωδικός θα εμφανίσει όλα τα φύλλα εκτός από το όνομα φύλλου "Φύλλο δεδομένων".
Κώδικας:
Υπο NOT_Example4 () Dim Ws ως φύλλο εργασίας για κάθε Ws στο ActiveWorkbook. Φύλλα εργασίας εάν όχι (Ws.Name = "Sheet Data") Στη συνέχεια Ws.Visible = xlSheetVisible End if Next Ws End Sub
Ο παρακάτω κωδικός θα εμφανίσει μόνο το όνομα φύλλου "Φύλλο δεδομένων".
Κώδικας:
Sub NOT_Example3 () Dim Ws ως φύλλο εργασίας για κάθε Ws στο ActiveWorkbook. Φύλλα εργασίας εάν όχι (Ws.Name "Φύλλο δεδομένων") Στη συνέχεια Ws.Visible = xlSheetVisible End if Next Ws End Sub
