Αντί για πολλαπλές δηλώσεις If then Excel VBA, μπορείτε να χρησιμοποιήσετε το Επιλέξτε Δομή υπόθεσης.
Κατάσταση:
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώστε δύο μεταβλητές. Μια μεταβλητή τύπου Αριθμός με όνομα βαθμολογία και μία μεταβλητή τύπου Συμβολοσειρά με όνομα αποτέλεσμα.
Χαμηλή βαθμολογία ως ακέραιος, αποτέλεσμα ως συμβολοσειρά
2. Αρχικοποιούμε τη μεταβλητή βαθμολογία με την τιμή του κελιού Α1.
σκορ = Εύρος ("A1"). Τιμή
3. Προσθέστε τη δομή Select Case.
Επιλέξτε Case score
Υπόθεση Is> = 80
αποτέλεσμα = "πολύ καλό"
Υπόθεση Is> = 70
αποτέλεσμα = "καλό"
Υπόθεση Is> = 60
αποτέλεσμα = "επαρκές"
Case Else
αποτέλεσμα = "ανεπαρκές"
Τέλος Επιλογή
Επεξήγηση: Το Excel VBA χρησιμοποιεί την τιμή της μεταβλητής βαθμολογίας για να δοκιμάσει κάθε επόμενη πρόταση περίπτωσης για να διαπιστώσει εάν πρέπει να εκτελεστεί ο κώδικας κάτω από τη δήλωση υπόθεσης.
4. Γράψτε την τιμή του αποτελέσματος της μεταβλητής στο κελί Β1.
Εύρος ("Β1"). Τιμή = αποτέλεσμα
5. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:
Σημείωση: Το Excel VBA εκτελεί τον κώδικα στη δεύτερη πρόταση περίπτωσης για όλες τις τιμές μεγαλύτερες ή ίσες με 70 και μικρότερες από 80.
