Note: The other languages of the website are Google-translated. Back to English

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:

1. Yn y cod VBA, mae angen i chi neilltuo gwahanol enwau pennawd neu droedyn yn y darn o god “vLeft = Array ("Tudalen gyntaf", "Ail dudalen", "Trydedd dudalen", "pedwaredd dudalen")".
2. A nodwch ardal argraffu pob tudalen yn y daflen waith gyfredol yn y darn cod “xRg = Array ("A1: C50", "A51: C100", "A101: C150", "A151: C200")".
3. Ar gyfer defnyddio gwahanol droedynnau, rhowch y gair “Pennawd”Yn y cod gyda“Troedyn".

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.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir