Κατά τη δημιουργία φόρμας χρήστη στο Excel VBA, μπορείτε να χρησιμοποιήσετε το Ελέγχει τη συλλογή για εύκολη περιήγηση μέσω στοιχείων ελέγχου και ρύθμιση μιας ιδιότητας κάθε στοιχείου ελέγχου σε μια συγκεκριμένη τιμή.
Η μορφή χρήστη που πρόκειται να δημιουργήσουμε φαίνεται ως εξής:
Για να δημιουργήσετε αυτήν τη φόρμα χρήστη, εκτελέστε τα ακόλουθα βήματα:
1. Ανοίξτε το Visual Basic Editor. Εάν η Εξερεύνηση έργου δεν είναι ορατή, κάντε κλικ στην επιλογή Προβολή, Εξερεύνηση έργου.
2. Κάντε κλικ στην επιλογή Εισαγωγή, Μορφή χρήστη. Εάν η Εργαλειοθήκη δεν εμφανίζεται αυτόματα, κάντε κλικ στην επιλογή Προβολή, Εργαλειοθήκη. Η οθόνη σας θα πρέπει να ρυθμιστεί όπως παρακάτω.
3. Προσθέστε την ετικέτα, τα πλαίσια κειμένου (πρώτα στο επάνω μέρος, το δεύτερο κάτω από το πρώτο και ούτω καθεξής) και το κουμπί εντολών. Μόλις ολοκληρωθεί αυτό, το αποτέλεσμα θα πρέπει να είναι σύμφωνο με την εικόνα του Userform που εμφανίστηκε νωρίτερα. Για παράδειγμα, δημιουργήστε ένα στοιχείο ελέγχου πλαισίου κειμένου κάνοντας κλικ στο TextBox από την Εργαλειοθήκη. Στη συνέχεια, μπορείτε να σύρετε ένα πλαίσιο κειμένου στο Userform.
4. Για να αλλάξετε τη λεζάντα του σχήματος χρήστη, της ετικέτας και του κουμπιού εντολών, κάντε κλικ στην επιλογή Προβολή, παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε στοιχείο ελέγχου.
5. Για να εμφανίσετε το Userform, τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε την ακόλουθη γραμμή κώδικα:
Private Sub CommandButton1_Click ()
UserForm1.Show vbModeless
Τέλος υπο
Επεξήγηση: προσθέτοντας vbModeless, μπορείτε να χρησιμοποιήσετε το Userform και να εργαστείτε ταυτόχρονα στο φύλλο εργασίας σας.
Δημιουργήσαμε τώρα το πρώτο μέρος του Userform. Παρόλο που φαίνεται ήδη τακτοποιημένο, τίποτα δεν θα συμβεί ακόμη όταν κάνουμε κλικ στο κουμπί εντολών στο Userform.
6. Ανοίξτε το Visual Basic Editor.
7. Στο Project Explorer, κάντε διπλό κλικ στο UserForm1.
8. Κάντε διπλό κλικ στο κουμπί εντολών.
9. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Private Sub CommandButton1_Click ()
Dim i As Integer
Για i = 1 έως 10
Στοιχεία ελέγχου ("TextBox" & i). Value = Cells (i + 1, 1). Value
Επόμενο i
Τέλος υπο
Επεξήγηση: Με λίγες μόνο γραμμές κώδικα, μπορούμε να γεμίσουμε τα πλαίσια κειμένου με τους αριθμούς τηλεφώνου από το φύλλο. Χρησιμοποιήσαμε τον τελεστή & για να συνδέσουμε (να ενώσουμε) τα στοιχεία. Αυτές οι γραμμές κώδικα λειτουργούν επειδή δεν αλλάξαμε τα ονόματα των στοιχείων ελέγχου πλαισίου κειμένου (TextBox1, TextBox2, TextBox3 κ.λπ.). Για να αλλάξετε τα ονόματα των στοιχείων ελέγχου, κάντε κλικ στην επιλογή Προβολή, Παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε στοιχείο ελέγχου.
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:
