Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս տեղադրել Excel- ում յուրաքանչյուր x տող էջի բաշխումը:

Կարող է ձեզ համար հեշտ և պարզ լինել էջի ընդմիջումը աշխատանքային թերթ մտցնելը: Երբեմն պահանջվում է էջի ընդմիջումներ տեղադրել յուրաքանչյուր X շարքում կոկիկ տպելու համար, ինչպե՞ս կարող եք անել: Ես Excel- ում այս խնդիրը լուծելու մի քանի մեթոդներ եմ ներկայացնում:


Տեղադրեք էջի ընդմիջում յուրաքանչյուր X տողում VBA- ով Excel- ում

Գուցե դուք նախկինում ծանոթ չեք VBA- ի գործարկմանը, բայց հետևյալ քայլերով կարող եք իմանալ, թե ինչպես գործարկել VBA- ն `յուրաքանչյուր X տողում էջի ընդմիջում տեղադրելու համար: Այստեղ ես յուրաքանչյուր 3 շարքում էջի ընդմիջում եմ տեղադրելու:

1. Մամուլ Alt + F11 ցուցադրելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2, Պատուհանում կտտացրեք Տեղադրել > Մոդուլներ ցույց տալ նոր մոդուլի պատուհան, ապա պատճենել հետևյալ VBA կոդը մոդուլի պատուհանում:

VBA. Տեղադրեք էջի ընդմիջումը աշխատանքային թերթի յուրաքանչյուր X շարքում:

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: Սեղմեք Վազում կոճակը և երկխոսությունը բացվում է ձեզ համար ՝ նշելու յուրաքանչյուր X շարքը, որի մեջ ցանկանում եք էջի ընդմիջում տեղադրել: Այստեղ ես յուրաքանչյուր 3 շարքում տեղադրում եմ էջի ընդմիջում: Տեսեք,
doc-insert-page-break-x-rows-1

4: Սեղմեք OK, այնուհետև այն յուրաքանչյուր տողում կտեղադրի էջի ընդմիջում:

Արագորեն տեղադրեք էջի բաշխումը յուրաքանչյուր (n-րդ) տողում ակտիվ աշխատանքային թերթում

Սովորաբար կտտացնում ենք մեկ էջի ընդմիջում ՝ կտտացնելով Page Layout > Breaks > Տեղադրեք էջի ընդմիջում, Բայց այս եղանակով չափազանց հոգնեցուցիչ է աշխատանքային էջում բազմակի էջերի ընդմիջումներ տեղադրելը, ինչպես յուրաքանչյուր տող առանձին էջում տպելու համար հարկավոր է յուրաքանչյուր տող տեղադրել մեկ էջի ընդմիջում: Մի անհանգստացեք Excel- ի համար նախատեսված գործիքներ Տեղադրեք էջը յուրաքանչյուր տող կոտրելու համար օգտակար ծրագիրը կարող է օգնել ձեզ հեշտությամբ արխիվացնել այն:


գովազդը ներդիր էջի յուրաքանչյուր տողում 3

Excel- ի համար Kutools- ի յուրաքանչյուր x տողից հետո խմբաքանակի ներդիրի էջի ընդմիջումներ

Եթե ​​ունեք Excel- ի համար նախատեսված Kutools, ապա դա Բաժանել սյունակների օգտակար ծրագիրը կարող է օգնել ձեզ խմբաքանակով ներդնել բազմաթիվ էջերի ընդմիջումներ յուրաքանչյուր x տողից հետո `յուրաքանչյուր էջում վերնագիր պահելով Excel- ում

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

1: Սեղմեք Բաժանել սյունակների մասին Kutools Plus էջանիշը.

2, Բացման երկխոսության տողում ՝ սյուններ, անհրաժեշտ է.

(1) Սեղմեք Bննարկել կոճակը  է Վերնագրերի տիրույթ տուփը և ընտրեք վերնագրի տողը նշված տիրույթում, որը դուք խմբաքանակով կներդնեք էջի ընդմիջումները:
(2) Սեղմեք Bննարկել կոճակը է Ամսաթիվ ընդգրկույթը տուփը և ընտրեք այն ընդգրկույթը, որը դուք կներկայացնեք խմբաքանակի էջի ընդմիջումները:
(3) Իսկ Տողեր մեկ տպված էջի համար տուփ, մուտքագրեք համար: (ԱկնարկՕրինակ ՝ եթե յուրաքանչյուր 3 տողից հետո անհրաժեշտ է էջի ընդմիջումներ տեղադրել, խնդրում ենք 3-ը մուտքագրել վանդակում: եթե յուրաքանչյուր տողից հետո անհրաժեշտ է իներտ էջի ընդմիջումներ կատարել, մուտքագրեք 1.)
(4) Մուտքագրեք 1-ը Բաժինների քանակը տուփ:

3. Սեղմեք Ok կոճակը:

Այժմ կտեսնեք, որ միջակայքը պատճենվում է նոր աշխատանքային թերթում, և էջի ընդմիջումները ավելացվում են յուրաքանչյուր x տողից հետո ՝ պահպանելով տիրույթի վերնագիրը: Կարող եք նաև անցնել Page Break Preview դիտմանը ՝ կտտացնելով Դիտել > Էջի ընդմիջման նախադիտում տեսնել այս էջերի ընդմիջումները: Տե՛ս ստորև նշված էկրանի նկարը:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now


Տեղադրեք էջի ընդմիջումներ յուրաքանչյուր x տողից հետո Kutools- ի համար Excel- ի համար

Kutools- ը Excel- ի համար մշակում է մեկ այլ ներդիր էջի տեղադրում յուրաքանչյուր տող կոտրելու համար, որը մասնագիտանում է յուրաքանչյուր x տողից հետո էջի ընդմիջումներ տեղադրելու մեջ:

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

1, Ընտրեք այն ընդգրկույթը, որը յուրաքանչյուր x տողից հետո կտեղադրեք էջի ընդմիջումներ և կտտացրեք Տպագրություն > Տեղադրեք էջը յուրաքանչյուր տող կոտրելու համար մասին Kutools Plus էջանիշը.

2, Բացման էջում Տեղադրեք էջը յուրաքանչյուր տող կոտրելու երկխոսության պատուհանում, նշեք այն տողերի միջակայքը, որոնցում կտեղադրեք էջի ընդմիջումները և կտտացրեք Ok կոճակը:

Դրանից հետո կտեսնեք, որ էջի ընդմիջումները տեղադրվում են միանգամից տողերի նշված ընդմիջումից:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now


Դեմո. Էջում տեղադրեք Excel- ի յուրաքանչյուր x տող


Excel- ի համար նախատեսված գործիքներ300-ից ավելի հարմար գործիքներ ձեր մատների տակ: Այսօր սկսեք ձեր 30-օրյա անվճար փորձաշրջանը՝ առանց գործառույթների սահմանափակումների: Download Now!

Հարաբերական հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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