Πώς να χρησιμοποιήσετε μια μακροεντολή VBA για να αλλάξετε τις ρυθμίσεις του Excel 2016

Μερικές από τις πιο χρήσιμες μακροεντολές είναι απλές διαδικασίες που αλλάζουν μία ή περισσότερες από τις ρυθμίσεις του 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

Sub ToggleCalcMode()
  Επιλέξτε Case Application.Calculation
    Case xlManual
      Application.Calculation = xlCalculationAutomatic
      MsgBox "Λειτουργία Αυτόματου Υπολογισμού"
    Θήκη xlAutomatic
      Application.Calculation = xlCalculationManual
      MsgBox "Μη αυτόματη λειτουργία υπολογισμού"
  Τέλος Επιλογή
End Sub