Δημιουργία διακοπών σελίδας στο Excel αυτόματα - Συμβουλές για το Excel

Το "S" (γιατί δεν μπορούν οι άνθρωποι να υπογράψουν το e-mail τους με τουλάχιστον ένα μικρό όνομα;) έγραψε τη σημερινή ερώτηση.

Προσπαθώ να βάλω αυτόματα αλλαγές σελίδας σε έναν πίνακα στο Excel. Δοκίμασα Δεδομένα - Μερικά σύνολα, αλλά αυτό με αναγκάζει να προσθέσω ένα άθροισμα ή ένα πλήθος. Δεν θέλω υποσύνολα, απλώς μια αλλαγή σελίδας κάθε φορά που αλλάζει η τιμή στη στήλη Α.

Αυτή η μακροεντολή θα λύσει το πρόβλημα. Για κάποιο λόγο, οι μακροεντολές που αλλάζουν διαλείμματα σελίδας ή ρυθμίσεις σελίδας χρειάζονται πολύ χρόνο για να εκτελεστούν, αλλά αυτό σίγουρα θα είναι ταχύτερο από τη χειροκίνητη διαδικασία. Η μακροεντολή προϋποθέτει ότι τα δεδομένα σας βρίσκονται στη στήλη Α και ότι ξεκινά στη σειρά 2.

Sub AddBreaks() StartRow = 2 FinalRow = Range("A65536").End(xlUp).Row LastVal = Cells(StartRow, 1).Value For i = StartRow To FinalRow ThisVal = Cells(i, 1).Value If Not ThisVal = LastVal Then ActiveSheet.HPageBreaks.Add _ before:=Cells(i, 1) End If LastVal = ThisVal Next i End Sub

ενδιαφέροντα άρθρα...