Hur sätter man in sidnummer i cell / sidhuvud / sidfot i Excel?
När du skriver ut en Excel-fil kan du behöva infoga sidnumren på sidorna för att göra den utskrivna filen snyggt och läsbar. I den här artikeln kommer jag att presentera några snabba knep för att infoga sidnumren i cell, sidhuvud eller sidfot åt dig.
Infoga sidnummer i sidhuvud / sidfot i ett kalkylblad
Infoga sidnummer i sidhuvud / sidfot över flera kalkylblad
Infoga sidnummer i cell med VBA-kod
Ta bort alla sidnummer samtidigt i Excel
Infoga sidnummer i sidhuvud / sidfot i ett kalkylblad
Normalt kan vi snabbt infoga sidnumren i sidhuvud eller sidfot med hjälp av Sidhuvud och sidfot funktion, gör så här:
1. Gå till kalkylbladet där du vill infoga sidnumren i sidhuvudet eller sidfoten.
2. Klicka sedan Insert > Sidhuvud och sidfotoch ditt kalkylblad kommer att finnas i Sidan Layout visa, se skärmdump:
3. Klicka på sidhuvudet eller sidfoten där du vill infoga sidnumret och sedan på a Designa flik med Sidhuvud & sidfotverktyg visas i menyfliksområdet och klicka sedan på Designa > Sidonummer, se skärmdump:
4. Och du kan se platshållaren &[Sida] visas i det valda avsnittet och klicka sedan var som helst utanför sidhuvudet eller sidfoten för att visa sidnumren. Se skärmdump:
5. Nu kan du återställa till normal vy genom att klicka på utsikt > Vanligt, och när du skriver ut detta kalkylblad ser du att sidnumren har infogats i sidhuvudet eller sidfoten som du valt.
Anmärkningar: Om du vill att sidnumren ska visas i formatet 1 av 15, 2 av 15 behöver du bara ange detta direkt & [Sida] av & [Sidor] i rubrik- eller sidfältets fältruta, se skärmdump:
Infoga sidnummer i sidhuvud / sidfot över flera kalkylblad
Ovanstående metod kan hjälpa dig att infoga sidnumren i ett kalkylblad, om du vill infoga sidnumren i alla kalkylblad i arbetsboken så att alla sidor numreras i sekventiell ordning, gör så här:
1. Markera alla arkflikar och gå sedan till Sidan Layout fliken och klicka på Startknapp för dialogruta ikon i Utskriftsformat grupp, se skärmdump:
2. I Utskriftsformat Klicka i dialogrutan Sidhuvud / sidfot fliken och klicka sedan på Anpassa sidhuvud or Anpassad Footer för att ställa in sidhuvudet eller sidfoten som du vill, se skärmdump:
3. Och i Sidhuvud or Sidfot i dialogrutan, definiera platsen där sidnumren infogas genom att klicka i Vänster sektion:, Mittavsnitt:, eller Höger sektion: rutan som du behöver och klicka sedan på Infoga sidnummer ikon och platshållare &[Sida] visas. Se skärmdump:
Notera: Ange detta & [Sida] av & [Sidor] i rubrik- eller sidfältets fältruta om du gillar sidnumren som visas som 1 av 45, 2 av 45 ...
4. Klicka sedan på OK > OK för att stänga dialogrutorna när du skriver ut den här arbetsboken i förhandsgranskningen kan du se att alla sidnummer sätts in i sidhuvudet eller sidfoten i sekventiell ordning.
Infoga sidnummer i cell med VBA-kod
Det är lätt för dig att infoga sidnumren i sidhuvud eller sidfot, men om du behöver infoga sidnumren i en kalkylbladcell finns det inget direkt sätt för dig att göra det. Följande VBA-kod kan hjälpa dig att lösa detta problem.
1. Klicka på en cell där du vill visa sidnumret för den här cellen.
2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Infoga aktuellt sidnummer i en 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. Tryck sedan på F5 nyckel för att köra den här koden och sidnumret för denna cell visas i den valda cellen, se skärmdump:
Ta bort alla sidnummer samtidigt i Excel
För att ta bort alla sidnummer kan du använda följande steg:
1. Markera alla arkflikar och gå till Sidan Layout på menyfliksområdet och klicka sedan på Startknapp för dialogruta ikon i Utskriftsformat grupp, se skärmdump:
2. I Utskriftsformat dialogrutan, klicka Sidhuvud / sidfot fliken och välj sedan (Ingen) från Sidhuvud or Sidfot rullgardinsmeny, se skärmdump:
3. Klicka sedan på OK -knappen tas alla sidnummer bort från arbetsboken samtidigt.
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
