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
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:
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:
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:
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:
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:
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:
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:
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.
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:
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:
2. I Sideopsætning dialogboksen, klik Header / Fodnote fanen, og vælg derefter (Ingen) fra Header or Sidefod rulleliste, se skærmbillede:
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.
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!
