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.
Bedste kontorproduktivitetsværktøjer
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...
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!