Ένα από τα πιο ενοχλητικά πράγματα στο Excel είναι το κλείσιμο πολλών βιβλίων εργασίας ταυτόχρονα. Για κάθε βιβλίο εργασίας που έχετε ανοίξει, πρέπει να ενεργοποιήσετε την εργασία, να την κλείσετε και να επιβεβαιώσετε την αποθήκευση των αλλαγών. Το Excel δεν έχει εύκολο τρόπο να τα κλείσει όλα ταυτόχρονα. Αυτή η μικρή μακροεντολή φροντίζει για αυτήν την ενόχληση.
Πώς λειτουργεί η μακροεντολή
Σε αυτήν τη μακροεντολή, η συλλογή Βιβλία εργασίας κάνει βρόχο σε όλα τα ανοιχτά βιβλία εργασίας. Καθώς η μακροεντολή περιηγείται σε κάθε βιβλίο εργασίας, τα αποθηκεύει και τα κλείνει:
Sub Macro1()
'Βήμα 1: Δηλώστε τις μεταβλητές σας
Dim wb ως βιβλίο εργασίας
'Βήμα 2: Περιηγηθείτε στα βιβλία εργασίας, αποθηκεύστε και κλείστε
Για κάθε wb σε βιβλία εργασίας
wb.Κλείσιμο SaveChanges:=True
Επόμενο wb
End Sub
Το βήμα 1 δηλώνει μια μεταβλητή Object που αντιπροσωπεύει ένα αντικείμενο βιβλίου εργασίας. Αυτό σας επιτρέπει να απαριθμήσετε όλα τα ανοιχτά βιβλία εργασίας, καταγράφοντας τα ονόματά τους καθώς προχωράτε.
Το βήμα 2 απλώς περιηγείται στα ανοιχτά βιβλία εργασίας, αποθηκεύοντάς τα και κλείνοντάς τα. Εάν δεν θέλετε να τα αποθηκεύσετε, αλλάξτε το όρισμα SaveChanges από True σε False.
Πώς να χρησιμοποιήσετε τη μακροεντολή
Το καλύτερο μέρος για να αποθηκεύσετε αυτήν τη μακροεντολή είναι στο προσωπικό σας βιβλίο εργασίας μακροεντολών. Με αυτόν τον τρόπο, η μακροεντολή είναι πάντα διαθέσιμη σε εσάς. Το βιβλίο εργασίας προσωπικής μακροεντολής φορτώνεται κάθε φορά που ξεκινάτε το Excel. Στο παράθυρο του έργου VBE, ονομάζεται personal.xlsb.
Ενεργοποιήστε το Visual Basic Editor πατώντας Alt+F11.
Κάντε δεξί κλικ στο personal.xlb στο παράθυρο του έργου.
Επιλέξτε Εισαγωγή→ Μονάδα.
Πληκτρολογήστε ή επικολλήστε τον κωδικό στη μονάδα που δημιουργήθηκε πρόσφατα.
Εάν δεν βλέπετε το personal.xlb στο παράθυρο του έργου σας, δεν υπάρχει ακόμα. Θα έχετε την εγγραφή μιας μακροεντολής χρησιμοποιώντας το προσωπικό βιβλίο εργασίας μακροεντολών ως προορισμό.
Για να εγγράψετε τη μακροεντολή στο προσωπικό σας βιβλίο εργασίας μακροεντολών, ανοίξτε το πλαίσιο διαλόγου Εγγραφή μακροεντολής. Στην αναπτυσσόμενη λίστα Store Macro In, επιλέξτε Personal Macro Workbook. Στη συνέχεια, απλώς καταγράψτε μερικά κλικ στο κελί και σταματήστε την εγγραφή. Μπορείτε να απορρίψετε την εγγεγραμμένη μακροεντολή και να την αντικαταστήσετε με αυτήν.