Πώς να εισαγάγετε υπό όρους αλλαγές σελίδας στο Excel;
Ας υποθέσουμε ότι πρέπει να εισαγάγετε διαλείμματα σελίδας ενώ οι τιμές αλλάζουν στη στήλη Α όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, πώς μπορείτε να το χειριστείτε στο Excel; Γενικά, μπορείτε να εισαγάγετε τα διαλείμματα σελίδας ένα προς ένα χειροκίνητα, αλλά εδώ, σας παρουσιάζω μερικά κόλπα για να το επιλύσετε γρήγορα.
Χρήση της συνάρτησης Subtotal για την εισαγωγή αλλαγών σελίδας
Χρησιμοποιώντας τον κώδικα VBA για την εισαγωγή αλλαγών σελίδας
Διάκριση διαφορών για εισαγωγή αλλαγής σελίδας όταν αλλάζουν δεδομένα
Εισαγωγή αλλαγής σελίδας κάθε σειράς για εισαγωγή ενδιάμεσης σελίδας στις nth σειρές
Χρήση της συνάρτησης Subtotal για την εισαγωγή αλλαγών σελίδας
Στο Excel, η συνάρτηση Subtotal μπορεί να προσθέσει αλλαγές σελίδας με βάση την ομάδα.
1. Επιλέξτε τα δεδομένα που θέλετε να προσθέσετε αλλαγές σελίδας, κάντε κλικ στο ημερομηνία > ΥΠΟΣΥΝΟΛΟ.
2. Στο ΥΠΟΣΥΝΟΛΟ διαλόγου, επιλέξτε τη στήλη από την οποία θέλετε να εισαγάγετε αλλαγή σελίδας με βάση την τιμή της σε κάθε αλλαγή στην αναπτυσσόμενη λίστα και, στη συνέχεια, επιλέξτε τη λειτουργία από την οποία θέλετε να χρησιμοποιήσετε Χρησιμοποιήστε τη λειτουργία λίστα και, στη συνέχεια, ελέγξτε Διακοπή σελίδας μεταξύ ομάδων πλαίσιο ελέγχου και άλλες επιλογές όπως χρειάζεστε.
3. κλικ OK. Τώρα τα δεδομένα έχουν ομαδοποιηθεί και έχουν προστεθεί αλλαγές σελίδας.
Χρησιμοποιώντας τον κώδικα VBA για την εισαγωγή αλλαγών σελίδας
Εάν δεν θέλετε να προσθέσετε ομάδες στα δεδομένα, μπορείτε να δοκιμάσετε τον κώδικα VBA για να χειριστείτε αυτήν την εργασία.
1. Τύπος Alt + F11 πλήκτρα για εμφάνιση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο νέο παράθυρο Module.
VBA: Εισαγωγή αλλαγών σελίδας όταν αλλάζουν δεδομένα
Sub PageBreak()
'UpdatebyExtendOffice20181101
Dim xSRg As Range
Dim xRg As Range
On Error Resume Next
Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xRg In xSRg
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
If xRg.Value <> xRg.Offset(-1, 0).Value Then
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
End If
Next xRg
Application.ScreenUpdating = True
End Sub
3. Τύπος F5 κλειδί, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι επιλέγετε τη στήλη κλειδιού στην οποία εισάγετε το διάλειμμα σελίδας με βάση.
4. κλικ OK, τώρα έχουν εισαχθεί οι αλλαγές σελίδας.
Διάκριση διαφορών για εισαγωγή αλλαγής σελίδας όταν αλλάζουν δεδομένα
Η Διακρίνετε τις διαφορές χαρακτηριστικό του Kutools για Excel υποστηρίζει την εισαγωγή αλλαγής σελίδας, κενή σειρά, κάτω περιγράμματος ή χρώμα φόντου όταν αλλάζουν δεδομένα στο Excel.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)
Πατήστε Kutools > Μορφή > Διακρίνετε τις διαφορές.
2. Στο Διακρίνετε τις διαφορές ανά βασική στήλη διαλόγου, ολοκληρώστε τις παρακάτω ρυθμίσεις:
1) κάντε κλικ στο εικονίδιο επιλογής στο Σειρά ενότητα, επιλέξτε το εύρος δεδομένων (εξαιρουμένων των κεφαλίδων στηλών)
2) κάντε κλικ στο εικονίδιο επιλογής στο Βασική στήλη ενότητα, επιλέξτε τη στήλη που θέλετε να εισαγάγετε αλλαγή σελίδας με βάση την αντίστοιχη αλλαγή δεδομένων (εξαιρουμένων των κεφαλίδων στηλών)
3) έλεγχος Αλλαγή σελίδας επιλογή Επιλογές τμήμα.
3. κλικ Ok.
Τώρα εισάγονται αλλαγές σελίδας όταν αλλάζουν δεδομένα στο επιλεγμένο εύρος.
Εισαγωγή αλλαγής σελίδας κάθε σειράς για εισαγωγή ενδιάμεσης σελίδας στις nth σειρές
Εάν θέλετε να εισαγάγετε διαλείμματα σελίδας σε σταθερό διάστημα, μπορείτε να το χρησιμοποιήσετε Kutools για Excel'S Εισαγωγή σελίδας σε κάθε σειρά βοηθητικό πρόγραμμα για γρήγορο χειρισμό του προβλήματος.
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)
1. Επιλέξτε τα δεδομένα και κάντε κλικ Kutools Plus > Εκτύπωση > Εισαγωγή αλλαγής σελίδας σε κάθε σειρά.
2. Στο Εισαγωγή αλλαγής σελίδας σε κάθε σειρά διαλόγου, πληκτρολογήστε το διάστημα που χρειάζεστε.
3. κλικ OK > OK για να κλείσετε τους διαλόγους, οι αλλαγές σελίδας έχουν εισαχθεί σε κάθε 2 σειρές.
Εισαγωγή σελίδας Break Every Nth Row
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!