Με λίγες μόνο γραμμές κώδικα, μπορούμε εύκολα βρόχο μέσω των στοιχείων ελέγχου σε μια Excel VBA Userform. Η μορφή χρήστη που πρόκειται να δημιουργήσουμε φαίνεται ως εξής:
Για να δημιουργήσετε αυτήν τη μορφή χρήστη, εκτελέστε τα ακόλουθα βήματα.
1. Ανοίξτε το Visual Basic Editor. Εάν η Εξερεύνηση έργου δεν είναι ορατή, κάντε κλικ στην επιλογή Προβολή, Εξερεύνηση έργου.
2. Κάντε κλικ στην επιλογή Εισαγωγή, Μορφή χρήστη. Εάν η Εργαλειοθήκη δεν εμφανίζεται αυτόματα, κάντε κλικ στην επιλογή Προβολή, Εργαλειοθήκη. Η οθόνη σας θα πρέπει να ρυθμιστεί όπως παρακάτω.
3. Προσθέστε την ετικέτα, τα πλαίσια ελέγχου (πρώτα στο επάνω μέρος, το δεύτερο κάτω από το πρώτο και ούτω καθεξής) και το κουμπί εντολών. Μόλις ολοκληρωθεί αυτό, το αποτέλεσμα θα πρέπει να είναι σύμφωνο με την εικόνα του Userform που εμφανίστηκε νωρίτερα. Για παράδειγμα, δημιουργήστε ένα πλαίσιο ελέγχου, κάνοντας κλικ στο CheckBox από την Εργαλειοθήκη. Στη συνέχεια, μπορείτε να σύρετε ένα πλαίσιο ελέγχου στο Userform.
4. Μπορείτε να αλλάξετε τα ονόματα και τους υπότιτλους των στοιχείων ελέγχου. Τα ονόματα χρησιμοποιούνται στον κώδικα VBA του Excel. Οι υπότιτλοι είναι εκείνοι που εμφανίζονται στην οθόνη σας. Είναι καλή πρακτική να αλλάζουμε τα ονόματα των στοιχείων ελέγχου, αλλά δεν είναι απαραίτητο εδώ επειδή έχουμε μόνο μερικά στοιχεία ελέγχου σε αυτό το παράδειγμα. Για να αλλάξετε τη λεζάντα της φόρμας χρήστη, ετικέτα, πλαίσια ελέγχου και κουμπί εντολών, κάντε κλικ στην επιλογή Προβολή, παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε στοιχείο ελέγχου.
5. Για να εμφανίσετε το Userform, τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε την ακόλουθη γραμμή κώδικα:
Private Sub CommandButton1_Click ()
UserForm1.Show
Τέλος υπο
Δημιουργήσαμε τώρα το πρώτο μέρος του Userform. Παρόλο που φαίνεται ήδη τακτοποιημένο, τίποτα δεν θα συμβεί ακόμη όταν κάνουμε κλικ στο κουμπί Εκκαθάριση.
6. Ανοίξτε το Visual Basic Editor.
7. Στο Project Explorer, κάντε διπλό κλικ στο UserForm1.
8. Κάντε διπλό κλικ στο κουμπί Εκκαθάριση.
9. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Private Sub CommandButton1_Click ()
Dim contr Ως έλεγχος
Για κάθε περιορισμό στο UserForm1.Controls
Εάν TypeName (contr) = "CheckBox" Τότε
contr.Value = Λάθος
Τέλος εαν
Επόμενο
Τέλος υπο
Επεξήγηση: Το Excel VBA περνάει σε όλους τους ελέγχους στη φόρμα χρήστη. Η συνάρτηση TypeName χρησιμοποιείται για το φιλτράρισμα των στοιχείων ελέγχου του πλαισίου ελέγχου. Εάν υπάρχει ένα πλαίσιο ελέγχου, το Excel VBA καταργεί την επιλογή του πλαισίου ελέγχου. Το contr επιλέγεται τυχαία εδώ, μπορείτε να χρησιμοποιήσετε οποιοδήποτε όνομα. Θυμηθείτε να ανατρέξετε σε αυτό το όνομα στον υπόλοιπο κώδικα.
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί Εκκαθάριση:
