Skip to main content

Conas briseadh leathanaigh gach x sraitheanna in Excel a chur isteach?

B’fhéidir go mbeadh sé éasca agus simplí duit briseadh leathanaigh a chur isteach i mbileog oibre. Uaireanta, éilítear sosanna leathanaigh a chur isteach i ngach sraitheanna X le priontáil go slachtmhar, conas a d’fhéadfá a dhéanamh? Seo a thugann mé cúpla modh isteach chun an fhadhb seo a réiteach in Excel.


Cuir isteach briseadh leathanaigh gach X sraitheanna le VBA in Excel

B’fhéidir nach bhfuil tú eolach ar VBA ag rith roimhe seo, ach leis na céimeanna seo a leanas b’fhéidir go mbeadh a fhios agat conas an VBA a rith chun briseadh leathanaigh a chur isteach gach X sraitheanna. Cuirfidh mé isteach briseadh leathanaigh anseo i ngach 3 shraith.

1. Brúigh Alt + F11 chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. San fhuinneog, cliceáil Ionsáigh > Modúil chun fuinneog nua modúil a thaispeáint, ansin cóipeáil an cód VBA seo a leanas isteach i bhfuinneog an mhodúil.

VBA: Cuir isteach briseadh leathanaigh i ngach sraitheanna X i mbileog oibre.

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. Cliceáil Rith tagann cnaipe agus dialóg amach duit chun gach sraitheanna X a theastaíonn uait briseadh leathanaigh a chur isteach a shonrú. Seo cuirim briseadh leathanaigh isteach i ngach 3 shraith. Féach an pictiúr:
doc-insert-leathanach-briseadh-x-sraitheanna-1

4. Cliceáil OK, agus ansin cuirfidh sé briseadh leathanaigh isteach i ngach sraitheanna X.

Cuir isteach briseadh leathanach go tapa gach (nth) as a chéile sa bhileog oibre ghníomhach

De ghnáth cuirimid briseadh leathanach amháin isteach le cliceáil Leagan Amach Page > Bhriseann > Cuir Sos Leathanach isteach. Ach ar an mbealach seo tá sé ró-tedious babhtaí il leathanaigh a chur isteach i mbileog oibre, mar shampla ní mór duit briseadh leathanaigh amháin a chur isteach gach ró chun gach ró a phriontáil ar leathanach ar leithligh. Ná bíodh imní ort! Kutools le haghaidh Excel's Ionsáigh Leathanach Briseadh Gach Rae is féidir le fóntais cabhrú leat é a chartlannú go héasca!


cuir isteach leathanach briseadh gach sraith 3

Briseann leathanaigh isteach baisc tar éis gach x sraitheanna le Kutools le haghaidh Excel

Má tá Kutools for Excel suiteáilte agat, tá a Scoilt go Colúin is féidir le fóntais cabhrú leat baisc il-leathanaigh a chur isteach tar éis gach x sraitheanna agus an teideal i ngach leathanach a choinneáil go héasca in Excel.

Kutools le haghaidh Excel - Pacáilte le breis agus 300 uirlis riachtanach le haghaidh Excel. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Íoslódáil anois!

1. Cliceáil Scoilt go Colúin ar an Kutools Plus Tab.

2. Sa bhosca dialóige oscailte Scoilt go Colúin, ní mór duit:

(1) Cliceáil ar an gcnaipe Brabhsáil  sa Raon teidil bosca, agus roghnaigh an tsraith teidil sa raon sonraithe a chuirfidh tú baisc isteach sosanna leathanaigh.
(2) Cliceáil ar an gcnaipe Brabhsáil sa Raon dáta bosca, agus roghnaigh an raon a chuirfidh tú baisc isteach sosanna leathanaigh.
(3) Sa Sraitheanna in aghaidh an leathanaigh chlóite bosca, iontráil uimhir. (Leid: Mar shampla, más gá duit sosanna leathanaigh a chur isteach tar éis gach 3 shraith, cuir 3 isteach sa bhosca le do thoil; más gá duit sosanna leathanaigh táimhe a dhéanamh tar éis gach as a chéile, iontráil 1.)
(4) Iontráil 1 isteach sa Líon deighleoga bosca.

3. Cliceáil ar an Ok cnaipe.

Anois feicfidh tú go ndéantar an raon a chóipeáil isteach i mbileog oibre nua, agus go gcuirtear sosanna leathanaigh i ndiaidh gach x sraitheanna le teideal raon a choinneáil. Is féidir leat aistriú go dtí an t-amharc Réamhamharc Sos Leathanach trí chliceáil Amharc > Réamhamharc Sos Leathanach chun na sosanna leathanaigh seo a fheiceáil. Féach thíos griangraf.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois


Cuir isteach sosanna leathanaigh tar éis gach x sraitheanna le Kutools le haghaidh Excel

Forbraíonn Kutools for Excel fóntais Ionsáigh Leathanach Gach Réim eile a dhéanann sainfheidhmiú ar shosanna leathanaigh a chur isteach tar éis gach x sraitheanna ar a suaimhneas.

Kutools le haghaidh Excel - Pacáilte le breis agus 300 uirlis riachtanach le haghaidh Excel. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Íoslódáil anois!

1. Roghnaigh an raon a chuirfidh tú sosanna leathanaigh isteach tar éis gach x sraitheanna, agus cliceáil Priontáil > Ionsáigh Leathanach Briseadh Gach Rae ar an Kutools Plus Tab.

2. Sa bhosca dialóige Oscail Leathanach Briseadh Gach Rae, sonraigh eatramh na sraitheanna a chuirfidh tú sosanna leathanaigh isteach, agus cliceáil ar an Ok cnaipe.

Ansin feicfidh tú go gcuirtear sosanna leathanaigh isteach ag an eatramh sonraithe sraitheanna ag an am céanna.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois


Taispeántas: cuir isteach briseadh leathanach gach x sraitheanna in Excel


Kutools le haghaidh Excel: Breis is 300 uirlis láimhe ar do mhéar! Cuir tús le do thriail saor in aisce 30-lá gan aon srianta gné inniu. Íosluchtaigh Anois!

Ailt Choibhneasta:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello, Why is it limited to number. If my spreadsheet has more than 1000 rows it will not complete the page breaks for all rows after that point.
Thanks
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