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

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

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.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund

 

Sorter kommentarer efter
Kommentarer (8)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Jeg brugte Indsæt sidenummer i cellen med VBA-kode ovenfor, og det virker en charme. Mit ark kunne være enten 2 sider langt (2 nede og 1 på tværs), 4 sider langt (2 nede og 2 på tværs) eller 6 sider langt (2 nede og 3 på tværs). Jeg har indsat koden i hver celle af de 6, der kræver sidetal for at blive udskrevet (ved at vælge cellerne hver på skift og køre VBA), celleadresser er H1, H35, T1, T35, AF1, AF35. Nu vil jeg gerne tilføje en knap for at opdatere disse sidetal uden at påvirke hvilken celle der måtte være aktiv, når den relevante bruger kan vælge at køre den, i øjeblikket er jeg nødt til at vælge hver celle på skift igen og køre VBA :( Assistance ville være enormt værdsat! Antoinette
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede VBA-makroen, men jeg får en fejlmeddelelse uden for rækkevidde... Gjorde jeg noget forkert?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, der er en fejl en formel porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo harce el conteo de páginas el segundo valor. Podrian revisar... Gracias
Denne kommentar blev minimeret af moderatoren på webstedet
terima kasih, kawan
Denne kommentar blev minimeret af moderatoren på webstedet
Må jeg vide, om jeg har en række celler, som jeg vil indsætte i sidetal, hvad skal jeg ændre? Den nuværende VBA tillader mig kun at ændre én efter én.
Denne kommentar blev minimeret af moderatoren på webstedet
Må jeg vide, hvordan jeg skal ændre ovenstående VBA, der giver mig mulighed for at udføre dette til et celleområde i en projektmappe og med 1 genvejstast for at anvende alle valgte celler?
Denne kommentar blev minimeret af moderatoren på webstedet
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?
Denne kommentar blev minimeret af moderatoren på webstedet
Hay forma de convertir esta sub en una función?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL