Salt la conținutul principal

Cum se inserează pauza de pagină la fiecare x rânduri în Excel?

Poate fi ușor și simplu să introduceți o întrerupere de pagină într-o foaie de lucru. Uneori, este necesar să introduceți pauze de pagină în fiecare X rânduri pentru a tipări ordonat, cum ați putea face? Aici introduc câteva metode pentru a rezolva această problemă în Excel.


Introduceți pauza de pagină la fiecare X rânduri cu VBA în Excel

Poate că nu sunteți familiarizat cu VBA care rulează înainte, dar cu pașii următori este posibil să știți cum să rulați VBA pentru a insera o pauză de pagină la fiecare X rânduri. Aici voi insera o pauză de pagină în fiecare 3 rânduri.

1. presa Alt + F11 pentru a afișa Microsoft Visual Basic pentru aplicații fereastră.

2. În fereastră, faceți clic pe Insera > Module pentru a afișa o nouă fereastră de modul, apoi copiați următorul cod VBA în fereastra modulului.

VBA: introduceți întreruperea de pagină în fiecare X rânduri dintr-o foaie de lucru.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. Clic Alerga butonul și apare o fereastră de dialog pentru a specifica fiecare X rânduri în care doriți să inserați o întrerupere de pagină. Aici inserez întreruperea de pagină în fiecare 3 rânduri. Vedeți captura de ecran:
doc-insert-page-break-x-rows-1

4. Clic OK, și apoi va insera o întrerupere de pagină în fiecare X rânduri.

Introduceți rapid întreruperea paginii în fiecare (al n-lea) rând din foaia de lucru activă

În mod normal, inserăm o singură întrerupere de pagină făcând clic Pagina Aspect > Pauze > Introduceți ruperea paginii. Dar, în acest fel, este prea obositor să inserați mai multe pauze de pagină într-o foaie de lucru, de exemplu, trebuie să inserați o pauză de pagină în fiecare rând pentru a imprima fiecare rând într-o pagină separată. Nu vă faceți griji! Kutools pentru Excel Inserați Pauză de pagină în fiecare rând utilitarul vă poate ajuta să îl arhivați cu ușurință!


introduceți întreruperea paginii în fiecare rând 3

Inserați loturi pauze de pagină după fiecare x rânduri cu Kutools pentru Excel

Dacă aveți instalat Kutools pentru Excel, este Împărțiți în coloane utilitarul vă poate ajuta să introduceți mai multe pauze de pagină după fiecare x rând, păstrând cu ușurință titlul în fiecare pagină în Excel.

Kutools pentru Excel - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă acum!

1. Clic Împărțiți în coloane pe Kutools Plus tab.

2. În caseta de dialog Deschidere la coloane, trebuie să:

(1) Faceți clic pe butonul Răsfoire  în Gama de titluri caseta și selectați rândul de titlu din intervalul specificat pe care îl veți insera într-o serie de pauze de pagină.
(2) Faceți clic pe butonul Răsfoire în Interval de date și selectați intervalul pe care îl veți insera într-o serie de pauze de pagină.
(3) În Rânduri pe pagină tipărită caseta, introduceți un număr. (varful: De exemplu, dacă trebuie să introduceți pauze de pagină după fiecare 3 rânduri, vă rugăm să introduceți 3 în casetă; dacă trebuie să inerteți pauze de pagină după fiecare rând, vă rugăm să introduceți 1.)
(4) Introduceți 1 în Numărul de segmente cutie.

3. clic pe Ok butonul.

Acum veți vedea că intervalul este copiat într-o nouă foaie de lucru, iar pauzele de pagină sunt adăugate după fiecare x rând cu păstrarea titlului intervalului. De asemenea, puteți comuta la vizualizarea Previzualizare pauză de pagină făcând clic pe Vizualizare > Previzualizare pauză de pagină pentru a vedea aceste pauze de pagină. Vedeți mai jos captura de ecran.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum


Introduceți pauze de pagină după fiecare x rând cu Kutools pentru Excel

Kutools pentru Excel dezvoltă un alt utilitar Inserare pauză de pagină fiecare rând specializat în inserarea de pauze de pagină după fiecare x rând ușor.

Kutools pentru Excel - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă acum!

1. Selectați intervalul pe care îl veți insera întreruperi de pagină după fiecare x rânduri și faceți clic tipărire > Inserați Pauză de pagină în fiecare rând pe Kutools Plus tab.

2. În caseta de dialog Inserare pauză de pagină fiecare rând, specificați intervalul de rânduri la care veți insera pauze de pagină și faceți clic pe Ok butonul.

Apoi veți vedea că pauzele de pagină sunt inserate simultan la intervalul specificat de rânduri.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum


Demo: introduceți pauza de pagină la fiecare x rânduri în Excel


Kutools pentru Excel: Peste 300 de instrumente la îndemână la îndemână! Începeți astăzi perioada de încercare gratuită de 30 de zile, fără limitări ale funcțiilor. Descarcă acum!

Articole relative:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear extendoffice.com
I would like to send feedback about feature: Print > Insert Page Break Every Row.

VBA Code:
Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub


When you use this function, you can only enter one variables is xRow.
So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

And the formula should be:
For i = xFirstRow + xRow + 1 To xLastrow Step xRow

Hopefully this feature will be upgraded in later versions.
Thanks,
Tuyen
This comment was minimized by the moderator on the site
Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
This comment was minimized by the moderator on the site
Thanks a lot from Istanbul / Turkey :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations