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

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

Լռելյայն, Excel- ը օգտվողներին տրամադրում է վերևում բազմիցս տողեր տպելու հատկություն: Բայց որոշ դեպքերում դուք կարող եք նախընտրել անընդմեջ տպել տողերը էջերի ներքևում, բացառությամբ վերևի մասի: Այս հոդվածը ձեզ ցույց կտա փոքրիկ հնարքներ:

Տողերը բազմիցս տպեք ներքևում ՝ VBA կոդով


Տողերը բազմիցս տպեք ներքևում ՝ VBA կոդով

Յուրաքանչյուր էջի տողատակում նշված տողը տեղադրելու համար կարող եք գործարկել ստորև նշված VBA կոդը: Եվ ապա այս շարքը կարող եք բազմիցս տպել Excel- ի յուրաքանչյուր տպված էջի ներքևում:

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic կիրառման համար պատուհան.

2. Մեջ Microsoft Visual Basic կիրառման համար պատուհանի երկխոսության տուփ, կտտացրեք Տեղադրել > Մոդուլներ, Եվ ապա պատճենեք և կպցրեք ստորև նշված VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Տեղադրեք նշված տողը յուրաքանչյուր տպված էջի տողատակերում

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար: Դրանից հետո հայտնվում է Kutools for Excel երկխոսության պատուհանը, ընտրեք այն տողը, որը դուք պետք է բազմիցս տպեք յուրաքանչյուր տպված էջի ներքևում, և այնուհետև կտտացրեք OK կոճակը:

Այժմ նշված տողի բովանդակությունն ավելացվում է ընթացիկ աշխատանքային թերթի յուրաքանչյուր տպագիր էջի տողատակում: Կարող եք սկսել տպել աշխատանքային թերթը:

ՆշումԵթե ​​ուզում եք ընտրված բովանդակությունը բազմիցս տպել յուրաքանչյուր էջի ներքևում ամբողջ աշխատանքային գրքում, կարող եք կիրառել տողատակի ֆունկցիան ՝ պարունակությունը բոլոր թերթերի տողատակի մեջ տեղադրելու համար:


Excel- ի յուրաքանչյուր n- րդ շարքերում հեշտությամբ կրկնել վերնագրի տողերը.

Excel- ի համար նախատեսված գործիքներ's Տեղադրեք վերնագրի տողերը օգտակար ծրագիրը կարող է օգնել ձեզ արագորեն տեղադրել յուրաքանչյուր տասներորդ շարքում Excel- ում ընտրված տիրույթում, ինչպես ցույց է տրված ստորև նկարված նկարը:
Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)

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

🤖 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 (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I've been trying to use the above code but when I try to print te code it doesn't work. I followed all above steps and it doesn't give me any errors.
I'm using office 365. Any tips ?

Thanks in advance,
This comment was minimized by the moderator on the site
Hi Tim,
Hi, the selected row will be inserted into the page footer, you need to switch to the Page Layout view to check for the result. Thank you for your comment.
This comment was minimized by the moderator on the site
Hi,

When I start the macro and select the wished rows it doesn't work when I try to print. What can this be?
Using office 365.

Thanks,
This comment was minimized by the moderator on the site
Hi,
I am trying a few times but it's not working. Please advise.
This comment was minimized by the moderator on the site
Good day,
Thank you for your comment. Which Office version do you use?
This comment was minimized by the moderator on the site
If I may, I use Office365 but its not working. Have tried putting the view on Page Layout Mode to no avail. Hope you can help. Thanks.
This comment was minimized by the moderator on the site
Thank you So Muchhhh...
It helped me very much.
This comment was minimized by the moderator on the site
Thanks for sharing. is any possibility of VBA code to repeated footer same as with "print titles" option including lines and auto page number. if possible please help me.
This comment was minimized by the moderator on the site
Thanks for sharing the macro to repeat the rows at the bottom of the page. Can this Macro be modified to Repeat selected Rows with the format as well.. In the provided Macro only Values are repeated at the bottom of each page, I am looking forward to copy the format as well at the bottom of the page..
This comment was minimized by the moderator on the site
Thanks a lot. This macro serves my purpose, Thanks to the creator and the person who had shared Macro
This comment was minimized by the moderator on the site
Thanks for Macro sharing. It serves my purpose. Thanks a lot.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations