300 Παραδείγματα

Μορφή χρήστη με πολλές σελίδες

Userform With Multiple Pages

Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA που δημιουργεί μια μορφή χρήστη που περιέχει πολλές σελίδες. Αυτή η μορφή χρήστη περιέχει επίσης εικόνες.





Το στοιχείο ελέγχου πολλαπλών σελίδων περιέχει δύο σελίδες. Στη σελίδα 1, ο χρήστης μπορεί να συμπληρώσει τα προσωπικά του στοιχεία. Στη σελίδα 2, ο χρήστης μπορεί να υποδείξει ποιος πίνακας του αρέσει περισσότερο.

Σελίδα μορφής χρήστη 1 Σχήμα χρήστη 2





Για να δημιουργήσετε αυτήν τη μορφή χρήστη, εκτελέστε τα ακόλουθα βήματα.

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



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

Userform Screen Setup στο Excel VBA

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

4. Μπορείτε να αλλάξετε τα ονόματα και τους υπότιτλους των στοιχείων ελέγχου. Τα ονόματα χρησιμοποιούνται στον κώδικα VBA του Excel. Οι υπότιτλοι είναι εκείνοι που εμφανίζονται στην οθόνη σας. Είναι καλή πρακτική να αλλάζουμε τα ονόματα των στοιχείων ελέγχου, αλλά δεν είναι απαραίτητο εδώ επειδή έχουμε μόνο μερικά στοιχεία ελέγχου σε αυτό το παράδειγμα. Για να αλλάξετε τη λεζάντα της φόρμας χρήστη, καρτέλες πολλαπλών σελίδων, ετικέτες, πλαίσιο, κουμπιά επιλογών και κουμπί εντολών, κάντε κλικ στην επιλογή Προβολή, παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε στοιχείο ελέγχου.

πώς να υπολογίσετε την ποσοστιαία μεταβολή στο Excel

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

Ιδιωτικός ΥποCommandButton1_Click ()

UserForm1.Show

Τέλος Υπο

Τώρα θα δημιουργήσουμε το Sub UserForm_Initialize. Όταν χρησιμοποιείτε τη μέθοδο Εμφάνιση για τη μορφή χρήστη, αυτό το δευτερεύον στοιχείο θα εκτελεστεί αυτόματα.

6. Ανοίξτε το Visual Basic Editor Το

7. Στο Project Explorer, κάντε δεξί κλικ στο UserForm1 και, στη συνέχεια, κάντε κλικ στην επιλογή Προβολή κώδικα.

8. Επιλέξτε Userform από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε Αρχικοποίηση από τη δεξιά αναπτυσσόμενη λίστα.

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

Ιδιωτικός ΥποUserForm_Initialize ()

ΜεListBox1
.AddItem 'Βουνά'
.AddItem 'Sunset'
.AddItem 'Beach'
.AddItem «Χειμώνας»
Τέλος Με

Τέλος Υπο

Επεξήγηση: θα συμπληρωθεί το πλαίσιο λίστας στη σελίδα 2.

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

10. Κατεβάστε τις εικόνες (δεξιά πλευρά αυτής της σελίδας) και προσθέστε τις στο 'C: test '

11. Στο Project Explorer, κάντε διπλό κλικ στο UserForm1.

12. Κάντε διπλό κλικ στο πλαίσιο λίστας.

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

Ιδιωτικός ΥποListBox1_Click ()

ΑνListBox1.ListIndex = 0Τότε
Image1.Picture = LoadPicture ('C: test Mountains.jpg')
Τέλος Αν

ΑνListBox1.ListIndex = 1Τότε
Image1.Picture = LoadPicture ('C: test Sunset.jpg')
Τέλος Αν

ΑνListBox1.ListIndex = 2Τότε
Image1.Picture = LoadPicture ('C: test Beach.jpg')
Τέλος Αν

ΑνListBox1.ListIndex = 3Τότε
Image1.Picture = LoadPicture ('C: test Winter.jpg')
Τέλος Αν

Τέλος Υπο

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

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

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

Ιδιωτικός ΥποCommandButton1_Click ()

Κανέναςκενή σειράΟπως και Μακρύς

«Κάντε το Sheet1 ενεργό
Φύλλο 1. Ενεργοποιήστε

«Προσδιορίστε την κενή σειρά
emptyRow = WorksheetFunction.CountA (Εύρος ('A: A')) + 1

«Μεταφορά πληροφοριών
Κελιά (κενόRow, 1) .Value = TextBox1.Value
Κελιά (κενόRow, 2) .Value = TextBox2.Value

ΑνOptionButton1.Value =Αληθής Τότε
Κελιά (κενή σειρά, 3). Αξία = 'Αρσενικό'
Αλλού
Κελιά (κενή σειρά, 3). Αξία = 'Γυναίκα'
Τέλος Αν

Κελιά (κενόRow, 4) .Value = ListBox1.Value

«Κλείσιμο φόρμας χρήστη
Ξεφορτώστε Με

Τέλος Υπο

Επεξήγηση: πρώτα, ενεργοποιούμε το Sheet1. Στη συνέχεια, καθορίζουμε το κενό Row. Η μεταβλητή emptyRow είναι η πρώτη κενή σειρά και αυξάνεται κάθε φορά που προστίθεται μια εγγραφή. Στη συνέχεια, μεταφέρουμε τις πληροφορίες από το Userform στις συγκεκριμένες στήλες του κενού Row. Τέλος, κλείνουμε το Userform.

16. Βγείτε από το Visual Basic Editor, εισαγάγετε τις ετικέτες που εμφανίζονται παρακάτω στη γραμμή 1 και δοκιμάστε τη μορφή χρήστη.

Αποτέλεσμα:

Δοκιμάστε τη μορφή χρήστη

10/11 Ολοκληρώθηκε! Μάθετε περισσότερα για τις μορφές χρηστών>
Μετάβαση στο επόμενο κεφάλαιο: Εύρος



^