Sut i gymhwyso gwahanol benawdau neu droedynnau ar bob tudalen ar daenlen Excel?
Yn ddiofyn, wrth fewnosod pennawd neu droedyn mewn taflen waith, bydd y cynnwys pennawd neu droedyn yn cael ei gymhwyso ar bob tudalen. I lawer o bobl, gall fod gan wahanol dudalennau gynnwys gwahanol yn eu taflenni gwaith. Ac maen nhw'n tueddu i wahaniaethu'r tudalennau hyn gyda'r cynnwys pennawd neu droedyn ar ôl argraffu'r daflen waith. Sut i gymhwyso gwahanol benawdau neu droedynnau ar bob tudalen ar daflen waith? Gall dull yn yr erthygl hon eich helpu chi.
Rhowch wahanol benawdau neu droedynnau ar bob tudalen gyda chod VBA
Rhowch wahanol benawdau neu droedynnau ar bob tudalen gyda chod VBA
Gall y cod VBA canlynol eich helpu i gymhwyso gwahanol benawdau neu droedynnau ar bob tudalen o daflen waith. Gwnewch fel a ganlyn.
1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Cymhwysos ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r Côd ffenestr. Gweler y screenshot:
Cod VBA: Rhowch wahanol benawdau ar bob tudalen yn Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Nodiadau:
3. Gwasgwch y F5 allwedd i redeg y cod. Yna y Rhagolwg ffenestr pops i fyny, cliciwch y print botwm i ddechrau argraffu'r tudalennau gyda gwahanol benawdau neu droedynnau.
Nodyn: Os oes 4 tudalen argraffedig benodol yn y daflen waith, mae angen i chi glicio ar y print botwm bedair gwaith i orffen yr argraffu cyfan.
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!