Προσθέστε τα στοιχεία ελέγχου | Εμφάνιση της φόρμας χρήστη | Εκχωρήστε τις μακροεντολές | Δοκιμάστε τη μορφή χρήστη
Αυτό το κεφάλαιο σας διδάσκει πώς να δημιουργήσετε ένα Excel VBA Userform Το Η μορφή χρήστη που πρόκειται να δημιουργήσουμε έχει την εξής μορφή:
Προσθέστε τα στοιχεία ελέγχου
Για να προσθέσετε τα στοιχεία ελέγχου στη μορφή χρήστη, εκτελέστε τα ακόλουθα βήματα.
1. Ανοίξτε το Visual Basic Editor Το Εάν η Εξερεύνηση έργου δεν είναι ορατή, κάντε κλικ στην επιλογή Προβολή, Εξερεύνηση έργου.
2. Κάντε κλικ στην επιλογή Εισαγωγή, Μορφή χρήστη. Εάν η Εργαλειοθήκη δεν εμφανίζεται αυτόματα, κάντε κλικ στην επιλογή Προβολή, Εργαλειοθήκη. Η οθόνη σας θα πρέπει να ρυθμιστεί ως παρακάτω.
3. Προσθέστε τα στοιχεία ελέγχου που παρατίθενται στον παρακάτω πίνακα. Μόλις ολοκληρωθεί αυτό, το αποτέλεσμα θα πρέπει να είναι σύμφωνο με την εικόνα της φόρμας χρήστη που εμφανίστηκε νωρίτερα. Για παράδειγμα, δημιουργήστε ένα στοιχείο ελέγχου πλαισίου κειμένου κάνοντας κλικ στο TextBox από την Εργαλειοθήκη. Στη συνέχεια, μπορείτε να σύρετε ένα πλαίσιο κειμένου στο Userform. Όταν φτάσετε στο πλαίσιο αυτοκινήτου, θυμηθείτε να σχεδιάσετε πρώτα αυτό το πλαίσιο πριν τοποθετήσετε τα δύο κουμπιά επιλογών σε αυτό.
4. Αλλάξτε τα ονόματα και τους υπότιτλους των στοιχείων ελέγχου σύμφωνα με τον παρακάτω πίνακα. Τα ονόματα χρησιμοποιούνται στον κώδικα VBA του Excel. Οι υπότιτλοι είναι εκείνοι που εμφανίζονται στην οθόνη σας. Είναι καλή πρακτική να αλλάζετε τα ονόματα των στοιχείων ελέγχου. Αυτό θα διευκολύνει την ανάγνωση του κωδικού σας. Για να αλλάξετε τα ονόματα και τους υπότιτλους των στοιχείων ελέγχου, κάντε κλικ στην επιλογή Προβολή, Παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε στοιχείο ελέγχου.
Ελεγχος | Ονομα | Λεζάντα |
---|---|---|
Μορφή χρήστη | DinnerPlannerUserForm | Σχεδιαστής δείπνου |
Πλαίσιο κειμένου | NameTextBox | |
Πλαίσιο κειμένου | PhoneTextBox | |
Πλαίσιο λίστας | CityListBox | |
Combo Box | DinnerComboBox | |
Πλαίσιο ελέγχου | DateCheckBox1 | 13 Ιουνίου |
Πλαίσιο ελέγχου | DateCheckBox2 | 20 Ιουνίου |
Πλαίσιο ελέγχου | DateCheckBox3 | 27 Ιουνίου |
Πλαίσιο | CarFrame | Αυτοκίνητο |
Κουμπί επιλογής | Κουμπί CarOptionB1 | Ναί |
Κουμπί επιλογής | CarOptionButton2 | Οχι |
Πλαίσιο κειμένου | MoneyTextBox | |
Κουμπί περιστροφής | Κουμπί MoneySpin | |
Κουμπί εντολής | OKButton | Εντάξει |
Κουμπί εντολής | ClearButton | Σαφή |
Κουμπί εντολής | Κουμπί Ακύρωση | Ματαίωση |
7 Ετικέτες | Δεν χρειάζεται αλλαγή | Όνομα :, Αριθμός τηλεφώνου :, κ.λπ. |
Σημείωση: ένα σύνθετο πλαίσιο είναι μια αναπτυσσόμενη λίστα από όπου ένας χρήστης μπορεί να επιλέξει ένα στοιχείο ή να συμπληρώσει τη δική του επιλογή. Μόνο ένα από τα κουμπιά επιλογής μπορεί να επιλεγεί.
Εμφάνιση της φόρμας χρήστη
Για να εμφανίσετε τη μορφή χρήστη, τοποθετήστε ένα κουμπί εντολής στο φύλλο εργασίας σας και προσθέστε την ακόλουθη γραμμή κώδικα:
εκχώρηση αριθμητικής τιμής σε κείμενο στο excelΙδιωτικός ΥποCommandButton1_Click ()
DinnerPlannerUserForm.Show
Τέλος Υπο
Τώρα θα δημιουργήσουμε το Sub UserForm_Initialize. Όταν χρησιμοποιείτε τη μέθοδο Εμφάνιση για τη μορφή χρήστη, αυτό το δευτερεύον στοιχείο θα εκτελεστεί αυτόματα.
1. Ανοίξτε το Visual Basic Editor Το
2. Στο Project Explorer, κάντε δεξί κλικ στο DinnerPlannerUserForm και, στη συνέχεια, κάντε κλικ στην επιλογή Προβολή κώδικα.
3. Επιλέξτε Userform από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε Αρχικοποίηση από τη δεξιά αναπτυσσόμενη λίστα.
4. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Ιδιωτικός ΥποUserForm_Initialize ()'Empty NameTextBox
NameTextBox.Value = '
'Άδειο PhoneTextBox
PhoneTextBox.Value = '
'Άδειο CityListBox
CityListBox.Clear
'Γεμίστε το CityListBox
ΜεCityListBox
.AddItem 'San Francisco'
.AddItem 'Oakland'
.AddItem 'Richmond'
Τέλος Με
'Άδειο δείπνοComboBox
DinnerComboBox.Clear
'Γεμίστε DinnerComboBox
ΜεDinnerComboBox
.AddItem 'Italian'
.AddItem 'Chinese'
.AddItem 'Frites and Meat'
Τέλος Με
'Καταργήστε την επιλογή DataCheckBoxes
DateCheckBox1.Value =Ψευδής
DateCheckBox2.Value =Ψευδής
DateCheckBox3.Value =Ψευδής
«Ορίστε κανένα αυτοκίνητο ως προεπιλογή
CarOptionButton2.Value =Αληθής
'Empty MoneyTextBox
MoneyTextBox.Value = '
«Ορίστε την εστίαση στο NameTextBox
NameTextBox.SetFocus
Τέλος Υπο
Επεξήγηση: τα πλαίσια κειμένου αδειάζουν, τα πλαίσια λίστας και τα σύνθετα πλαίσια συμπληρώνονται, τα πλαίσια ελέγχου δεν είναι επιλεγμένα κ.λπ.
Εκχωρήστε τις μακροεντολές
Δημιουργήσαμε τώρα το πρώτο μέρος του Userform. Παρόλο που φαίνεται ήδη τακτοποιημένο, τίποτα δεν θα συμβεί ακόμη όταν κάνουμε κλικ στα κουμπιά εντολών στο Userform.
1. Ανοίξτε το Visual Basic Editor Το
πώς να αφαιρέσετε κενές γραμμές στο excel mac
2. Στο Project Explorer, κάντε διπλό κλικ στο DinnerPlannerUserForm.
3. Κάντε διπλό κλικ στο κουμπί περιστροφής χρημάτων.
4. Προσθέστε την ακόλουθη γραμμή κωδικού:
Ιδιωτικός ΥποMoneySpinButton_Change ()MoneyTextBox.Text = MoneySpinButton.Value
Τέλος Υπο
Επεξήγηση: αυτή η γραμμή κωδικού ενημερώνει το πλαίσιο κειμένου όταν χρησιμοποιείτε το κουμπί περιστροφής.
5. Κάντε διπλό κλικ στο κουμπί OK.
6. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Ιδιωτικός ΥποOKButton_Click ()Κανέναςκενή σειράΟπως και Μακρύς
«Κάντε το Sheet1 ενεργό
Φύλλο 1. Ενεργοποιήστε
«Προσδιορίστε την κενή σειρά
emptyRow = WorksheetFunction.CountA (Εύρος ('A: A')) + 1
«Μεταφορά πληροφοριών
Κελιά (κενόRow, 1) .Value = NameTextBox.Value
Κελιά (κενόRow, 2) .Value = PhoneTextBox.Value
Κελιά (κενόRow, 3) .Value = CityListBox.Value
Κελιά (κενόRow, 4) .Value = DinnerComboBox.Value
ΑνDateCheckBox1.Value =Αληθής ΤότεΚελιά (κενόRow, 5) .Value = DateCheckBox1.Caption
ΑνDateCheckBox2.Value =Αληθής ΤότεΚελιά (κενό Σειρά, 5). Αξία = Κελιά (κενό Σειρά, 5). Αξία & '& DateCheckBox2.Caption
ΑνDateCheckBox3.Value =Αληθής ΤότεΚελιά (κενό Σειρά, 5). Αξία = Κελιά (κενό Σειρά, 5). Αξία & '& DateCheckBox3.Caption
ΑνCarOptionButton1.Value =Αληθής Τότε
Κελιά (κενή σειρά, 6). Αξία = 'Ναι'
Αλλού
Κελιά (κενή σειρά, 6). Αξία = 'Όχι'
Τέλος Αν
Κελιά (κενόRow, 7) .Value = MoneyTextBox.Value
Τέλος Υπο
Επεξήγηση: πρώτα, ενεργοποιούμε το Sheet1. Στη συνέχεια, καθορίζουμε το κενό Row. Η μεταβλητή emptyRow είναι η πρώτη κενή σειρά και αυξάνεται κάθε φορά που προστίθεται μια εγγραφή. Τέλος, μεταφέρουμε τις πληροφορίες από το Userform στις συγκεκριμένες στήλες του κενού Row.
7. Κάντε διπλό κλικ στο κουμπί Εκκαθάριση.
8. Προσθέστε την ακόλουθη γραμμή κωδικού:
Ιδιωτικός ΥποClearButton_Click ()ΚλήσηUserForm_Initialize
Τέλος Υπο
Επεξήγηση: αυτή η γραμμή κώδικα καλεί το Sub UserForm_Initialize όταν κάνετε κλικ στο κουμπί Εκκαθάριση.
9. Κάντε διπλό κλικ στο κουμπί Ακύρωση.
10. Προσθέστε την ακόλουθη γραμμή κωδικού:
Ιδιωτικός ΥποCancelButton_Click ()Ξεφορτώστε Με
Τέλος Υπο
Επεξήγηση: αυτή η γραμμή κωδικού κλείνει τη φόρμα χρήστη όταν κάνετε κλικ στο κουμπί Ακύρωση.
Δοκιμάστε τη μορφή χρήστη
Βγείτε από το Visual Basic Editor, εισαγάγετε τις ετικέτες που εμφανίζονται παρακάτω στη γραμμή 1 και δοκιμάστε τη μορφή χρήστη.
Αποτέλεσμα:
Μετάβαση στο επόμενο κεφάλαιο: