Αυτό το άρθρο θα δείξει τον τρόπο χρήσης της δήλωσης VBA Switch.
Η δήλωση VBA Switch χρησιμοποιείται με παρόμοιο τρόπο με τη δήλωση VBA Select Case.
Η σύνταξη της δήλωσης αλλαγής
Η δήλωση διακόπτη αξιολογεί μια λίστα εκφράσεων για να διαπιστώσει αν είναι αληθείς ή ψευδείς και επιστρέφει την τιμή των πρώτων εκφράσεων που αξιολογείται ως αληθής. Η λίστα επιχειρημάτων αποτελείται από ζεύγη - μια παράσταση και μια τιμή που επιστρέφεται εάν η έκφραση αξιολογηθεί ως αληθής.
Διακόπτης(expr-1, τιμή-1, [ expr-2, τιμή-2… , [ expr-n, value-n ]])
Χρησιμοποιώντας τη δήλωση Switch σε μια διαδικασία VBA
Για να το χρησιμοποιήσετε σε μια μακροεντολή θα μπορούσε να είναι παρόμοιο με αυτό το παρακάτω παράδειγμα:
| 1234567 | Sub TestSwitch ()Dim strCompany As StringDim CompanyID ως ακέραιοςCompanyID = 2strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesΤέλος υπο |
Δηλώνουμε μια ακέραια μεταβλητή για να κρατήσει τις τιμές από τις εκφράσεις μέσα στην πρόταση μεταγωγής. Στη συνέχεια, δηλώνουμε μια άλλη μεταβλητή συμβολοσειράς για να επιστρέψουμε την τιμή που περιέχεται σε αυτήν την έκφραση.
Χρήση της δήλωσης εναλλαγής με εύρος
Αντί για την κωδικοποίηση της τιμής που πρόκειται να αξιολογήσει ο διακόπτης στον κώδικα, μπορούμε να χρησιμοποιήσουμε μια τιμή που έχουμε αποθηκεύσει σε ένα κελί Excel για να επιστρέψουμε τη συμβολοσειρά που χρειαζόμαστε.
| 1234567 | Sub TestSwitch ()Dim strCompany As StringDim CompanyID ως ακέραιοςCompanyID = Εύρος ("A2")strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesΤέλος υπο |
Για να χρησιμοποιήσουμε αυτήν τη διαδικασία, θα πρέπει να έχουμε έναν αριθμό στο κελί Α2 στο φύλλο εργασίας. Στη συνέχεια, μπορούμε να εκτελέσουμε τη μακροεντολή για να λάβουμε το όνομα της εταιρείας (δηλαδή της Samsung).
Εάν δεν έχουμε αριθμό στο κελί A3 και εκτελέσουμε τον κωδικό, επιστρέφεται σφάλμα ασυμφωνίας τύπου.
Δημιουργία προσαρμοσμένης λειτουργίας με το VBA Switch
Μπορούμε επίσης να δημιουργήσουμε μια προσαρμοσμένη συνάρτηση χρησιμοποιώντας το διακόπτη VBA και να τη χρησιμοποιήσουμε στο βιβλίο εργασίας μας.
| 123 | Λειτουργία SwitchStatement (i As Integer) Ως συμβολοσειράSwitchStatement = Switch (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Λειτουργία Τέλους |
Για να το χρησιμοποιήσετε αυτό μέσα στο βιβλίο εργασίας μας, μπορούμε να χρησιμοποιήσουμε το παράθυρο διαλόγου Εισαγωγή συνάρτησης.
Κάντε κλικ στο κελί A3 και, στη συνέχεια, κάντε κλικ στην επιλογή Εισαγωγή συνάρτησης στη γραμμή λειτουργιών.
Από το παράθυρο διαλόγου Εισαγωγή συνάρτησης, επιλέξτε Ορισμένο από τον χρήστη από το Επιλέξτε την αναπτυσσόμενη λίστα Κατηγορίακαι, στη συνέχεια, επιλέξτε SwitchStatement.
Κάντε κλικ ΕΝΤΑΞΕΙ, και στη συνέχεια κάντε κλικ στο κελί Α2.
Το όνομα της εταιρείας, όπως είναι αποθηκευμένο στη δήλωση Switch, θα επιστρέψει στο φύλλο εργασίας μας.
