ο Φόρμα κράτησης μαθημάτων είναι μια απλή μορφή που απεικονίζει τις αρχές του σχεδιασμού του UserForm και τη σχετική κωδικοποίηση VBA.
Χρησιμοποιεί μια επιλογή στοιχείων ελέγχου που περιλαμβάνουν πλαίσια κειμένου, σύνθετα πλαίσια, κουμπιά επιλογών ομαδοποιημένα σε ένα πλαίσιο, πλαίσια ελέγχου και κουμπιά εντολών.
Όταν ο χρήστης κάνει κλικ στο κουμπί OK, η εισαγωγή του εισάγεται στην επόμενη διαθέσιμη σειρά στο φύλλο εργασίας.
Περιγραφή της φόρμας excel:
Υπάρχουν δύο απλά πλαίσια κειμένου (Ονομα: και Τηλέφωνο:) στα οποία ο χρήστης μπορεί να πληκτρολογήσει δωρεάν κείμενο και δύο σύνθετα πλαίσια (Τμήμα και Σειρά μαθημάτων) που επιτρέπει στον χρήστη να επιλέξει ένα στοιχείο από τη λίστα.
Υπάρχουν τρία κουμπιά επιλογής (Εισαγωγή, Ενδιάμεσος και Προχωρημένος) ομαδοποιημένο σε ένα πλαίσιο (Επίπεδο) έτσι ώστε ο χρήστης να μπορεί να επιλέξει μόνο μία από τις επιλογές.
Υπάρχουν δύο πλαίσια ελέγχου (Απαιτείται γεύμα και Χορτοφάγος) ότι, επειδή δεν ομαδοποιούνται σε ένα πλαίσιο, μπορούν να επιλεγούν και τα δύο, εάν απαιτείται. Ωστόσο, εάν το άτομο που κάνει την κράτηση δεν θέλει μεσημεριανό γεύμα, δεν χρειάζεται να γνωρίζουμε εάν είναι ή όχι χορτοφάγος. Ετσι το Χορτοφάγος το πλαίσιο ελέγχου είναι γκριζωπό μέχρι να απαιτείται.
Υπάρχουν τρία κουμπιά εντολών (Εντάξει, Ματαίωση και Διαγραφή φόρμας) καθένα από τα οποία εκτελεί μια προκαθορισμένη συνάρτηση όταν γίνεται κλικ.
Οι ρυθμίσεις ιδιοτήτων ελέγχου:
| Ελεγχος | Τύπος | Ιδιοκτησία | Σύνθεση |
| UserForm | UserForm | Ονομα | frmCourseBooking |
| Λεζάντα | Φόρμα κράτησης μαθημάτων | ||
| Ονομα | Πλαίσιο κειμένου | Ονομα | txtName |
| Τηλέφωνο | Πλαίσιο κειμένου | Ονομα | txtPhone |
| Τμήμα | Combo Box | Ονομα | cboDepartment |
| Σειρά μαθημάτων | Combo Box | Ονομα | cboCourse |
| Επίπεδο | Πλαίσιο | Ονομα | fraLevel |
| Λεζάντα | Επίπεδο | ||
| Εισαγωγή | Κουμπί επιλογής | Ονομα | optIntroduction |
| Ενδιάμεσος | Κουμπί επιλογής | Ονομα | optIntermediate |
| Προχωρημένος | Κουμπί επιλογής | Ονομα | optAdvanced |
| Απαιτείται γεύμα | Πλαίσιο ελέγχου | Ονομα | chkLunch |
| Χορτοφάγος | Πλαίσιο ελέγχου | Ονομα | chkΧορτοφάγος |
| Ενεργοποιημένο | Ψευδής | ||
| Εντάξει | Κουμπί εντολής | Ονομα | cmdOk |
| Λεζάντα | Εντάξει | ||
| Προκαθορισμένο | Αληθής | ||
| Ματαίωση | Κουμπί εντολής | Ονομα | cmdΑκύρωση |
| Λεζάντα | Ματαίωση | ||
| Ματαίωση | Αληθής | ||
| Διαγραφή φόρμας | Κουμπί εντολής | Ονομα | cmdClearForm |
Δημιουργία φορμών στο Excel
Εάν θέλετε να δημιουργήσετε μόνοι σας τη φόρμα, απλώς αντιγράψτε τη διάταξη που εμφανίζεται στην παραπάνω εικόνα. Ακολουθήστε τα παρακάτω βήματα:
1. Ανοίξτε το βιβλίο εργασίας στο οποίο θέλετε να ανήκει η φόρμα (UserForms όπως οι μακροεντολές πρέπει να επισυνάπτονται σε ένα βιβλίο εργασίας) και μεταβείτε στο Visual Basic Editor.
2. Στο Visual Basic Editor κάντε κλικ στο Εισαγωγή UserForm κουμπί (ή μεταβείτε στο Εισαγωγή> UserForm).
3. Εάν η εργαλειοθήκη δεν εμφανίζεται από μόνη της (πρώτα κάντε κλικ στη φόρμα για να βεβαιωθείτε ότι δεν κρύβεται) κάντε κλικ στο Εργαλειοθήκη κουμπί (ή μεταβείτε στο Προβολή> Εργαλειοθήκη).
4. Για να τοποθετήσετε ένα στοιχείο ελέγχου στη φόρμα, κάντε κλικ στο κατάλληλο κουμπί στην εργαλειοθήκη και, στη συνέχεια, κάντε κλικ στη φόρμα. Τα χειριστήρια μπορούν να μετακινηθούν σύροντάς τα από τις άκρες τους ή να αλλάξουν το μέγεθος σύροντας τα κουμπιά περιμετρικά.
5. Για να επεξεργαστείτε τις ιδιότητες ενός στοιχείου ελέγχου, βεβαιωθείτε ότι το επιλεγμένο στοιχείο ελέγχου είναι επιλεγμένο και, στη συνέχεια, κάντε τις κατάλληλες αλλαγές στο Ιδιότητες παράθυρο. Εάν δεν μπορείτε να δείτε το παράθυρο ιδιοτήτων, μεταβείτε στο Προβολή> Παράθυρο ιδιοτήτων.
6. Για να καταργήσετε ένα στοιχείο ελέγχου από τη φόρμα, επιλέξτε το και κάντε κλικ στο Διαγράφω πλήκτρο στο πληκτρολόγιό σας.
Ένα UserForm δεν θα κάνει τίποτα μέχρι να δημιουργηθεί ο κώδικας που οδηγεί τη φόρμα και τα διάφορα στοιχεία ελέγχου της. Το επόμενο βήμα είναι να γράψετε τον κώδικα που οδηγεί την ίδια τη φόρμα.
Προσθήκη κωδικού: 1 Αρχικοποίηση της φόρμας
Αρχικοποίηση της φόρμας:
Οι περισσότερες φόρμες χρειάζονται κάποιο είδος ρύθμισης όταν ανοίγουν. Αυτό μπορεί να ορίζει προεπιλεγμένες τιμές, να βεβαιώνεστε ότι το πεδίο είναι κενό ή να δημιουργείτε τις λίστες των σύνθετων πλαισίων. Αυτή η διαδικασία ονομάζεται Αρχικοποίηση της φόρμας και φροντίζεται από μια μακροεντολή που ονομάζεται UserForm_Initialize (σε περίπτωση που σας μπερδεύει η διαφορετική ορθογραφία της λέξης "initialis (z) e"), είναι επειδή μιλάω αγγλικά και η VBA μιλάει αμερικανικά - αλλά μην ανησυχείτε, η VBA θα γράψε το για σένα!). Δείτε πώς μπορείτε να δημιουργήσετε τον κώδικα για να αρχικοποιήσετε τη φόρμα κράτησης μαθημάτων:
1. Για να δείτε το παράθυρο κωδικού της φόρμας, μεταβείτε στη διεύθυνση Προβολή> Κωδικός ή κάντε κλικ F7.
2. Όταν ανοίξει το παράθυρο κωδικών για πρώτη φορά περιέχει ένα κενό UserForm_Click () διαδικασία. Χρησιμοποιήστε τις αναπτυσσόμενες λίστες στο επάνω μέρος του παραθύρου κώδικα για να επιλέξετε UserForm και ΑρχικοποίησηΤο Αυτό θα δημιουργήσει τη διαδικασία που χρειάζεστε. Τώρα μπορείτε να διαγράψετε τη διαδικασία UserForm_Click ().
3. Εισαγάγετε τον ακόλουθο κώδικα στη διαδικασία:
Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" With cboDepartment .AddItem "Sales" .AddItem "Marketing" .AddItem "Administration" .AddItem "Design" .AddItem "Διαφημίσεις" "Advertising" AddItem "Transportation" End With cboDepartment.Value = "" With cboCourse .AddItem "Access" .AddItem "Excel" .AddItem "PowerPoint" .AddItem "Word" .AddItem "FrontPage" End With cboCourse.Value = "TrueIntime" chkLunch = False chkVegetarian = False txtName.SetFocus End Sub
Πώς λειτουργεί ο κώδικας αρχικοποίησης:
Ο σκοπός της διαδικασίας UserForm_Initialize () είναι να προετοιμάσει τη φόρμα χρήστη στο VBA για χρήση, ορίζοντας τις προεπιλεγμένες τιμές για τα διάφορα στοιχεία ελέγχου και δημιουργώντας τις λίστες που θα εμφανίζουν τα σύνθετα πλαίσια.
Αυτές οι γραμμές ορίζουν το περιεχόμενο των δύο πλαισίων κειμένου σε κενό:
txtName.Value = "" txtPhone.Value = ""
Στη συνέχεια έρχονται οι οδηγίες για τα σύνθετα πλαίσια. Πρώτα από όλα καθορίζονται τα περιεχόμενα της λίστας και, στη συνέχεια, η αρχική τιμή του σύνθετου πλαισίου ορίζεται σε κενό.
Με το cboDepartment .AddItem "Sales" .AddItem "Marketing" (όσες είναι απαραίτητες …) Λήξη με
cboDepartment.Value = ""
Εάν απαιτείται, μπορεί να γίνει μια αρχική επιλογή από την ομάδα επιλογών, σε αυτήν την περίπτωση:
optIntroduction = True
Και τα δύο πλαίσια ελέγχου έχουν οριστεί σε False (δηλ. Χωρίς τικ). Ορίστε σε True αν θέλετε το πλαίσιο ελέγχου να εμφανίζεται ήδη επιλεγμένο:
chkLunch = Λάθος
chkVegetarian = Λάθος
Τέλος, η εστίαση μεταφέρεται στο πρώτο πλαίσιο κειμένου. Αυτό τοποθετεί τον κέρσορα των χρηστών στο πλαίσιο κειμένου, ώστε να μην χρειάζεται να κάνουν κλικ στο πλαίσιο πριν αρχίσουν να πληκτρολογούν:
txtName.SetFocus
Προσθήκη κώδικα: 2 Κάνοντας τα κουμπιά να λειτουργούν
Υπάρχουν τρία κουμπιά εντολών στη φόρμα και το καθένα πρέπει να τροφοδοτείται με τη δική του διαδικασία. Ξεκινώντας με τα απλά…
Κωδικοποίηση του κουμπιού ακύρωσης:
Νωρίτερα, χρησιμοποιήσαμε το παράθυρο ιδιοτήτων για να ορίσουμε το Ματαίωση ιδιότητα του κουμπιού Ακύρωση σε ΑληθήςΤο Όταν ορίσετε την ιδιότητα Ακύρωση ενός κουμπιού εντολής σε True, αυτό έχει ως αποτέλεσμα να κάνετε "κλικ" σε αυτό το κουμπί όταν ο χρήστης πατήσει το Esc πλήκτρο στο πληκτρολόγιό τους. Αλλά αυτό από μόνο του δεν θα προκαλέσει τίποτα να συμβεί στη φόρμα. Πρέπει να δημιουργήσετε τον κωδικό για το συμβάν κλικ του κουμπιού που, σε αυτήν την περίπτωση, θα κλείσει τη φόρμα. Να πώς:
1. Με το UserForm ανοιχτό για επεξεργασία στο Visual Basic Editor, κάντε διπλό κλικ στο κουμπί Ακύρωση. Το παράθυρο κώδικα της φόρμας ανοίγει με το cmdCancel_Click () διαδικασία έτοιμη για επεξεργασία.
2. Ο κωδικός για το κλείσιμο μιας φόρμας είναι πολύ απλός. Προσθέστε μια γραμμή κώδικα στη διαδικασία, ώστε να μοιάζει με αυτό:
Private Sub cmdCancel_Click () Unload Me End Sub
Κωδικοποίηση του κουμπιού Διαγραφή φόρμας:
Πρόσθεσα ένα κουμπί για να διαγράψω τη φόρμα σε περίπτωση που ο χρήστης ήθελε να αλλάξει γνώμη και να επαναφέρει τα πάντα, και για να διευκολυνθεί εάν είχαν πολλές κρατήσεις ταυτόχρονα. Το μόνο που έχει να κάνει είναι να εκτελέσει ξανά τη διαδικασία Αρχικοποίηση. Μπορείτε να πείτε σε μια μακροεντολή να εκτελέσει μια άλλη μακροεντολή (ή μια σειρά μακροεντολών εάν είναι απαραίτητο) χρησιμοποιώντας το Κλήση λέξη -κλειδί:
1. Κάντε διπλό κλικ στο κουμπί Εκκαθάριση φόρμας. Το παράθυρο κώδικα της φόρμας ανοίγει με το cmdClearForm_Click () διαδικασία έτοιμη για επεξεργασία.
2. Προσθέστε μια γραμμή κώδικα στη διαδικασία, ώστε να μοιάζει με αυτό:
Private Sub cmdClearForm_Click () Κλήση UserForm_Initialize Τέλος υπο
Κωδικοποίηση του κουμπιού OK:
Αυτό είναι το κομμάτι κώδικα που πρέπει να κάνει τη δουλειά της μεταφοράς των επιλογών του χρήστη και της εισαγωγής κειμένου στο φύλλο εργασίας. Όταν ορίσουμε την ιδιότητα Ακύρωση του κουμπιού Ακύρωση σε True, ορίζουμε επίσης το κουμπί OK Προκαθορισμένο ιδιοκτησία σε ΑληθήςΤο Αυτό πρέπει να κάνει κλικ στο κουμπί OK όταν ο χρήστης πατήσει το Εισαγω (ή ΕΠΙΣΤΡΟΦΗ) στο πληκτρολόγιό τους (με την προϋπόθεση ότι δεν το έχουν χρησιμοποιήσει Αυτί κλειδί για καρτέλα σε άλλο κουμπί). Ακολουθεί ο κώδικας για να λειτουργήσει το κουμπί:
1. Κάντε διπλό κλικ στο κουμπί OK. Το παράθυρο κώδικα της φόρμας ανοίγει με το cmdOK_Click () διαδικασία έτοιμη για επεξεργασία.
2. Επεξεργαστείτε τη διαδικασία για να προσθέσετε τον ακόλουθο κώδικα:
Private Sub cmdOK_Click () ActiveWorkbook.Sheets ("Course Bookings"). Activate Range ("A1"). Select Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0). Επιλέξτε Τέλος Αν Βρόχος Μέχρι IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment.Value ActiveCell.Offset (0, 3) = cboCourse.Value If optIntroduction = True Τότε ActiveCell.Offset (0, 4) .Value = "Intro" ElseIf optIntermediate = True then ActiveCell.Offset (0, 4) .Value = "Intermed" Else ActiveCell.Offset (0, 4) .Value = "Adv" End If Εάν chkLunch = True Τότε ActiveCell.Offset (0, 5) .Value = "Yes" Else ActiveCell.Offset (0, 5) .Value = "No" End If If chkVegetarian = True Then ActiveCell.Offset (0, 6). Value = "Yes" Else If chkLunch = False then ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6). Value = "No" End If End If Range ("A1") Επιλέξτε Τέλος υπο
Πώς λειτουργεί ο κώδικας CmdOK_Click:
Οι δύο πρώτες γραμμές διασφαλίζουν ότι το σωστό βιβλίο εργασίας είναι ενεργό και μετακινεί την επιλογή στο κελί Α1:
ActiveWorkbook.Sheets ("Course Bookings"). Ενεργοποιήστε το εύρος ("A1"). Επιλέξτε Οι επόμενες γραμμές μετακινούν την επιλογή προς τα κάτω στο φύλλο εργασίας μέχρι να βρει ένα κενό κελί: Do If IsEmpty (ActiveCell) = False Then ActiveCell.Offset (1 , 0). Επιλέξτε Τέλος εάν ο βρόχος μέχρι το IsEmpty (ActiveCell) = True
Οι επόμενες τέσσερις γραμμές αρχίζουν να γράφουν τα περιεχόμενα της φόρμας στο φύλλο εργασίας, χρησιμοποιώντας το ενεργό κελί (το οποίο βρίσκεται στη στήλη Α) ως αναφορά και μετακινώντας κατά μήκος της σειράς ένα κελί κάθε φορά:
ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment.Value ActiveCell.Offset (0, 3) = cboCourse.Value
Τώρα ερχόμαστε στα κουμπιά επιλογών. Αυτά έχουν τοποθετηθεί σε ένα πλαίσιο στη φόρμα, ώστε ο χρήστης να μπορεί να επιλέξει μόνο ένα. Μια δήλωση IF χρησιμοποιείται για να δώσει οδηγίες στο Excel για κάθε επιλογή:
If optIntroduction = True Then ActiveCell.Offset (0, 4) .Value = "Intro" ElseIf optIntermediate = True then ActiveCell.Offset (0, 4) .Value = "Intermed" Else ActiveCell.Offset (0, 4) .Value = Τέλος "Adv" Αν
Η διαχείριση των δηλώσεων VBA IF είναι πολύ πιο εύκολη από τη λειτουργία IF του Excel. Μπορείτε να έχετε όσες επιλογές θέλετε, απλώς εισάγετε μια επιπλέον Αλλιώς Αν για τον καθένα. Αν υπήρχαν μόνο δύο επιλογές, δεν θα χρειαζόσασταν Αλλιώς Αν, μόνο το Αν και Αλλού θα αρκούσε (μην ξεχνάτε - όλοι χρειάζονται ένα Τέλος εαν).
Υπάρχει μια άλλη δήλωση IF για κάθε πλαίσιο ελέγχου. Για το πλαίσιο ελέγχου Απαιτούμενο μεσημεριανό γεύμα, ένα τικ στο πλαίσιο σημαίνει "Ναι" το άτομο απαιτεί γεύμα και κανένα τικ σημαίνει "Όχι" δεν το κάνει.
Εάν chkLunch = True Τότε ActiveCell.Offset (0, 5) .Value = "Yes" Else ActiveCell.Offset (0, 5) .Value = "No" Τέλος Αν
Θα μπορούσαμε να χρησιμοποιήσουμε μια παρόμοια δήλωση IF για το πλαίσιο ελέγχου Χορτοφάγος, αλλά εάν το άτομο δεν απαιτεί μεσημεριανό γεύμα δεν έχει σημασία αν είναι ή όχι χορτοφάγος. Σε κάθε περίπτωση, θα ήταν λάθος να υποθέσουμε ότι δεν ήταν χορτοφάγοι απλώς και μόνο επειδή δεν απαιτούσαν μεσημεριανό γεύμα. Συνεπώς, η δήλωση IF περιέχει μια δεύτερη, ένθετη αν πρόταση:
If chkVegetarian = True Then ActiveCell.Offset (0, 6) .Value = "Yes" Else If chkLunch = False then ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "Όχι" Τέλος Αν Τέλος Αν
Ένα τσιμπούρι στο κουτί σημαίνει "Ναι" το άτομο είναι χορτοφάγος. Εάν δεν υπάρχει τσιμπούρι στο πλαίσιο, η ένθετη δήλωση IF κοιτάζει το πλαίσιο ελέγχου Απαιτείται γεύμα. Εάν το πλαίσιο ελέγχου Το Απαιτούμενο μεσημεριανό γεύμα έχει ένα τικ, τότε κανένα κουτάκι στο πλαίσιο ελέγχου Χορτοφάγος σημαίνει ότι το άτομο δεν είναι χορτοφάγος, οπότε εισάγει "Όχι" στο κελί. Ωστόσο, εάν το πλαίσιο ελέγχου Το Απαιτούμενο μεσημεριανό γεύμα δεν έχει τσιμπούρι, τότε δεν γνωρίζουμε αν το άτομο είναι χορτοφάγος ή όχι (δεν έχει σημασία έτσι κι αλλιώς), οπότε το κελί παραμένει κενό ("").
Τέλος, η επιλογή επιστρέφει στην αρχή του φύλλου εργασίας, έτοιμη για την επόμενη καταχώριση:
Εύρος ("A1"). Επιλέξτε
Προσθήκη κωδικού 3: Χειρισμός της φόρμας
Τέλος, ένα παράδειγμα του τρόπου χειρισμού των στοιχείων ελέγχου σε μια φόρμα κατά τη χρήση της. Όταν ορίστηκαν οι ιδιότητες ελέγχου, το Ενεργοποιημένο η ιδιότητα του πλαισίου ελέγχου Vegetarian ορίστηκε σε ΨευδήςΤο Όταν ένα στοιχείο ελέγχου δεν είναι ενεργοποιημένο, το χρήστης δεν μπορεί να εισαγάγει μια τιμή σε αυτό, αν και μπορεί να κρατήσει μια τιμή που υπήρχε ήδη και το VBA μπορεί να προσθέσει, να αφαιρέσει ή να αλλάξει την τιμή.
Δεν χρειάζεται να γνωρίζουμε αν το άτομο είναι χορτοφάγος ή όχι (ακόμα κι αν είναι!), Αν δεν παραγγέλνει μεσημεριανό γεύμα. Έτσι, το πλαίσιο ελέγχου Χορτοφάγος παραμένει απενεργοποιημένο, εκτός εάν τοποθετηθεί ένα κουτάκι στο πλαίσιο ελέγχου «Απαιτείται γεύμα». Στη συνέχεια, ο χρήστης είναι ελεύθερος να επιλέξει το πλαίσιο ελέγχου Χορτοφάγος, εάν το θέλει. Αν το σημειώσουν θα ξέρουμε ότι έχουν απαντήσει "Ναι" και αν όχι ξέρουμε ότι έχουν απαντήσει "Όχι".
Μπορούμε να αλλάξουμε το Ενεργοποιημένο ιδιοκτησία από Ψευδής προς το Αληθής διαθέτοντας μια διαδικασία που εκτελείται αυτόματα κάθε φορά που αλλάζει η τιμή του απαιτούμενου μεσημεριανού πλαισίου ελέγχου. Ευτυχώς, περισσότεροι έλεγχοι έχουν ένα Αλλαγή διαδικασία και αυτή που χρησιμοποιούμε εδώ είναι chkLunch_Change ()Το Θα το χρησιμοποιήσουμε για να ενεργοποιήσουμε το πλαίσιο ελέγχου Vegetarian όταν είναι επιλεγμένο το πλαίσιο επιλογής Απαιτούμενο μεσημεριανό γεύμα και θα το απενεργοποιήσουμε όταν δεν είναι επιλεγμένο το πλαίσιο ελέγχου Απαιτούμενο μεσημεριανό.
Υπάρχει μόνο ένα ακόμη πράγμα που πρέπει να κάνουμε. Ας υποθέσουμε ότι κάποιος σημείωσε το πλαίσιο ελέγχου Το Απαιτούμενο μεσημεριανό γεύμα και επίσης το πλαίσιο ελέγχου Χορτοφάγος. Στη συνέχεια, άλλαξαν γνώμη και αφαίρεσαν το τσιμπούρι από το πλαίσιο επιλογής Απαιτούμενο μεσημεριανό. Το πλαίσιο ελέγχου για χορτοφάγους θα απενεργοποιηθεί, αλλά το τσιμπούρι που τοποθετήθηκε νωρίτερα θα παραμείνει.
Μια επιπλέον γραμμή κώδικα μπορεί να βεβαιωθεί ότι το τικ είναι αφαιρεμένο όταν το πλαίσιο είναι απενεργοποιημένο. Εδώ είναι το όλο θέμα:
Private Sub chkLunch_Change () If chkLunch = True Στη συνέχεια chkVegetarian.Enabled = True Else chkVegetarian.Enabled = False chkVegetarian = False End If End Sub
Άνοιγμα της φόρμας
Η φόρμα είναι τώρα έτοιμη για χρήση, οπότε πρέπει να ανοίξει με μια απλή μακροεντολή. Αυτό μπορεί να συνδεθεί με ένα προσαρμοσμένο κουμπί γραμμής εργαλείων, ένα κουμπί εντολών που σχεδιάζεται στο φύλλο εργασίας ή οποιοδήποτε γραφικό (κάντε δεξί κλικ στο γραφικό και επιλέξτε Εκχώρηση μακροεντολής). Εάν είναι απαραίτητο, δημιουργήστε μια νέα ενότητα για το βιβλίο εργασίας και προσθέστε αυτήν τη διαδικασία:
Sub OpenCourseBookingForm () frmCourseBooking.Show End Sub
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email