/ / / Collection VBA Controls Collection

Συλλογή ελέγχου VBA του Excel

Κατά τη δημιουργία Userforms στο Excel VBA, μπορείτε να χρησιμοποιήσετε το Συλλογή στοιχείων ελέγχου για εύκολο βρόχο μέσω των χειριστηρίων και να ορίσετε μια ιδιότητα του κάθε ελέγχου σε μια συγκεκριμένη τιμή.

Το Userform που πρόκειται να δημιουργήσουμε φαίνεται ως εξής:

Συλλογή Ελέγχων στο Excel VBA

Για να δημιουργήσετε αυτό το Userform, εκτελέστε τα παρακάτω βήματα:

1. Ανοίξτε τον Επεξεργαστή Visual Basic. Εάν το Explorer του έργου δεν είναι ορατό, κάντε κλικ στην επιλογή Προβολή, Εξερεύνηση έργου.

2. Κάντε κλικ στην επιλογή Εισαγωγή, Χρήστης. Εάν η Εργαλειοθήκη δεν εμφανίζεται αυτόματα, κάντε κλικ στην επιλογή Προβολή, Εργαλειοθήκη. Η οθόνη σας πρέπει να ρυθμιστεί ως εξής.

Οθόνη ρύθμισης παραμέτρων χρήστη στο Excel VBA

3. Προσθέστε την ετικέτα, τα πλαίσια κειμένου (πρώτα στην κορυφή, το δεύτερο κάτω από το πρώτο και ούτω καθεξής) και το κουμπί εντολών. Μόλις ολοκληρωθεί αυτό το αποτέλεσμα, το αποτέλεσμα πρέπει να είναι συνεπές με την εικόνα του Userform που παρουσιάστηκε νωρίτερα. Για παράδειγμα, δημιουργήστε ένα πλαίσιο ελέγχου κειμένου κάνοντας κλικ στο πλαίσιο κειμένου από την Εργαλειοθήκη. Στη συνέχεια, μπορείτε να σύρετε ένα πλαίσιο κειμένου στο Userform.

4. Για να αλλάξετε τη λεζάντα του Userform, της ετικέτας και του κουμπιού εντολών, κάντε κλικ στην επιλογή Προβολή, παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε έλεγχο.

5. Για να εμφανίσετε το Userform, τοποθετήστε ένα κουμπί εντολής στο φύλλο εργασίας σας και προσθέστε την ακόλουθη γραμμή κώδικα:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Επεξήγηση: προσθέτοντας vbModeless, μπορείτε να χρησιμοποιήσετε την Userform και να δουλέψετε στο φύλλο εργασίας σας ταυτόχρονα.

Δημιουργήσαμε τώρα το πρώτο μέρος του Userform. Παρόλο που φαίνεται ήδη καθαρό, τίποτα δεν θα συμβεί ακόμα όταν πατήσουμε το κουμπί εντολής στο Userform.

6. Ανοίξτε τον επεξεργαστή της Visual Basic.

7. Στην Εξερεύνηση έργου, κάντε διπλό κλικ στο UserForm1.

8. Κάντε διπλό κλικ στο κουμπί εντολών.

9. Προσθέστε τις ακόλουθες γραμμές κώδικα:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

Εξήγηση: Με μερικές μόνο γραμμές κώδικα, μπορούμε να γεμίσουμε τα πλαίσια κειμένου με τους αριθμούς τηλεφώνου από το φύλλο. Χρησιμοποιήσαμε το χειριστή & για να συνενώσουμε τα στοιχεία. Αυτές οι γραμμές κώδικα λειτουργούν επειδή δεν αλλάξαμε τα ονόματα των στοιχείων ελέγχου πλαισίου κειμένου (TextBox1, TextBox2, TextBox3, κλπ.) Για να αλλάξετε τα ονόματα των στοιχείων ελέγχου, κάντε κλικ στην επιλογή Προβολή, Παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε στοιχείο ελέγχου.

Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:

Αποτέλεσμα συλλογής ελέγχου

Επίσης διαβάστε: