Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να Τοποθετήστε ημερολόγιο ελέγχου σε ένα έγγραφο χρησιμοποιώντας Macro

Visual Basic μακροεντολές προσαρμόσετε τις εφαρμογές του Microsoft Office , ώστε να είναι πιο ισχυρή με εξειδικευμένα εργαλεία για συγκεκριμένους χρήστες . Ημερολόγιο ελέγχει χρήστες της ενίσχυσης με την εξασφάλιση της ποιότητας των δεδομένων τους . Δημιουργία ενός χρονοδιαγράμματος για την ημερομηνία επιλογής σχετικά με τη μύγα απαιτεί Visual Basic Macro και ένα στοιχείο ελέγχου ActiveX ? ActiveX εμφανίζει το ημερολόγιο και Visual Basic ερμηνεύει εντολές του χρήστη στο ημερολόγιο . Το παράδειγμα κώδικα σε αυτό το άρθρο θα επικεντρωθεί στην δημιουργία ενός ημερολογίου στο Microsoft Excel , αλλά μπορεί να προσαρμοστεί για κάθε εφαρμογή στο Microsoft Office Suite . Οδηγίες
Η 1

Launch Excel κάνοντας κλικ στο " Έναρξη", " Όλα τα προγράμματα ", " Microsoft Office Suite " και " Excel ". 2

Ξεκινήστε το Visual Basic Editor ( VBE ) πατώντας το πλήκτρο " Alt " και " F11 " ταυτόχρονα .
εικόνων 3

Δημιουργήστε το " Personal.xls " βιβλίο εργασίας , αν δεν υπάρχει ήδη . Η " Personal.xls " βιβλίο εργασίας περιέχει τις μακροεντολές που είναι προσβάσιμες από κάθε άλλο βιβλίο εργασίας στο Excel . Στο πάνω αριστερό μέρος της VBE υπάρχει ένα πάνελ πλοήγησης . Αν το " Personal.xls " δεν περιλαμβάνεται στον πίνακα πλοήγησης VBE , κάντε κλικ στο " Εργαλεία ", " Macro " και " Record New Macro . " Ένα πλαίσιο διαλόγου θα εμφανιστεί στην οθόνη . Επιλέξτε "Αποθήκευση Macro σε : βιβλίο προσωπικών μακροεντολών " και στη συνέχεια κάντε κλικ στο κουμπί "OK". Κάντε κλικ στο κουμπί "Stop Recording ". Η " Personal.xls " βιβλίο εργασίας θα εμφανιστεί τώρα στο πάνελ πλοήγησης VBE .
Η 4

Δημιουργήστε το " UserForm " που θα περιέχει το ημερολόγιο . Κάντε κλικ στο " Personal.xls " για να επιλέξετε το βιβλίο εργασίας . Κάντε κλικ στο " Εισαγωγή" και στη συνέχεια " UserForm . " Το παράθυρο διαλόγου " UserForm " θα εμφανιστεί στην οθόνη . Υπάρχουν πολλά κουτιά κειμένου στο παράθυρο διαλόγου ? " . Επιλέξτε μια ημερομηνία " στο πλαίσιο κειμένου για το "Όνομα ", αλλάξετε το κείμενο " frmCalendar » και στο τετραγωνίδιο με την ένδειξη "Τίτλος ", αλλάξτε το κείμενο να

5

Προσθέστε το στοιχείο ελέγχου ημερολογίου στην εργαλειοθήκη . Κάντε κλικ στο κουμπί "Προβολή ", " Toolbox ", " Εργαλεία" και " Πρόσθετες ελέγχου . " Θα εμφανιστεί ένα παράθυρο διαλόγου με μια λίστα των στοιχείων ελέγχου . Μετακινηθείτε προς τα κάτω στο " Ημερολόγιο Ελέγχου 8,0 " ( ή την τελευταία έκδοση ) , κάντε κλικ για να το επιλέξετε και στη συνέχεια κάντε κλικ στο κουμπί "OK".
Η 6

Εισάγετε τον έλεγχο ημερολογίου στη UserForm . Κάντε κλικ στο εικονίδιο " Ημερολόγιο Control" στην εργαλειοθήκη και , στη συνέχεια, κάντε κλικ στην επάνω αριστερή γωνία του UserForm . Κάντε κλικ και σύρετε την εικόνα ημερολόγιο στην επιθυμητή θέση εντός του UserForm .
Η 7

Δημιουργήστε το κουμπί εξόδου ημερολόγιο ελέγχου . Κάντε κλικ στο κουμπί "Command Control" στην εργαλειοθήκη . Μετακινήστε το κουμπί "x " στην πάνω αριστερή γωνία της UserForm . Στο " Ιδιότητες ", αλλάξτε το όνομα σε " cmdClose " και αλλάξτε την τιμή του " Ακύρωση" για να " True ". Πατήστε το πλήκτρο F7 για να μεταβείτε στο πρόγραμμα επεξεργασίας κώδικα . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο VBE :

Private Sub cmdClose_Click ( )

Unload Me

End Sub
8

Πρόγραμμα το ημερολόγιο λειτουργικότητα. Επιλέξτε " Calendar1 " από το drop-down μενού στο πάνω αριστερό μέρος της VBE . Υπάρχει και μια άλλη drop-down μενού στα δεξιά αυτού του καταλόγου ? Επιλέξτε " Κάντε κλικ " από το μενού . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο VBE :

Private Sub Calendar1_Click ( )

ActiveCell.Value = Calendar1.Value

Unload Me

End Sub
Η 9

Αποθηκεύστε το " Personal.xls " φύλλο πατώντας το πλήκτρο " Ctrl " και " s " ταυτόχρονα .
Η 10

Εκτελέστε το Macro . Κάντε κλικ στο "x " στην πάνω δεξιά γωνία για να κλείσετε το VBE . Κάντε κλικ σε οποιοδήποτε κελί του φύλλου εργασίας . Πατήστε το πλήκτρο " Alt " και " F8" ταυτόχρονα . Θα εμφανιστεί το παράθυρο διαλόγου Μακροεντολές . Επιλέξτε " Personal.xls ! OpenCalendar " και στη συνέχεια κάντε κλικ στο " Run". Θα εμφανιστεί το στοιχείο ελέγχου ημερολογίου . Κάντε κλικ σε οποιαδήποτε ημερομηνία στο ημερολόγιο για να γράψει την ημερομηνία αυτή στο κελί .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα