Skip i'r prif gynnwys

Sut i fewnosod rhif tudalen yn y gell / pennawd / troedyn yn Excel?

Pan fyddwch chi'n argraffu ffeil Excel, efallai y bydd angen i chi fewnosod rhifau'r tudalennau yn y tudalennau i wneud y ffeil argraffedig yn dwt ac yn ddarllenadwy. Yn yr erthygl hon, byddaf yn cyflwyno rhai triciau cyflym i fewnosod rhifau'r tudalennau yn y gell, y pennawd neu'r troedyn i chi.

Rhowch rif y dudalen yn y pennawd / troedyn mewn un daflen waith

Mewnosodwch rif tudalen yn y pennawd / troedyn ar draws sawl taflen waith

Mewnosod rhif tudalen yn y gell gyda chod VBA

Tynnwch yr holl rifau tudalennau ar unwaith yn Excel


swigen dde glas saeth Rhowch rif y dudalen yn y pennawd / troedyn mewn un daflen waith

Fel rheol, gallwn fewnosod rhifau'r tudalennau yn y pennawd neu'r troedyn yn gyflym trwy ddefnyddio'r Pennawd a Throedyn swyddogaeth, gwnewch fel a ganlyn:

1. Ewch i'r daflen waith rydych chi am fewnosod rhifau'r tudalennau yn y pennawd neu'r troedyn.

2. Yna cliciwch Mewnosod > Pennawd a Throedyn, a bydd eich taflen waith i mewn Layout Tudalen gweld, gweler y screenshot:

mewnosod doc rhifau tudalennau 1

3. Cliciwch y pennawd neu'r troedyn lle rydych chi am fewnosod rhif y dudalen, ac yna a dylunio tab gyda Offer Pennawd a Throedyn yn cael ei arddangos yn y Rhuban, yna cliciwch dylunio > Rhif Tudalen, gweler y screenshot:

mewnosod doc rhifau tudalennau 2

4. A gallwch chi weld deiliad y lle & [Tudalen] ymddangos yn yr adran a ddewiswyd, yna cliciwch unrhyw le y tu allan i'r pennawd neu'r ardal troedyn i arddangos rhifau'r tudalennau. Gweler y screenshot:

mewnosod doc rhifau tudalennau 3

5. Nawr, gallwch chi ailosod yn ôl i'r olygfa arferol trwy glicio Gweld > normal, a phan argraffwch y daflen waith hon, fe welwch fod rhifau'r tudalennau wedi'u mewnosod yn y pennawd neu'r troedyn a ddewisoch.

Nodyn: Os ydych chi am i rifau'r tudalennau gael eu harddangos fel fformat 1 o 15, 2 o 15, does ond angen i chi nodi hyn yn uniongyrchol & [Tudalen] o & [Tudalennau] i mewn i'r blwch maes pennawd neu droedyn, gweler y screenshot:

mewnosod doc rhifau tudalennau 4


swigen dde glas saeth Mewnosodwch rif tudalen yn y pennawd / troedyn ar draws sawl taflen waith

Gall y dull uchod eich helpu chi i fewnosod rhifau'r tudalennau mewn un daflen waith, os ydych chi am fewnosod rhifau'r tudalennau ym mhob taflen waith yn y llyfr gwaith i sicrhau bod pob tudalen wedi'i rhifo yn nhrefn ddilyniannol, gwnewch hyn:

1. Dewiswch bob un o'r tabiau dalen, yna ewch i Layout Tudalen tab, a chlicio Botwm Lansiwr Blwch Dialog eicon yn y Page Setup grŵp, gweler y screenshot:

mewnosod doc rhifau tudalennau 5

2. Yn y Page Setup blwch deialog, cliciwch Pennawd / Troedyn tab, ac yna cliciwch Pennawd Custom or Troedyn Custom i fynd i osod y pennawd neu'r troedyn rydych chi ei eisiau, gweler y screenshot:

mewnosod doc rhifau tudalennau 6

3. Ac yn y Pennawd or Troedyn blwch deialog, diffiniwch y lleoliad lle mae rhifau'r tudalennau'n cael eu mewnosod trwy glicio y tu mewn i'r Adran chwith:, Adran y ganolfan:, neu Adran dde: blwch yn ôl yr angen, ac yna cliciwch Mewnosod Rhif Tudalen eicon, a deiliad lle & [Tudalen] yn ymddangos. Gweler y screenshot:

mewnosod doc rhifau tudalennau 7

Nodyn: Rhowch hyn & [Tudalen] o & [Tudalennau] i mewn i'r blwch maes pennawd neu droedyn os ydych chi'n hoffi'r rhifau tudalennau sy'n cael eu harddangos fel 1 o 45, 2 o 45…

4. Yna cliciwch OK > OK i gau'r blychau deialog, pan fyddwch chi'n argraffu'r llyfr gwaith hwn, yn y rhagolwg print, gallwch weld bod holl rifau'r tudalennau'n cael eu rhoi yn y pennawd neu'r troedyn yn nhrefn ddilyniannol.


swigen dde glas saeth Mewnosod rhif tudalen yn y gell gyda chod VBA

Mae'n hawdd ichi fewnosod rhifau'r tudalennau yn y pennawd neu'r troedyn, ond, os oes angen i chi fewnosod rhifau'r tudalennau mewn cell taflen waith, nid oes unrhyw ffordd uniongyrchol ichi ei wneud. Efallai y bydd y cod VBA canlynol yn eich helpu i ddatrys y broblem hon.

1. Cliciwch cell lle rydych chi am arddangos rhif tudalen y gell hon.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Mewnosodwch rif tudalen gyfredol mewn cell:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Yna pwyswch F5 allwedd i redeg y cod hwn, ac arddangosir rhif tudalen y gell hon yn y gell a ddewiswyd, gweler y screenshot:

mewnosod doc rhifau tudalennau 8


swigen dde glas saeth Tynnwch yr holl rifau tudalennau ar unwaith yn Excel

I gael gwared ar yr holl rifau tudalennau, gallwch gymhwyso'r camau canlynol:

1. Dewiswch bob un o'r tabiau dalen, ac ewch i'r Layout Tudalen tab ar y rhuban, yna cliciwch Botwm Lansiwr Blwch Dialog eicon yn y Page Setup grŵp, gweler y screenshot:

mewnosod doc rhifau tudalennau 9

2. Yn y Page Setup blwch deialog, cliciwch Pennawd / Troedyn tab, ac yna dewis (Dim) oddi wrth y Pennawd or Troedyn rhestr ostwng, gweler y screenshot:

mewnosod doc rhifau tudalennau 10

3. Yna cliciwch OK botwm, mae holl rifau'r tudalennau'n cael eu tynnu o'r llyfr gwaith ar unwaith.

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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations