Πώς να χρησιμοποιήσετε τη δομή της επιλογής περιπτώσεων στο Excel 2016 VBA - dummies

Η δομή Select Case είναι μια χρήσιμη δομή VBA για αποφάσεις που αφορούν τρία ή περισσότερα επιλογές στο Excel 2016 (αν και λειτουργεί επίσης με δύο επιλογές, παρέχοντας μια εναλλακτική λύση στη δομή If-Then-Else).

Το παράδειγμα Example Case

Το ακόλουθο παράδειγμα δείχνει πώς να χρησιμοποιήσετε τη δομή Select Case:

Sub ShowDiscount3 () Dim Ποσότητα Μεγάλη Dim Έκπτωση Διπλή Ποσότητα = InputBox ("Enter Quantity" Περίπτωση 0 έως 24 Έκπτωση = 0. 1 Περίπτωση 25 έως 49 Έκπτωση = 0. 15 Περίπτωση 50 έως 74 Έκπτωση = 0. 2 Περίπτωση είναι> = 75 Έκπτωση = 0. 25 Τέλος Επιλογή MsgBox "Έκπτωση:" & Έκπτωση End Sub > Σε αυτό το παράδειγμα, αξιολογείται η μεταβλητή Ποσότητα. Η ρουτίνα ελέγχει για τέσσερις διαφορετικές περιπτώσεις (0-24, 25-49, 50-74, και 75 ή μεγαλύτερες).

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

Sub ShowDiscount4 () Dim Ποσότητα Μεγάλη Dim Έκπτωση ως Διπλή Ποσότητα = InputBox ("Εισαγωγή Ποσότητας:") Επιλογή Περίπτωση Ποιότητας υπόθεση 0 έως 24: Έκπτωση = 49: Έκπτωση = 0. 15 Περίπτωση 50 έως 74: Έκπτωση = 0. 2 Περίπτωση είναι> = 75: Έκπτωση = 0. 25 Τέλος Επιλογή MsgBox "Έκπτωση" & Έκπτωση Sub

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

Ένα ένθετο Επιλέξτε Παράδειγμα υπόθεσης

Όπως φαίνεται στο παρακάτω παράδειγμα, μπορείτε να επιλέξετε το στοιχείο Επιλογή δομών κειμένου. Αυτή η ρουτίνα εξετάζει το ενεργό κελί και εμφανίζει ένα μήνυμα που περιγράφει τα περιεχόμενα του κελιού. Παρατηρήστε ότι η διαδικασία έχει τρεις δομές Select Case και η κάθε μία έχει τη δική της πρόταση End End:

Sub CheckCell () Dim Msg As Select String Η υπόθεση IsEmpty (ActiveCell) True Msg = "είναι κενή. Msgstr "Περίπτωση αλλιώς Επιλογή θήκης ActiveCell. HasFormula Case True Msg = "έχει έναν τύπο" Περίπτωση Case Else Επιλέξτε υπόθεση Case IsNumeric (ActiveCell) True Msg = "έχει αριθμό" Περίπτωση Else Msg = "έχει κείμενο" Τέλος Επιλογή Τέλος Επιλογή Τέλος Επιλογή MsgBox "Cell" & ActiveCell. Διεύθυνση & "& Msg End Sub

Η λογική έχει ως εξής:

Μάθετε εάν η κελιά είναι κενή.

1. Εάν δεν είναι άδειο, δείτε εάν περιέχει μια φόρμουλα.

2. Αν δεν υπάρχει τύπος, μάθετε αν περιέχει αριθμητική τιμή ή κείμενο.

3. Όταν ολοκληρωθεί η ρουτίνα, η μεταβλητή Msg περιέχει μια συμβολοσειρά που περιγράφει τα περιεχόμενα του κελιού. Η λειτουργία MsgBox εμφανίζει αυτό το μήνυμα.

Ένα μήνυμα που εμφανίζεται από τη διαδικασία CheckCell.

Μπορείτε να φωλιάζετε τις δομές περιπτώσεων τόσο βαθιά όσο χρειάζεται, αλλά βεβαιωθείτε ότι κάθε δήλωση Select Case έχει μια αντίστοιχη εντολή End Select.

Εάν δεν είστε ακόμα πεπεισμένοι ότι αξίζει τον κόπο η προσπάθεια, η προηγούμενη λίστα χρησιμεύει ως καλό παράδειγμα. Οι εγκοπές πραγματικά να κάνουν τα επίπεδα φωλιάσματος σαφή. Ρίξτε μια ματιά στην ίδια διαδικασία χωρίς οποιαδήποτε οδόντωση:

Sub CheckCell () Dim Msg As Select String Η υπόθεση IsEmpty (ActiveCell) True Msg = "είναι κενή. Msgstr "Περίπτωση αλλιώς Επιλογή θήκης ActiveCell. HasFormula Case True Msg = "έχει έναν τύπο" Περίπτωση Case Else Επιλέξτε υπόθεση Case IsNumeric (ActiveCell) True Msg = "έχει αριθμό" Περίπτωση Else Msg = "έχει κείμενο" Τέλος Επιλογή Τέλος Επιλογή Τέλος Επιλογή MsgBox "Cell" & ActiveCell. Διεύθυνση & "& Msg End Sub

Αρκετά ακατανόητο, ε;