Το Not Equal είναι ένας τελεστής στο VBA που μπορεί επίσης να χαρακτηριστεί ως τελεστής άρνησης, είναι μια λογική συνάρτηση, οπότε η έξοδος που επιστρέφεται από αυτήν τη συνάρτηση είναι είτε αληθινή είτε λανθασμένη, γνωρίζουμε ότι ο ίσος τελεστής είναι "=" αυτό αλλά όχι ίσος είναι " "Στο VBA, οπότε όποια και αν είναι η τιμή που λαμβάνουμε από τον ίδιο τελεστή, θα έχουμε ακριβώς αντίθετη τιμή χρησιμοποιώντας τον τελεστή Not Equal.
Χειριστής "Not Equal" στο VBA
Συνήθως, κάνουμε μια λογική δοκιμή «αν κάτι είναι ίδιο με άλλα πράγματα ή όχι». Σε ορισμένες περιπτώσεις, πρέπει επίσης να κάνουμε το τεστ «ανισότητας» . Το τεστ ανισότητας δεν είναι τίποτα άλλο παρά ισοδύναμο τεστ. Σε γενικές γραμμές, λέμε εάν κάτι είναι ίσο με άλλο πράγμα ή όχι, εάν είναι ίσο, εκτελεί κάποιο είδος εργασίας, αν όχι διαφορετικό έργο. Ομοίως, χρησιμοποιώντας το τεστ ανισότητας μπορούμε επίσης να κάνουμε κάποιο είδος λειτουργίας. Το "NOT EQUAL" στο VBA αντιπροσωπεύεται από το συνδυασμό συμβόλων μεγαλύτερων και μικρότερων από τα σύμβολα. Εάν συνδυαστούν και οι δύο αυτοί χειριστές, τότε δεν γίνεται ίσο σύμβολο, δηλαδή "."
Πώς δεν ισούται με τα έργα στο Excel VBA;
Το VBA Not ίσο λειτουργεί ακριβώς απέναντι από τη λογική του ίσου με τον τελεστή Ισούται με το χειριστή επιστρέφει ΑΛΗΘΕΙΑ εάν η παρεχόμενη δοκιμή ικανοποιείται δεν είναι, θα επιστρέψει FALSE. Για παράδειγμα, αν πείτε 10 = 10, θα επιστρέψει ΑΛΗΘΗ ή αλλιώς ΛΑΘΟΣ.
Από την άλλη πλευρά, το "Not Equal" λειτουργεί στην αντίθετη κατεύθυνση. Εάν το παρεχόμενο λογικό τεστ στο excel δεν είναι ίσο, τότε μόνο θα επιστρέψει ΑΛΗΘΕΙΑ ή αλλιώς ΛΑΘΟΣ.
Για παράδειγμα, αν πείτε 10 10, θα επιστρέψει FALSE επειδή το 10 είναι ίσο με 10. Για να λάβετε ΑΛΗΘΕΙΟ αποτέλεσμα, μια τιμή δεν πρέπει να είναι ίση με την άλλη τιμή.
Παραδείγματα μη ισοδύναμων με το Excel VBA
Ακολουθούν τα παραδείγματα που δεν ισούνται με τον τελεστή στο Excel VBA.
Παράδειγμα # 1
Τώρα θα δούμε πώς να χρησιμοποιούμε το σύμβολο VBA Not Equal () πρακτικά. Κοιτάξτε το παρακάτω κομμάτι κώδικα.
Κώδικας:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Εδώ εξετάζουμε εάν ο αριθμός 100 δεν είναι ίσος με τον αριθμό 100. Σίγουρα, γνωρίζουμε ότι ο αριθμός 100 είναι ίσος με 100, οπότε το αποτέλεσμα θα είναι ΛΑΘΟΣ.
Τώρα θα αλλάξω την εξίσωση.
Κώδικας:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Τώρα το τεστ είναι αν ο αριθμός 100 δεν είναι ίσος με 99. Άρα το αποτέλεσμα θα είναι ΑΛΗΘΕ.
Παράδειγμα # 2
Τώρα θα δούμε πώς να χρησιμοποιούμε αυτόν τον μη ίσο τελεστή σε παραδείγματα σε πραγματικό χρόνο. Για την επίδειξη, έχω δημιουργήσει ορισμένα δεδομένα.
Έχουμε δύο τιμές, "Value 1" και "Value 2".
Τώρα η απαίτησή μου είναι αν η τιμή 1 δεν είναι ίση με την τιμή 2, τότε χρειάζομαι το αποτέλεσμα ως "διαφορετικό" ή αλλιώς χρειάζομαι το αποτέλεσμα ως "ίδιο".
Βήμα 1: Ορίστε μια μεταβλητή ως ακέραιο.
Κώδικας:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Βήμα 2: Ανοίξτε ΓΙΑ ΕΠΟΜΕΝΟ ΒΡΟΧΟ από 2 έως 9.
Κώδικας:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 to 9 Next k End Sub
Βήμα 3: Μέσα στο βρόχο, πρέπει να ελέγξουμε εάν η τιμή 1 δεν είναι ίση με την τιμή 2. Δεδομένου ότι χρειαζόμαστε τα δικά μας αποτελέσματα, πρέπει να χρησιμοποιήσουμε την συνθήκη IF.
Κώδικας:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 to 9 If Cells (k, 1) Cells (k, 2) then Cells (k, 3). Value = "Different" Else Cells (k, 3). Value = "Ίδιο" Τέλος εάν Επόμενο k End Sub
Ας υποθέσουμε ότι η συνθήκη ελέγχει εάν η τιμή 1 δεν είναι ίση με την τιμή 2 ή όχι. Εάν δεν είναι ίσο, θα επιστρέψει "Διαφορετικό". Εάν είναι ίσο, θα επιστρέψει "Ίδιο".
Μπορείτε να αντιγράψετε και να επικολλήσετε τον παρακάτω κώδικα VBA.
Αντιγράψτε αυτόν τον κωδικό στη λειτουργική σας μονάδα και εκτελέστε χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα. Αυτό θα επιστρέψει ένα αποτέλεσμα σαν αυτό.
Απόκρυψη και απόκρυψη φύλλων με μη ίση ένδειξη
Οι διάφοροι τρόποι χρήσης του μη ίσου τραγουδιού είναι τεράστιοι. Μπορούμε να χρησιμοποιήσουμε αυτό το σήμα για να ικανοποιήσουμε τις ανάγκες μας.
# 1 - Απόκρυψη όλων των φύλλων εκτός από ένα φύλλο
Έχουμε δει αυτού του είδους την κατάσταση πολλές φορές. Χρειαζόμασταν να κρύψουμε όλα τα φύλλα εκτός από το συγκεκριμένο φύλλο.
Για παράδειγμα, εάν θέλετε να αποκρύψετε όλα τα φύλλα εκτός από το όνομα φύλλου "Δεδομένα πελάτη", τότε μπορείτε να χρησιμοποιήσετε αυτόν τον κωδικό.
Κώδικας:
Sub Hide_All () Dim Ws ως φύλλο εργασίας για κάθε Ws στο ActiveWorkbook.Wheheets If Ws.Name "Customer data" then Ws.Visible = xlSheetVeryHidden End if Next Ws End Sub
# 2 - Κατάργηση απόκρυψης όλων των φύλλων εκτός από ένα φύλλο
Ομοίως, μπορούμε επίσης να αποκρύψουμε όλα τα φύλλα εκτός από το ένα φύλλο. Χρησιμοποιήστε τον παρακάτω κωδικό για να το κάνετε αυτό.
Κώδικας:
Sub Unhide_All () Dim Ws ως φύλλο εργασίας για κάθε Ws στο ActiveWorkbook.Wheheets If Ws.Name "Customer Data" then Ws.Visible = xlSheetVisible End if Next Ws End Sub
Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA Not Equal to Excel εδώ - Πρότυπο χειριστή VBA Not Equal.
