Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vstaviti prelom strani vsakih x vrstic v Excelu?

Morda je preprosto in enostavno vstaviti prelom strani v delovni list. Včasih je za vstavljanje stranic v vsako vrstico X treba natisniti čudovito, kako lahko storite? Tukaj uvajam nekaj metod za rešitev te težave v Excelu.

Vstavite preloma strani vsakih X vrstic z VBA v Excelu

Stran se vstavi po vsaki x vrstici

Stran za vstavljanje baze se po vsakem x vrstičku prekine z dodajanjem naslova vrstice nad vsakimi x vrsticami

Hitro vstavite stran na vsako (nth) vrstico na aktivnem delovnem listu

Običajno vstavimo eno stransko prekinitev s klikom Postavitev strani > odmori > Vstavi prelom strani. Toda na ta način je preveč dolgočasno, da vstavite več prelomov strani na delovni list, kot je na primer, če želite vstaviti eno stran, ki je v vsaki vrstici, za tiskanje posamezne vrstice na ločeni strani. Ne skrbi! Kutools za Excelove Vstavi Page Break Every Row pripomoček vam lahko pomaga z lahkoto arhivirati! Popolna brezplačna preizkusna različica 60-dan!

oglasna stran vstavi stran vsako vrstico 3


Morda niste seznanjeni z VBA, ki se izvaja pred tem, vendar lahko z naslednjimi koraki izvedete, kako zagnati VBA, da vstavite stran, ki bi prekinila vsako vrstico X. Tukaj bom vstavil prelom strani v vsako vrstico 3.

1. Pritisnite Alt + F11 za prikaz Microsoft Visual Basic za aplikacije okno.

2. V oknu kliknite Vstavi > Moduli da prikažete novo okno modula, nato pa v okno modula kopirajte naslednjo kodo VBA.

VBA: vstavite prelom strani v vsaki vrstici X v preglednico.

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. klik Run gumb in pogovorno okno se prikaže za vas, da določite vse vrstice X, v katere želite vstaviti prelom strani. Tu vstavim prelom strani v vsako vrstico 3. Prikaz slike:

doc-insert-page-break-x-vrstice-1

4. klik OK, nato pa vstavi prelom strani v vsaki vrstici X.


Če imate Kutools for Excel nameščen, je Razdeli na stolpce pripomoček vam lahko pomaga, da vstavite več prelomov strani po vsakih x vrsticah z enostavnim shranjevanjem naslova na vsaki strani v Excelu.

Kutools za Excel - Združuje več kot 300 napredne funkcije in orodja za Microsoft Excel

1. Kliknite Podjetje > Razdeli na stolpce.

2. V pogovornem oknu »Odpri na stolpce« morate:

(1) Kliknite gumb Prebrskaj v Razpon naslovov polje in izberite naslovno vrstico v določenem obsegu, v katerem boste vstavili prelom strani.
(2) Kliknite gumb Prebrskaj v Časovno obdobje polje in izberite obseg, ki ga boste vstavili, da se vstavijo strani.
(3) V Vrstice na natisnjeno stran polje, vnesite številko. (Nasvet: Na primer, če morate vstaviti prelome strani po vsaki vrstici 3, vnesite 3 v polje; če želite po inertnih prelomih strani po vsaki vrstici, vnesite 1.)
(4) Vnesite 1 v Število segmentov škatla.

3. Kliknite Ok gumb.

Zdaj boste videli, da se obseg kopira v nov delovni list in se prelomi strani dodajo po vsaki x vrstici z ohranjanjem naslova domene. Prav tako lahko preklapljate s prikazom predogleda strani, tako da kliknete Pogled > Page Break Predogled da bi videli te prelome strani. Glej spodnji zaslon.

Kutools za Excel - Vključuje več kot priročna orodja Excel za 300. Celotna brezplačna preizkusna različica 60-dan, brez kreditne kartice! Get it now!


Kutools za Excel razvija še eno orodje Insert Page Break Every Row, specializirano za vstavljanje prelomov strani po vsakem x vrsticah.

Kutools za Excel - Združuje več kot 300 napredne funkcije in orodja za Microsoft Excel

1. Izberite obseg, v katerega boste vstavili prelome strani po vsaki x vrstici in kliknite na Podjetje > Tiskanje > Vstavi Page Break Every Row.

2. V pogovornem oknu Insert Page Break Every Row navedite interval vrstic, na katere boste vstavili prelome strani in kliknite Ok gumb.

Nato bodo vidne prelomi strani vstavljeni v določenem intervalu vrstic hkrati.

Kutools za Excel - Vključuje več kot priročna orodja Excel za 300. Celotna brezplačna preizkusna različica 60-dan, brez kreditne kartice! Get it now!


V tem videoposnetku Kutools in zavihek Kutools Plus zavihek doda Kutools za Excel. Če je potrebno, kliknite tukaj da brezplačno brezplačno preizkusite 60-dan!




Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tuyen · 11 months ago
    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
  • To post as a guest, your comment is unpublished.
    Emad · 4 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Yalin · 4 years ago
    Thanks a lot from Istanbul / Turkey :)