Χειριστές σύγκρισης VBA
Αυτοί είναι τελεστές που χρησιμοποιούνται για τη σύγκριση τιμών. Οι τελεστές σύγκρισης περιλαμβάνουν ίσο, μικρότερο από, μεγαλύτερο από και όχι ίσο με
Οι τελεστές σύγκρισης χρησιμοποιούνται για τη σύγκριση τιμών για σκοπούς επικύρωσης. Ας υποθέσουμε ότι αναπτύσσετε μια απλή εφαρμογή σημείου πώλησης. Σε αυτήν την εφαρμογή, θέλετε να επικυρώσετε τις τιμές που έχουν εισαχθεί πριν από την ανάρτηση. Σε τέτοιες περιπτώσεις, μπορείτε να χρησιμοποιήσετε τελεστές σύγκρισης. Αυτός ο χειριστής θα ελέγξει τους αρνητικούς αριθμούς ή για να διασφαλίσει ότι το ποσό που πληρώθηκε δεν υπερβαίνει το χρεωμένο ποσό. Οι χειριστές σύγκρισης είναι βολικοί σε τέτοιες καταστάσεις.
Στον παρακάτω πίνακα παρατίθενται οι τελεστές σύγκρισης που ορίζονται στο VBA.
| Χειριστής | Περιγραφή |
|---|---|
| = | Equal: ελέγχει εάν δύο τιμές είναι ίσες. Χρησιμοποιείται επίσης ως χειριστής ανάθεσης |
| < | Λιγότερο από: Αυτός ο τελεστής χρησιμοποιείται για την αφαίρεση αριθμών |
| > | Μεγαλύτερο από: Αυτός ο τελεστής χρησιμοποιείται για τον πολλαπλασιασμό αριθμών |
| <> | Όχι ίσο με: Αυτός ο τελεστής χρησιμοποιείται για να διαιρέσει αριθμούς |
| <= | Λιγότερο από ή ίσο με: |
| > = | Μεγαλύτερο ή ίσο με: |
Χειριστές σύγκρισης VBA με παράδειγμα
Ο παρακάτω πίνακας δείχνει το Excel VBA Comparison Operators με παραδείγματα και αποτελέσματα.
| Δ / Ν | Χειριστής | Παράδειγμα | Παραγωγή |
|---|---|---|---|
| 1 | = | Εάν x = z Τότε | Επιστρέφει true αν είναι ίσοι, αλλιώς επιστρέφει false |
| 2 | < | Εάν x | Επιστρέφει true αν το x είναι μικρότερο από το z, αλλιώς επιστρέφει false |
|
| 3 | > | Εάν x> z Τότε | Επιστρέφει true αν το x είναι μεγαλύτερο από το z, αλλιώς επιστρέφει false |
| 4 | <> | Εάν x <> z Τότε | Επιστρέφει true αν δεν είναι ίσοι, αλλιώς επιστρέφει false |
| 5 | <= | Εάν x <= z Τότε | Επιστρέφει true αν το x είναι μικρότερο ή ίσο με το z, αλλιώς επιστρέφει false |
| 6 | > = | Εάν x> = Τότε | Επιστρέφει true αν το x είναι μεγαλύτερο από το z, αλλιώς επιστρέφει false |
Παράδειγμα πηγαίου κώδικα
Ίδιος χειριστής σύγκρισης
If 2 = 1 ThenMsgBox "True", vbOKOnly, "Equal Operator"ElseMsgBox "False", vbOKOnly, "Equal Operator"End If
ΕΔΩ,
- "If 2 = 1 Τότε ... Διαφορετικά ... End If" χρησιμοποιεί τη δήλωση if για να αξιολογήσει την κατάσταση "2 = 1"
- "MsgBox ..." Είναι μια ενσωματωμένη λειτουργία που εμφανίζει ένα πλαίσιο μηνυμάτων.
- Η πρώτη παράμετρος "True" ή "False" είναι αυτό που θα εμφανίζεται στο πλαίσιο μηνύματος. Στο παράδειγμά μας, το 2 δεν είναι ίσο με το 1, επομένως, θα εμφανιστεί "false" στο πλαίσιο μηνυμάτων.
- Η δεύτερη παράμετρος "vbOKOnly" είναι το κουμπί που εμφανίζεται στο πλαίσιο μηνύματος
- Η τρίτη παράμετρος "Equal Operator" είναι ο τίτλος του πλαισίου μηνυμάτων.
Η εκτέλεση του παραπάνω κώδικα δίνει τα ακόλουθα αποτελέσματα
Κάντε λήψη του παραπάνω κώδικα του Excel