Χρειάζεται να τρέξετε μια μακροεντολή όταν ξεκινά το Excel; Έχετε δύο επιλογές:
1. Δημιουργήστε ένα υπόμνημα Workbook_Open () στο "ThisWorkbook".
2. Τοποθετήστε ένα υπο -στοιχείο Auto_Open () σε οποιαδήποτε ενότητα.
Workbook_Open Event
Δημιουργήστε ένα υπότιτλο με τίτλο «Workbook_Open» στο «ThisWorkbook»
| 123 | Workbook_open ()MsgBox "Αυτός ο κωδικός εκτελέστηκε κατά την έναρξη του Excel!"Τέλος υπο |
Auto_Open
Χρήση της δεύτερης μεθόδου: Απλώς δημιουργήστε μια υπορουτίνα που ονομάζεται Auto_Open και τοποθετήστε τον κώδικα σε αυτήν ή καλέστε κάποιο άλλο δευτερεύον από εκεί. Ο κώδικας εκτελείται αυτόματα όταν ξεκινά το Excel.
| 123 | Private Sub Auto_Open ()MsgBox "Αυτός ο κωδικός εκτελέστηκε κατά την έναρξη του Excel!"Τέλος υπο |
Δημιουργία και ονομασία νέου φύλλου εργασίας Κάθε φορά που ανοίγει το Excel
Ο παρακάτω κώδικας λειτουργεί ανοίγοντας ένα βιβλίο εργασίας. Προσθέτει αυτόματα ένα νέο φύλλο και το επισημαίνει με την ημερομηνία. Ελέγχει επίσης για να διαπιστωθεί ότι το φύλλο δεν υπάρχει ήδη - για να επιτρέψει το ενδεχόμενο να ανοίξει περισσότερες από μία φορές την ημέρα.
Αυτός ο κώδικας κάνει χρήση του Ανοιχτού συμβάντος του βιβλίου εργασίας και πρέπει να τοποθετηθεί στην ενότητα του βιβλίου εργασίας κάτω από το συμβάν "Άνοιγμα βιβλίου εργασίας". Η συνάρτηση Sheet_Exist πρέπει να τοποθετηθεί σε μια ενότητα και αυτή ελέγχει εάν υπάρχει ή όχι το φύλλο:
| 123456789101112131415 | Private Sub Workbook_Open ()Dim New_Sheet_Name As StringNew_Sheet_Name = Μορφή (Τώρα (), "ημ-μμ-εε")Εάν Sheet_Exists (New_Sheet_Name) = Λάθος ΤότεΜε τετράδιο εργασίαςΦύλλα εργασίας.Προσθήκη (). Όνομα = Νέο_Φύλλο_ΌνομαΤέλος μεΤέλος εανΑποθηκεύσετεΤέλος υπο |
| 12345678910111213 | Λειτουργία Sheet_Exists (WorkSheet_Name As String) As BooleanDim Work_sheet As WorksheetSheet_Exists = ΛάθοςΓια κάθε φύλλο εργασίας σε αυτό το βιβλίο εργασίας. Φύλλα εργασίαςΑν Work_sheet.Name = WorkSheet_Name ΤότεSheet_Exists = TrueΤέλος εανΕπόμενοΛειτουργία Τέλους |
Για να κατεβάσετε το αρχείο .XLSM για αυτό το σεμινάριο, κάντε κλικ εδώ
Ορίστε το προεπιλεγμένο φύλλο όταν ανοίγει το βιβλίο εργασίας
Θέλετε να βεβαιωθείτε ότι ένα φύλλο εμφανίζεται πάντα πρώτο όταν ανοίγει ένα βιβλίο εργασίας; Για παράδειγμα, όταν ανοίγετε ένα φύλλο βιβλίου εργασίας 3 είναι πάντα το ενεργό φύλλο. Ιδού πώς.
Μπορείτε να ανατρέξετε σε ένα φύλλο από το VBA με το όνομα του προγράμματος (δηλαδή το Sheet3) ή με το όνομα της καρτέλας του (δηλαδή JanData). Είναι καλύτερο να χρησιμοποιήσετε το όνομα του προγράμματος, επειδή αν αλλάξει το όνομα της καρτέλας, ο κωδικός VBA που αναφέρεται σε όνομα καρτέλας δεν θα λειτουργεί πλέον. Ωστόσο, εάν χρησιμοποιείτε το όνομα του προγράμματος, ένας χρήστης μπορεί να αλλάξει το όνομα της καρτέλας πολλές φορές και η μακροεντολή σας εξακολουθεί να λειτουργεί.
Για να βεβαιωθείτε ότι ένα συγκεκριμένο φύλλο είναι πάντα ενεργοποιημένο όταν ανοίγει ένα βιβλίο εργασίας, απλώς τοποθετήστε το φύλλο. Αυτό είναι ένα παράδειγμα που ενεργοποιεί το φύλλο 3 χρησιμοποιώντας το όνομα του προγράμματος κάθε φορά που ανοίγει ένα βιβλίο εργασίας.
| 123 | Private Sub Workbook_Open ()Φύλλο 3. ΕνεργοποιήστεΤέλος υπο |
Και αυτό το κάνει χρησιμοποιώντας το όνομα της καρτέλας:
| 1234 | Private Sub Workbook_Open ()Φύλλα ("mytabname"). ΕνεργοποιήστεΤέλος υπο |
Sidenote: Πρέπει να αποθηκεύσετε και να επανεκκινήσετε το excel για να λειτουργήσει.
Sidenote: Αυτό λειτουργεί μόνο εάν είναι ενεργοποιημένες οι μακροεντολές.
Sidenote: Τοποθετήστε αυτόν τον κώδικα στο παράθυρο κώδικα για το αντικείμενο ThisWorkbook στο VBE.
Φόρτωση φόρμας Κάθε φορά που ανοίγει το βιβλίο εργασίας
Εάν θέλετε να φορτώσετε μια φόρμα ή να εκτελέσετε κάποιον κώδικα VBA όταν ανοίγετε ένα βιβλίο εργασίας excel, τοποθετήστε τον κώδικά σας στο παράθυρο του κώδικα Thisbookbook και στην υποδιαγραφή Workbook_Open.
Από το υπολογιστικό φύλλο σας:
1. Πατήστε ALT και F11 για να ανοίξετε το πρόγραμμα επεξεργασίας VB
2. Κάντε διπλό κλικ στη λέξη ThisWorkbook για να ανοίξετε το παράθυρο κώδικα
3. Πληκτρολογήστε τον ακόλουθο κώδικα στο παράθυρο κωδικού ThisWorkbook
| 123 | Private Sub Workbook_Open ()UserForm1.ShowΤέλος υπο |
Sidenote: Αντικαταστήστε το Userform1 με το όνομα της φόρμας σας
4. Κλείστε το Excel και ανοίξτε ξανά.
