Vba

Μορφή χρήστη

Userform

Προσθέστε τα στοιχεία ελέγχου | Εμφάνιση της φόρμας χρήστη | Εκχωρήστε τις μακροεντολές | Δοκιμάστε τη μορφή χρήστη





Αυτό το κεφάλαιο σας διδάσκει πώς να δημιουργήσετε ένα Excel VBA Userform Το Η μορφή χρήστη που πρόκειται να δημιουργήσουμε έχει την εξής μορφή:

Excel VBA Userform





Προσθέστε τα στοιχεία ελέγχου

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

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



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

Userform Screen Setup στο Excel VBA

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 και δοκιμάστε τη μορφή χρήστη.

Αποτέλεσμα:

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

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



^