Χειριστής VBA "Not Equal" | Βήμα προς βήμα Παραδείγματα του VBA "Not Equal To"

Το Not Equal είναι ένας τελεστής στο VBA που μπορεί επίσης να χαρακτηριστεί ως τελεστής άρνησης, είναι μια λογική συνάρτηση, οπότε η έξοδος που επιστρέφεται από αυτήν τη συνάρτηση είναι είτε αληθινή είτε λανθασμένη, γνωρίζουμε ότι ο ίσος τελεστής είναι "=" αυτό αλλά όχι ίσος είναι "Στο VBA, οπότε όποια και αν είναι η τιμή που λαμβάνουμε από τον ίδιο τελεστή, θα έχουμε ακριβώς αντίθετη τιμή χρησιμοποιώντας τον τελεστή Not Equal

Χειριστής "Not Equal" στο VBA

Συνήθως, κάνουμε μια λογική δοκιμή «αν κάτι είναι ίδιο με άλλο ή όχι». Σε ορισμένες περιπτώσεις, πρέπει επίσης να κάνουμε το τεστ «ανισότητας»Το τεστ ανισότητας δεν είναι τίποτα άλλο παρά ισοδύναμο τεστ. Γενικά, λέμε αν κάτι είναι ίσο με άλλο πράγμα ή όχι, εάν είναι ίσο εκτελεί κάποιο είδος εργασίας, αν όχι διαφορετικό έργο. Παρομοίως, χρησιμοποιώντας το τεστ ανισότητας μπορούμε επίσης να κάνουμε κάποιο είδος λειτουργίας. Το "NOT EQUAL" στο VBA αντιπροσωπεύεται από το συνδυασμό συμβόλων μεγαλύτερων και μικρότερων από τα σύμβολα. Εάν συνδυαστούν και οι δύο αυτοί χειριστές τότε δεν γίνεται ίσο σύμβολο, δηλαδή "" .

Πώς δεν ισούται με τα έργα στο Excel VBA;

Το VBA Not ίσο λειτουργεί ακριβώς απέναντι από τη λογική του ίσου με το χειριστή. Ισούται με το χειριστή επιστρέφει ΑΛΗΘΕΙΑ εάν η παρεχόμενη δοκιμή ικανοποιηθεί δεν είναι ότι θα επιστρέψει FALSE. Για παράδειγμα, αν πείτε 10 = 10 θα επιστρέψει ΑΛΗΘΕΙΑ ή αλλιώς ΛΑΘΟΣ.

Από την άλλη πλευρά, το "Not Equal" λειτουργεί στην αντίθετη κατεύθυνση, εάν η παρεχόμενη λογική δοκιμή στο excel δεν είναι ίση, τότε μόνο θα επιστρέψει ΑΛΗΘΕΙΑ ή αλλιώς FALSE.

Για παράδειγμα, αν πείτε 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

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

Έχουμε δύο τιμές, «Αξία 1» και «Αξία 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