Gå til hovedindhold

Hvordan indsættes sidetal i celle / sidehoved / sidefod i Excel?

Forfatter: Xiaoyang Sidst ændret: 2020-04-21

Når du udskriver en Excel-fil, skal du muligvis indsætte sidetallene på siderne for at gøre den udskrevne fil pæn og læselig. I denne artikel vil jeg introducere nogle hurtige tricks til at indsætte sidetalene i celle, sidehoved eller sidefod for dig.

Indsæt sidenummer i sidehoved / sidefod i et regneark

Indsæt sidenummer i sidehoved / sidefod på tværs af flere regneark

Indsæt sidenummer i celle med VBA-kode

Fjern alle sidetal på én gang i Excel


pil blå højre boble Indsæt sidenummer i sidehoved / sidefod i et regneark

Normalt kan vi hurtigt indsætte sidetallene i sidehoved eller sidefod ved hjælp af Sidehoved og sidefod funktion, skal du gøre som følger:

1. Gå til regnearket, som du vil indsætte sidetallene i sidehovedet eller sidefoden.

2. Klik derefter på indsatte > Sidehoved og sidefod, og dit regneark vil være i Sidelayout se, se skærmbillede:

doc indsæt sidetal 1

3. Klik på sidehovedet eller sidefoden, hvor du vil indsætte sidenummeret, og derefter a Design fane med Header & Footer Tools vises i båndet, og klik derefter på Design > Sidenummer, se skærmbillede:

doc indsæt sidetal 2

4. Og du kan se pladsholderen &[Side] vises i det valgte afsnit, og klik derefter et vilkårligt sted uden for sidehovedet eller sidefoden for at få vist sidetalene. Se skærmbillede:

doc indsæt sidetal 3

5. Nu kan du nulstille tilbage til normal visning ved at klikke på Specifikation > Normal, og når du udskriver dette regneark, vil du se sidetallene er indsat i den sidehoved eller sidefod, du valgte.

Bemærk: Hvis du vil have sidetalene vist i formatet 1 i 15, 2 i 15, skal du bare indtaste dette direkte & [Side] af & [Sider] i sidehovedet eller sidefodfeltfeltet, se skærmbillede:

doc indsæt sidetal 4


pil blå højre boble Indsæt sidenummer i sidehoved / sidefod på tværs af flere regneark

Ovenstående metode kan hjælpe dig med at indsætte sidetallene i et regneark, hvis du vil indsætte sidetalene i alle regneark i projektmappen for at få alle sider til at blive nummereret i rækkefølge, skal du gøre som dette:

1. Vælg alle arkfaner, og gå derefter til Sidelayout fane og klik Knap til start af dialogboks ikon i Sideopsætning gruppe, se skærmbillede:

doc indsæt sidetal 5

2. I Sideopsætning Klik på dialogboksen Header / Fodnote fanebladet, og klik derefter på Tilpasset header or Brugerdefineret sidefod for at gå til at indstille den sidehoved eller sidefod, du ønsker, se skærmbillede:

doc indsæt sidetal 6

3. Og i Header or Sidefod i dialogboksen, skal du definere det sted, hvor sidetalene indsættes, ved at klikke inde i Venstre sektion:, Center sektion: eller Højre sektion: boks, som du har brug for, og klik derefter på Indsæt sidenummer ikon og pladsholder &[Side] kommer til syne. Se skærmbillede:

doc indsæt sidetal 7

Bemærk: Indtast dette & [Side] af & [Sider] i feltboksens sidehoved eller sidefod, hvis du kan lide de sidetal, der vises som 1 af 45, 2 af 45 ...

4. Klik derefter på OK > OK for at lukke dialogbokse, når du udskriver denne projektmappe, i preview-udskriften, kan du se alle sidetal indsættes i sidehovedet eller sidefoden i rækkefølge.


pil blå højre boble Indsæt sidenummer i celle med VBA-kode

Det er let for dig at indsætte sidetalene i sidehoved eller sidefod, men hvis du har brug for at indsætte sidetalene i en regnearkcelle, er der ingen direkte måde for dig at gøre det på. Følgende VBA-kode kan hjælpe dig med at løse dette problem.

1. Klik på en celle, hvor du vil have vist cellenes sidetal.

2. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Indsæt det aktuelle sidetal i en celle:

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. Tryk derefter på F5 nøgle til at køre denne kode, og sidens nummer på denne celle vises i den valgte celle, se skærmbillede:

doc indsæt sidetal 8


pil blå højre boble Fjern alle sidetal på én gang i Excel

For at fjerne alle sidetalene kan du anvende følgende trin:

1. Vælg alle arkfaner, og gå til Sidelayout fanen på båndet, og klik derefter på Knap til start af dialogboks ikon i Sideopsætning gruppe, se skærmbillede:

doc indsæt sidetal 9

2. I Sideopsætning dialogboksen, klik Header / Fodnote fanen, og vælg derefter (Ingen) fra Header or Sidefod rulleliste, se skærmbillede:

doc indsæt sidetal 10

3. Klik derefter på OK -knappen fjernes alle sidetalene på samme tid fra projektmappen.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

 

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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations