Μερικές από τις πιο χρήσιμες μακροεντολές είναι απλές διαδικασίες που αλλάζουν μία ή περισσότερες από τις ρυθμίσεις του Excel. Για παράδειγμα, εάν βρεθείτε να κάνετε συχνά ταξίδια στο πλαίσιο διαλόγου Επιλογές του Excel για να αλλάξετε μια ρύθμιση, αυτό είναι καλός υποψήφιος για μια απλή μακροεντολή εξοικονόμησης χρόνου.
Ακολουθούν δύο παραδείγματα που σας δείχνουν πώς να αλλάξετε τις ρυθμίσεις στο Excel. Μπορείτε να εφαρμόσετε τις γενικές αρχές που παρουσιάζονται σε αυτά τα παραδείγματα σε άλλες λειτουργίες που αλλάζουν ρυθμίσεις.
Αλλαγή ρυθμίσεων Boolean
Όπως ένας διακόπτης φώτων, μια ρύθμιση Boolean είναι είτε ενεργοποιημένη είτε απενεργοποιημένη. Για παράδειγμα, μπορεί να θέλετε να δημιουργήσετε μια μακροεντολή που ενεργοποιεί και απενεργοποιεί την εμφάνιση αλλαγής σελίδας φύλλου εργασίας. Αφού εκτυπώσετε ή κάνετε προεπισκόπηση ενός φύλλου εργασίας, το Excel εμφανίζει διακεκομμένες γραμμές για να υποδείξει τις αλλαγές σελίδας. Μερικοί άνθρωποι βρίσκουν αυτές τις διακεκομμένες γραμμές πολύ ενοχλητικές.
Δυστυχώς, ο μόνος τρόπος για να απαλλαγείτε από την εμφάνιση αλλαγής σελίδας είναι να ανοίξετε το πλαίσιο διαλόγου Επιλογές του Excel, να κάνετε κλικ στην καρτέλα Για προχωρημένους και να μετακινηθείτε προς τα κάτω μέχρι να βρείτε το πλαίσιο ελέγχου Εμφάνιση αλλαγών σελίδας. Εάν ενεργοποιήσετε τη συσκευή εγγραφής μακροεντολών όταν αλλάξετε αυτήν την επιλογή, το Excel δημιουργεί τον ακόλουθο κώδικα:
ActiveSheet.DisplayPageBreaks = False
Από την άλλη πλευρά, εάν οι αλλαγές σελίδας δεν είναι ορατές κατά την εγγραφή της μακροεντολής, το Excel δημιουργεί τον ακόλουθο κώδικα:
ActiveSheet.DisplayPageBreaks = True
Αυτό μπορεί να σας οδηγήσει στο συμπέρασμα ότι χρειάζεστε δύο μακροεντολές: μία για να ενεργοποιήσετε την εμφάνιση αλλαγής σελίδας και μία για να την απενεργοποιήσετε. Δεν είναι αλήθεια. Η ακόλουθη διαδικασία χρησιμοποιεί τον τελεστή Not, ο οποίος μετατρέπει το True σε False και το False σε True. Η εκτέλεση της διαδικασίας TogglePageBreaks είναι ένας απλός τρόπος για να αλλάξετε την εμφάνιση αλλαγής σελίδας από True σε False και από False σε True:
Sub TogglePageBreaks()
Σφάλμα Συνέχιση Επόμενο
ActiveSheet.DisplayPageBreaks = Όχι _
ActiveSheet.DisplayPageBreaks
End Sub
Η πρώτη δήλωση λέει στο Excel να αγνοήσει τυχόν σφάλματα. Για παράδειγμα, ένα φύλλο γραφήματος δεν εμφανίζει αλλαγές σελίδας, επομένως εάν εκτελέσετε τη μακροεντολή όταν ένα φύλλο γραφήματος είναι ενεργό, δεν θα δείτε μήνυμα σφάλματος.
Μπορείτε να χρησιμοποιήσετε αυτήν την τεχνική για να αλλάξετε ρυθμίσεις που έχουν τιμές Boolean (True ή False).
Αλλαγή μη Boolean ρυθμίσεων
Μπορείτε να χρησιμοποιήσετε μια δομή Select Case για μη Boolean ρυθμίσεις. Αυτό το παράδειγμα αλλάζει τη λειτουργία υπολογισμού μεταξύ χειροκίνητης και αυτόματης και εμφανίζει ένα μήνυμα που υποδεικνύει την τρέχουσα λειτουργία:
Sub ToggleCalcMode()
Επιλέξτε Case Application.Calculation
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Λειτουργία Αυτόματου Υπολογισμού"
Θήκη xlAutomatic
Application.Calculation = xlCalculationManual
MsgBox "Μη αυτόματη λειτουργία υπολογισμού"
Τέλος Επιλογή
End Sub
Μπορείτε να προσαρμόσετε αυτήν την τεχνική για την αλλαγή άλλων ρυθμίσεων που δεν είναι Boolean.