Πώς να δημιουργήσετε φόρμες Χρησιμοποιώντας το Excel

Δημιουργία φόρμας στο Excel , χρησιμοποιώντας έλεγχοι ομαδοποιούνται σε ένα πλαίσιο , το οποίο θα παράγει απλά πεδία κειμένου όπου ο χρήστης μπορεί να εισάγει τις πληροφορίες της. Δημιουργία τρία κουμπιά εντολής στη φόρμα που θα έχουν επίδραση στις πληροφορίες με τη μορφή , όταν ο χρήστης εκτελεί ένα αριστερό κλικ με το ποντίκι της . Είναι απλό να δημιουργήσετε μια φόρμα που θα παραθέσει οι εργαζόμενοι ή οι διαχειριστές, και να ελέγχουν την κατάστασή τους . Οδηγίες
Η

1 Ανοίξτε ένα βιβλίο εργασίας στο Excel . Εάν γνωρίζετε ποια βιβλίο εργασίας που θέλετε φόρμα σας να ανήκει , τότε τώρα είναι η ώρα για να το ανοίξετε . Χρησιμοποιήστε το μενού Αρχείο για να αποκτήσετε πρόσβαση στο βιβλίο εργασίας . 2

Κάντε κλικ στο μενού "Εργαλεία" , επιλέξτε "Macro " και κάντε κλικ στο " Επεξεργασία Visual Basic . "
Εικόνων 3

Κάντε κλικ στο " Εισαγωγή ", και στη συνέχεια επιλέξτε " UserForm . "
Η 4

Σύρετε ένα κουμπί εντολής στη φόρμα . Χρειάζεται τουλάχιστον τρεις από αυτούς για αυτό το παράδειγμα .
5

Βάλτε ονόματα κουμπιά εντολών και τις ετικέτες σας . Κάντε κλικ στο " View" και " παράθυρο Ιδιότητες . " Κάντε κλικ σε ένα από τα κουμπιά εντολών που έχετε τοποθετήσει στη φόρμα .
Η 6

Ονομάστε το κουμπί εντολής που θα διαβάσει το "OK" κάνοντας κλικ στο όνομα ρύθμιση στο παράθυρο διαλόγου Ιδιότητες και πληκτρολογώντας " cmdOK " . Κάντε κλικ στο " Λεζάντα " ρύθμιση στο παράθυρο διαλόγου Ιδιότητες και πληκτρολογήστε " OK" .
Η 7

Κάντε κλικ σε ένα άλλο κουμπί εντολής . Ονομάστε αυτό το ένα " cmdCancel , " και ρυθμίστε τη λεζάντα να διαβάσει "Άκυρο" στο παράθυρο διαλόγου Ιδιότητες .
8

Κάντε κλικ στο κουμπί τρίτη εντολή , ονομάστε το " cmdClearForm " και αλλάξτε τη ρύθμιση λεζάντα για να διαβάσετε " Καθαρισμός Φόρμας ».
Η

9 Πατήστε το " F7 " πλήκτρο λειτουργίας του πληκτρολογίου σας για να εμφανιστεί το παράθυρο κώδικα .
Η 10

Κάντε κλικ στις drop -down λίστες στο το επάνω μέρος του παραθύρου κώδικα . " . Προετοιμαστεί " Κάντε κλικ στην επάνω αριστερή λίστα για να ανοίξετε τη δευτερεύουσα με το όνομα " Φόρμα χρήστη" και κάντε κλικ στο άλλο drop-down λίστα για να επιλέξετε

11

Διαγραφή του υποδιαδικασία που αναφέρονται παραπάνω που έχει ως εξής: UserForm_Click (). διαδικασία
Η 12

Πληκτρολογήστε τον ακόλουθο κώδικα στο παράθυρο κώδικα ( μην πληκτρολογήσετε πάνω από το μπλε κείμενο ? απλά προσθέστε το ασπρόμαυρο κείμενο) : Private Sub UserForm_Initialize ( ) txtName.Value = " " txtPhone . Value = " " Με cboDepartment.AddItem " εργαζόμενοι " . AddItem "Διαχειριστές" End With

YourCourse.Value = " " optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
Η 13

Εισάγετε τον κωδικό σας στο κουμπί Άκυρο . Κάντε διπλό κλικ στο κουμπί Άκυρο για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε τον κωδικό σας έτσι ώστε το παράθυρο κώδικα έχει ως εξής: Private Sub cmdCancel_Click ( ) Αδειάστε MeEnd Sub

14

Ανοίξτε το παράθυρο κώδικα για το κουμπί Καθαρισμός Φόρμας . Θυμηθείτε να κάνετε διπλό κλικ στο κουμπί "Clear Form"
Η 15

Πληκτρολογήστε τον κωδικό σας στο παράθυρο κώδικα , έτσι ώστε να έχει ως εξής: . Private Sub cmdClearForm_Click ( ) Καλέστε UserForm_InitializeEnd Sub
Τετάρτη 16

κάντε διπλό κλικ στο κουμπί "OK " για να προσθέσετε τον ακόλουθο κώδικα στο παράθυρο κώδικα : .

Private Sub cmdOK_Click ( ) ActiveWorkbook.Sheets ( " YourWork " ) ActivateRange ( "A1" ) SelectDoIf IsEmpty ( . ActiveCell ) = FalseThenActiveCell.Offset ( 1 , 0 ) . SelectEnd IfLoop Μέχρι IsEmpty ( ActiveCell ) = TrueActiveCell.Value = txtName.ValueActiveCell.Offset ( 0 , 1 ) = txtPhone.ValueActiveCell.Offset ( 0 , 2 ) = cboDepartment.ValueActiveCell . Offset ( 0 , 3 ) = cboCourse.ValueIf optIntroduction = True ThenActiveCell.Offset ( 0 , 4 ) . Value = " Intro " ElseIf optIntermediate = True ThenActiveCell.Offset ( 0 , 4 ) . Value = " Intermed " ElseActiveCell.Offset ( 0 , 4 ) . Value = " Για προχωρημένους " End IfIf chkLunch = True ThenActiveCell.Offset ( 0 , 5 ) . Value = " Ναι " ElseActiveCell.Offset ( 0 , 5 ) . Value = " Όχι" End IfIf chkWork = True ThenActiveCell.Offset ( 0 , 6 ) . Value = " Ναι " ElseIf chkVacation = False ThenActiveCell.Offset ( 0 , 6 ) . Value = " " ElseActiveCell.Offset ( 0 , 6 ) . Value = " Όχι" End IfEnd IfRange ( "A1 " ) . SelectEnd Sub
Η
εικόνων