Note: The other languages of the website are Google-translated. Back to English

Sut i fewnosod toriad tudalen bob x rhes yn Excel?

Efallai y bydd yn hawdd ac yn syml ichi fewnosod toriad tudalen mewn taflen waith. Weithiau, mae'n ofynnol mewnosod seibiannau tudalen ym mhob rhes X i'w hargraffu'n daclus, sut allech chi wneud? Yma, rwy'n cyflwyno cwpl o ddulliau i ddatrys y broblem hon yn Excel.


Mewnosodwch dorri tudalen bob rhes X gyda VBA yn Excel

Efallai nad ydych chi'n gyfarwydd â VBA yn rhedeg o'r blaen, ond gyda'r camau canlynol efallai y byddwch chi'n gwybod sut i redeg y VBA i fewnosod toriad tudalen bob rhes X. Yma, byddaf yn mewnosod toriad tudalen ym mhob 3 rhes.

1. Gwasgwch Alt + F11 i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr, cliciwch Mewnosod > Modiwlau i ddangos ffenestr modiwl newydd, yna copïwch y cod VBA canlynol i mewn i ffenestr y modiwl.

VBA: Mewnosodwch doriad tudalen ym mhob rhes X mewn taflen waith.

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. Cliciwch Run botwm a deialog yn galw allan i chi nodi pob rhes X rydych chi am fewnosod toriad tudalen ynddo. Yma rwy'n mewnosod toriad tudalen ym mhob 3 rhes. Gweler y screenshot:
doc-insert-page-break-x-rows-1

4. Cliciwch OK, ac yna bydd yn mewnosod toriad tudalen ym mhob rhes X.

Mewnosodwch doriad tudalen yn gyflym bob (nfed) rhes yn y daflen waith weithredol

Fel rheol, rydyn ni'n mewnosod egwyl un dudalen gyda chlicio Layout Tudalen > seibiannau > Mewnosod Egwyl Tudalen. Ond fel hyn mae'n rhy ddiflas i swp mewnosod seibiannau tudalen lluosog mewn taflen waith, fel mae angen i chi fewnosod toriad un dudalen bob rhes ar gyfer argraffu pob rhes mewn tudalen ar wahân. Peidiwch â phoeni! Kutools ar gyfer Excel's Mewnosod Tudalen Torri Pob Rhes gall cyfleustodau eich helpu i'w archifo'n hawdd! Nodwedd Llawn Am Ddim Treial 30-diwrnod!
ad mewnosod tudalen torri pob rhes 3

Mewnosodiadau swp mewnosodiad swp ar ôl pob x rhes gyda Kutools ar gyfer Excel

Os oes gennych Kutools for Excel wedi'i osod, mae ei Hollti i Golofnau gall cyfleustodau eich helpu i swp-fewnosod seibiannau tudalen lluosog ar ôl pob x rhes gyda chadw teitl ym mhob tudalen yn hawdd yn Excel.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Treial Am Ddim Nawr!

1. Cliciwch Hollti i Golofnau ar y Kutools Byd Gwaith tab.

2. Yn y blwch deialog agoriadol Hollti i Golofnau, mae angen i chi:

(1) Cliciwch y botwm Pori  yn y Mae'r teitlau'n amrywio blwch, a dewiswch y rhes deitl yn yr ystod benodol y byddwch chi'n ei swpio mewnosodiadau tudalen.
(2) Cliciwch y botwm Pori yn y Amrediad Dyddiad blwch, a dewiswch yr ystod y byddwch chi'n ei swpio mewnosodiadau tudalen.
(3) Yn y Rhesi ar bob tudalen argraffedig blwch, nodwch rif. (Tip: Er enghraifft, os oes angen i chi fewnosod seibiannau tudalen ar ôl pob 3 rhes, rhowch 3 yn y blwch; os oes angen i chi seibiannau tudalen anadweithiol ar ôl pob rhes, nodwch 1.)
(4) Rhowch 1 yn y Nifer y segmentau blwch.

3. Cliciwch y Ok botwm.

Nawr fe welwch fod yr ystod yn cael ei chopïo i mewn i daflen waith newydd, ac ychwanegir seibiannau tudalen ar ôl pob x rhes gyda theitl amrediad cadw. Gallwch hefyd newid i'r olygfa Rhagolwg Torri Tudalen trwy glicio Gweld > Rhagolwg Torri Tudalen i weld y toriadau tudalen hyn. Gweler isod y llun sgrin.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Get It Now


Mewnosod seibiannau tudalen ar ôl pob x rhes gyda Kutools ar gyfer Excel

Mae Kutools for Excel yn datblygu cyfleustodau Mewnosod Tudalen Torri Pob Rhes arall sy'n arbenigo mewn mewnosod seibiannau tudalen ar ôl pob x rhes yn gartrefol.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Treial Am Ddim Nawr!

1. Dewiswch yr ystod y byddwch yn mewnosod seibiannau tudalen ar ôl pob x rhes, a chlicio Argraffu > Mewnosod Tudalen Torri Pob Rhes ar y Kutools Byd Gwaith tab.

2. Yn y blwch deialog agor Mewnosod Tudalen Torri Pob Rhes, nodwch yr egwyl o resi y byddwch yn mewnosod seibiannau tudalen ynddynt, a chliciwch ar y Ok botwm.

Yna fe welwch doriadau tudalen yn cael eu mewnosod ar yr egwyl benodol o resi ar unwaith.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Get It Now


Demo: mewnosodwch dudalen yn torri pob x rhes yn Excel


Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt heb gyfyngiad mewn 30 diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Erthyglau Perthynas:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr gan Istanbul / Twrci :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch yn fawr am y cod. Ond pan fyddaf yn pwyso Diddymu neu x ar y blwch mewnbwn; mae'r ffeil excel yn chwalu. A allwch chi helpu i ddatrys y mater hwn os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl extendoffice. Gyda
Hoffwn anfon adborth am y nodwedd: Argraffu > Mewnosod Page Break Every Row.

Cod VBA:
Is-MewnosodPageBreaks()
'Diweddariad erbyn20140618
Dim xLastrow Cyhyd
Dim xWs Fel Taflen Waith
Gosod xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId,"", Math:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Rhes
Ar gyfer i = xRow + 1 I xLastrow Cam xRow
xWs.HPageBreaks.Ychwanegu Cyn:=xWs.Cells(i, 1)
Digwyddiadau
Is-End


Pan fyddwch chi'n defnyddio'r swyddogaeth hon, dim ond un newidyn y gallwch chi ei nodi yw xRow.
Felly bydd y nodwedd hon bron yn ddiwerth oherwydd nad yw'n hyblyg. Nid yw'r holl ddata yn cychwyn o Rhes 1, heb sôn am ddata fel arfer yn dabl ac mae ganddo res Pennawd.

Rwy'n credu y dylai fod gan y nodwedd hon newidyn arall yw xFirstRow, fel y gallwch ddiffinio'r rhes gyntaf o ddata:
xFirstRow = Application.InputBox("Rhes Gyntaf", xTitleId,"", Math:=1)

A dylai'r fformiwla fod:
Ar gyfer i = xFirstRow + xRow + 1 I xLastrow Cam xRow

Gobeithio y bydd y nodwedd hon yn cael ei huwchraddio mewn fersiynau diweddarach.
Diolch,
Tuyen
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir