Skip i'r prif gynnwys

Sut i argraffu rhesi dro ar ôl tro ar waelod pob tudalen argraffedig yn Excel?

Yn ddiofyn, mae Excel yn darparu nodwedd i ddefnyddwyr argraffu rhesi dro ar ôl tro ar y brig. Ond mewn rhai achosion, efallai y byddai'n well gennych argraffu rhesi dro ar ôl tro ar waelod tudalennau ac eithrio ar y brig. Bydd yr erthygl hon yn dangos triciau bach i chi.

Argraffwch resi dro ar ôl tro ar y gwaelod gyda chod VBA


Argraffwch resi dro ar ôl tro ar y gwaelod gyda chod VBA

Gallwch redeg y cod VBA isod i fewnosod y rhes benodol yn nhroedyn pob tudalen. Ac yna gallwch argraffu'r rhes hon dro ar ôl tro ar waelod pob tudalen argraffedig yn Excel.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Cymhwyso blwch deialog ffenestr, cliciwch Mewnosod > Modiwlau. Ac yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.

Cod VBA: Mewnosod rhes benodol yn troedynnau pob tudalen argraffedig

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. Gwasgwch y F5 allwedd i redeg y cod. Yna mae blwch deialog Kutools ar gyfer Excel yn ymddangos, dewiswch y rhes y mae angen i chi ei argraffu dro ar ôl tro ar waelod pob tudalen argraffedig, ac yna cliciwch ar y OK botwm.

Nawr mae'r cynnwys rhes penodedig yn cael ei ychwanegu at droedyn pob tudalen argraffedig yn y daflen waith gyfredol. Gallwch chi ddechrau argraffu'r daflen waith.

Nodyn: Os ydych chi am argraffu'r cynnwys a ddewiswyd dro ar ôl tro ar waelod pob tudalen yn y llyfr gwaith cyfan, gallwch gymhwyso'r swyddogaeth troedyn i fewnosod y cynnwys yn nhroedyn yr holl daflenni.


Ailadroddwch resi teitl yn hawdd ym mhob nawfed rhes yn Excel:

Kutools ar gyfer Excel's Mewnosod Rhesi Teitl gall cyfleustodau hep eich bod yn mewnosod rhes teitl yn gyflym cyn pob nawfed rhes mewn ystod ddethol yn Excel fel y screenshot isod a ddangosir.
Dadlwythwch a rhowch gynnig arni nawr! (llwybr am ddim 30 diwrnod)

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
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