Sut i ailadrodd rhesi ar ben pob allbrint ac eithrio'r dudalen olaf yn Excel?
Mewn llawer o achosion, efallai y bydd angen i chi ailadrodd y rhes pennawd ar ben pob tudalen argraffedig yn Excel. Ond sut i ailadrodd rhesi ar ben pob allbrint ac eithrio'r dudalen olaf? Bydd yr erthygl hon yn dangos dull i chi ei gyflawni.
Ailadroddwch resi ar ben pob allbrint ac eithrio'r dudalen olaf gyda chod VBA
Ailadroddwch resi ar ben pob allbrint ac eithrio'r dudalen olaf gyda chod VBA
Gallwch redeg y cod VBA isod i argraffu pob tudalen gyda rhesi dro ar ôl tro ac eithrio'r dudalen olaf. Gwnewch fel a ganlyn.
1. Agorwch y daflen waith mae angen i chi ailadrodd rhesi ar ei phen ac eithrio'r dudalen olaf, yna pwyswch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
VBA: Ailadrodd rhesi ar ben pob allbrint ac eithrio'r dudalen olaf yn Excel
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub3. Gwasgwch y F5 allwedd i redeg y cod, yna a Kutool ar gyfer Excel blwch deialog yn ymddangos, dewiswch yr ystod rhes y mae angen i chi ei hailadrodd ar ben pob allbrint ac eithrio'r dudalen olaf, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Yna mae'r holl dudalennau yn y daflen waith hon wedi'u hargraffu gyda rhes benodol yn ailadrodd ar ei phen ac eithrio'r dudalen olaf.
Erthyglau perthnasol:
- Sut i ailadrodd gwerth cell nes bod gwerth newydd yn cael ei weld neu ei gyrraedd yn Excel?
- Sut i ailadrodd cymeriad n amseroedd mewn cell yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!
