Πώς να χρησιμοποιήσετε το Select Case Statement στο VBA; (Παραδείγματα)

Excel VBA Επιλέξτε Δήλωση περίπτωσης

Το Select Case είναι ένα υποκατάστατο της καταγραφής πολλαπλών αν δηλώσεων στο VBA, όταν έχουμε πολλές προϋποθέσεις σε έναν κώδικα, ίσως χρειαστεί να χρησιμοποιήσουμε πολλαπλές δηλώσεις If και οι οποίες μπορεί να είναι κουραστικές καθώς γίνεται πιο περίπλοκη όσο περισσότερες από τις δηλώσεις If παρέχονται, στο επιλέξτε δήλωση περίπτωσης ορίζουμε τα κριτήρια ως διαφορετικές περιπτώσεις και αποτελέσματα σύμφωνα με αυτά.

Η επιλογή SELECT CASE βοηθά στη διαδικασία λήψης αποφάσεων. Σε αυτό, χρησιμοποιείται μόνο μία έκφραση για την αξιολόγηση των διαφορετικών πιθανών περιπτώσεων. Πολλαπλές συνθήκες αναλύονται εύκολα για την εκτέλεση του κώδικα που αναπτύχθηκε. Αυτή η δήλωση περίπτωσης χρησιμοποιείται ως υποκατάστατη δήλωση στο ELSE IF για την αξιολόγηση των εκφράσεων. Κατατάσσεται ως μια λογική συνάρτηση που ενσωματώνεται στο Excel. Για να χρησιμοποιήσετε αυτήν τη συνάρτηση, ο κωδικός εισάγεται μέσω οπτικού βασικού προγράμματος επεξεργασίας που εμφανίζεται στην καρτέλα προγραμματιστή.

Εξήγηση

Στην περίπτωση επιλογής χρησιμοποιούνται διάφορες ομάδες δηλώσεων. Πρέπει να ακολουθηθεί η ακόλουθη σύνταξη για να χρησιμοποιηθεί αποτελεσματικά. Είναι παρόμοιο με τη δήλωση εναλλαγής που παρουσιάζεται σε άλλες γλώσσες προγραμματισμού όπως Java, C # και PHP.

 Επιλέξτε [Περίπτωση] Έκφραση για δοκιμή [Περίπτωση] Λίστα δηλώσεων έκφρασης (Περίπτωση 1, Περίπτωση 2, Περίπτωση 3 και ούτω καθεξής ...) Υπόθεση άλλο (Δηλώσεις Else) Τέλος Επιλογή 

Η εξήγηση για τους όρους που σχετίζονται με την περίπτωση επιλογής παρέχεται ως εξής

Μια έκφραση για δοκιμή: Απαιτείται η αξιολόγηση των διαφόρων τύπων δεδομένων, όπως ακέραιος, συμβολοσειρά, boolean, αντικείμενο και χαρακτήρας.

Λίστα εκφράσεων:  Οι εκφράσεις δημιουργούνται με τη θήκη για την εύρεση της ακριβούς αντιστοίχισης της εισαχθείσας εισόδου. Εάν περισσότερες από δύο εκφράσεις, αυτές διαχωρίζονται χρησιμοποιώντας τον τελεστή κόμμα. Το «Is» είναι μια λέξη-κλειδί που χρησιμοποιείται για τη σύγκριση των δύο εκφράσεων χρησιμοποιώντας τους λογικούς τελεστές στο excel όπως =,, =.

  • End Select: Κλείνει τον ορισμό περίπτωσης επιλογής κατασκευαστή
  • Δηλώσεις: Οι δηλώσεις αναπτύσσονται χρησιμοποιώντας τη θήκη για την εκτέλεση των εκφράσεων που αξιολογούνται για ανάλυση εάν υπάρχει κάποια αντίστοιχη δήλωση
  • Else Statements: Είναι να ελέγξετε την άλλη δήλωση όταν η δοκιμαστική έκφραση δεν ταιριάζει με καμία δήλωση περίπτωσης.

Πώς να χρησιμοποιήσετε το VBA Select Case Statement;

Η δυνατότητα επιλογής περίπτωσης που παρέχεται από το VBA δεν εκτελείται στα κανονικά φύλλα εργασίας. Πρέπει να χρησιμοποιήσουμε την επιλογή Visual Basic στην καρτέλα Προγραμματιστής. Λειτουργίες και κωδικοποιήσεις που καθορίζονται από τον χρήστη που δημιουργήθηκαν στη λειτουργία προγραμματιστή για την εκτέλεση των διαφόρων μικρών εφαρμογών στον επιχειρηματικό τομέα.

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

  • Πρώτα απ 'όλα, πρέπει να δημιουργήσετε μια μακροεντολή τοποθετώντας τον έλεγχο κουμπιών εντολών στο φύλλο excel.
  • Μετά από αυτό κάντε δεξί κλικ στο κουμπί εντολής και επιλέξτε την επιλογή κώδικα προβολής
  • Τοποθετήστε τον κωδικό μεταξύ της λειτουργίας του κουμπιού εντολών και του δευτερεύοντος τμήματος
  • Εντοπίστε τον κώδικα για να εντοπίσετε τυχόν σφάλματα σύνταξης.
  • Μεταγλωττίστε τον κώδικα για να βρείτε σφάλματα συλλογής για την επιτυχή εκτέλεση του προγράμματος
  • Αλλάξτε τις τιμές εισαγωγής για να παρατηρήσετε διαφορετικά αποτελέσματα με βάση τα κριτήρια αντιστοίχισης
Μπορείτε να πραγματοποιήσετε λήψη αυτού του προτύπου VBA Select Case Excel - VBA Select Case Excel Template

Παράδειγμα # 1 - Απλή επιλογή δήλωσης περίπτωσης

Αυτό το παράδειγμα είναι να κατανοήσετε την απλή επιλογή για να βρείτε την αντίστοιχη τιμή.

Κώδικας:

Private Sub Selcaseexmample () Dim A As Integer A = 20 Select Case A Case 10 MsgBox "Η πρώτη περίπτωση ταιριάζει!" Περίπτωση 20 MsgBox "Η δεύτερη περίπτωση ταιριάζει!" Περίπτωση 30 MsgBox "Η τρίτη περίπτωση αντιστοιχεί στην επιλογή περίπτωσης!" Περίπτωση 40 MsgBox "Η τέταρτη περίπτωση αντιστοιχεί στην επιλογή περίπτωσης!" Case Else MsgBox "Καμία από τις περιπτώσεις δεν ταιριάζει!" End Επιλέξτε End Sub

Αποτέλεσμα:

Η δήλωση τεσσάρων περιπτώσεων και η υπόθεση αλλιώς χρησιμοποιούνται για τη σύγκριση της έκφρασης δοκιμής με διαφορετικές περιπτώσεις. Στο παρόν παράδειγμα, η δεύτερη περίπτωση αντιστοιχεί ως μεταβλητή Α ταιριάζει με 20.

Παράδειγμα # 2 - Λέξη-κλειδί «Προς» για να δοκιμάσετε τους βαθμούς

Αυτό το παράδειγμα εξηγεί τη χρήση της λέξης-κλειδιού «Προς» με την περίπτωση.

Κώδικας:

Private Sub Selcasetoexample () Σβήστε τους σελιδοδείκτες ως Integer μαθητές = InputBox ("Εισαγάγετε σημάδια μεταξύ 1 έως 100;") Επιλέξτε Περίπτωση μαθηματικών σημείων Περίπτωση 1 έως 36 MsgBox "Αποτυχία!" Περίπτωση 37 έως 55 MsgBox "C Grade" Περίπτωση 56 έως 80 MsgBox "B Grade" Περίπτωση 81 έως 100 MsgBox "A Grade" Case Else MsgBox "Out of range" End Select End Sub

Αποτέλεσμα:

Η λέξη-κλειδί «To» είναι χρήσιμη για τον καθορισμό του συνόλου των δοκιμαστικών εκφράσεων σε ένα εύρος. Είναι χρήσιμο στην εύρεση του βαθμού που έχει αποκτήσει ένας μαθητής συγκρίνοντας τις διάφορες περιπτώσεις. Μετά την εκτέλεση του προγράμματος, πρέπει να εισαγάγουμε την τιμή για να πάρουμε το αποτέλεσμα.

Η έξοδος εμφανίζεται με ένα πλαίσιο μηνύματος όπως φαίνεται στο παραπάνω στιγμιότυπο οθόνης.

Παράδειγμα # 3 - Χρήση λέξης-κλειδιού 'Is' με επιλογή πεζών-κεφαλαίων

Αυτό το παράδειγμα δείχνει τη χρήση της λέξης-κλειδιού «Is» με την περίπτωση.

Κώδικας:

 Sub CheckNumber () Dim NumInput As Integer NumInput = InputBox ("Παρακαλώ εισάγετε έναν αριθμό") Επιλέξτε Περίπτωση NumInput Case Is = 200 MsgBox "Εισαγάγατε έναν αριθμό μεγαλύτερο ή ίσο με 200" End Select End Sub 

Η λέξη-κλειδί "Is" βοηθά στην εύρεση των αντιστοιχισμένων τιμών με μόνο δηλώσεις πεζών. Συγκρίνει τη δοκιμαστική έκφραση με δεδομένη είσοδο για να παράγει την έξοδο.

Η έξοδος λαμβάνεται όπως φαίνεται στο σχήμα εάν η τιμή που έχει εισαχθεί είναι μεγαλύτερη από 200

Παράδειγμα # 4 - Με το κουμπί εντολών για αλλαγή των τιμών

Η περίπτωση επιλογής χρησιμοποιείται επίσης με το κουμπί Command δημιουργώντας μια μακροεντολή.

Κώδικας:

 Υπο χρώμα () Αχνό χρώμα ως Χρώμα συμβολοσειράς = Εύρος ("A1"). Τιμή Επιλογή χρώματος θήκης Θήκη "Κόκκινο", "Πράσινο", "Κίτρινο" Εύρος ("B1"). Τιμή = 1 Περίπτωση "Λευκό", "Μαύρο "," Brown "Range (" B1 "). Value = 2 Case" Blue "," Sky Blue "Range (" B1 "). Value = 3 Case Else Range (" B1 "). Value = 4 End Select End Sub 

Όπως φαίνεται στο πρόγραμμα, η είσοδος λαμβάνεται από τα κελιά του φύλλου εργασίας. Το πρόγραμμα εκτελείται αφού κάνετε κλικ στο κουμπί εντολής που χρησιμοποιείται από τα στοιχεία ελέγχου ActiveX. Σε αυτό, ένας διαχωριστής κόμμα χρησιμοποιείται για να συνδυάσει τις εκφράσεις δοκιμής.

Όταν η τιμή στο κελί A1 άλλαξε, οδηγεί σε μια αλλαγή στο κελί B1 επίσης, εκτελώντας τη μακροεντολή excel μέσω του κουμπιού εντολής. Μπορείτε να ανατρέξετε στο παρακάτω στιγμιότυπο οθόνης: -

Παράδειγμα # 5 - Ελέγξτε έναν αριθμό μονό ή ζυγό

Αυτό το παράδειγμα για τον έλεγχο ενός αριθμού είναι ζυγό ή περίεργο.

Κώδικας:

 Sub CheckOddEven () CheckValue = InputBox ("Enter the Number") Select Case (CheckValue Mod 2) = 0 Case True MsgBox "Ο αριθμός είναι ομοιόμορφος" Case False MsgBox "Ο αριθμός είναι μονός" End Select End Sub 

Η κωδικοποίηση αναπτύσσεται όπως φαίνεται στο στιγμιότυπο οθόνης και η έξοδος εμφανίζεται ως εξής όταν εισάγεται ο ζυγός αριθμός.

Παράδειγμα # 6 - Ένθετες Επιλογή Περιπτώσεων

Η ένθεση είναι ένα χρήσιμο χαρακτηριστικό της επιλεγμένης θήκης και του τρόπου με τον οποίο γίνεται.

Κώδικας:

 Sub TestWeekday () Select Case Case Weekday (Now) Case 1, 7 Select Case Case Weekday (Now) Case 1 MsgBox "Today is Sunday" Case Else MsgBox "Today is Saturday" End Select Case Else MsgBox "Σήμερα είναι μια ημέρα εβδομάδας" Τέλος Επιλέξτε λήξη Υπο 

Εδώ η επιλογή υπόθεσης ορίζεται μέσα σε μια άλλη περίπτωση επιλογής για δοκιμή μιας ημέρας, μιας εβδομάδας ή ενός Σαββατοκύριακου. Εκτός από τις περιπτώσεις 1 και 7 που απομένουν, όλες είναι τις καθημερινές (Σημείωση: η περίπτωση 1 είναι Κυριακή και η περίπτωση 7 είναι Σάββατο)

Πράγματα που πρέπει να θυμάστε

  • Η λέξη-κλειδί «Is» που χρησιμοποιείται στη δήλωση των [case] και [case else] δεν είναι ίδια.
  • Ο έλεγχος ActiveX πρέπει να χρησιμοποιείται για την εκτέλεση προγράμματος μέσω ενός κουμπιού εντολών λαμβάνοντας είσοδο και εμφάνιση εξόδου στο εύρος φύλλων excel των κελιών.
  • Είναι δύσκολο να εκτελέσετε τα προγράμματα στο VBA εάν οι μακροεντολές είναι απενεργοποιημένες και επιτρέπουν πάντα στις μακροεντολές να έχουν καλύτερα αποτελέσματα.
  • Το VBA είναι διάκριση πεζών-κεφαλαίων και η εισαγωγή πρέπει να εισαχθεί με ακρίβεια για να έχετε καλύτερα αποτελέσματα.

$config[zx-auto] not found$config[zx-overlay] not found