Ugrás a tartalomra

Hogyan illesszük be az oldalszámot az Excel cellájába / fejlécébe / láblécébe?

Excel fájl kinyomtatásakor előfordulhat, hogy be kell illesztenie az oldalszámokat az oldalakba, hogy a kinyomtatott fájl szép és olvasható legyen. Ebben a cikkben bemutatok néhány gyors trükköt az oldalszámok cellába, fejlécbe vagy láblécbe történő beszúrására.

Helyezze be az oldalszámot egy munkalap fejlécébe / láblécébe

Helyezze be az oldalszámot a fejlécbe / láblécbe több munkalapon

Helyezze be az oldalszámot a VBA kóddal ellátott cellába

Távolítsa el az összes oldalszámot egyszerre az Excelben


nyíl kék jobb buborék Helyezze be az oldalszámot egy munkalap fejlécébe / láblécébe

Normális esetben gyorsan beilleszthetjük az oldalszámokat a fejlécbe vagy a láblécbe a Fejléc lábléc funkciót, kérjük, tegye a következőket:

1. Lépjen a munkalapra, amelybe az oldalszámokat be szeretné illeszteni a fejlécbe vagy a láblécbe.

2. Ezután kattintson betétlap > Fejléc lábléc, és a munkalapja benne lesz Page Layout nézet, lásd a képernyőképet:

doc beszúrni az oldalszámokat 1

3. Kattintson arra a fejlécre vagy láblécre, ahová be szeretné illeszteni az oldalszámot, majd a Design fülre Fejléc és lábléc eszközök jelenik meg a szalagon, majd kattintson a gombra Design > Oldalszám, lásd a képernyőképet:

doc beszúrni az oldalszámokat 2

4. És láthatja a helyőrzőt & [Oldal] jelennek meg a kiválasztott szakaszban, majd az oldalszámok megjelenítéséhez kattintson bárhová a fejlécen vagy a láblécen kívül. Lásd a képernyőképet:

doc beszúrni az oldalszámokat 3

5. Most kattintással visszaállíthatja a normál nézetet Megnézem > Normál, és amikor kinyomtatja ezt a munkalapot, látni fogja, hogy az oldalszámok be lettek illesztve a kiválasztott fejlécbe vagy láblécbe.

Megjegyzések: Ha azt szeretné, hogy az oldalszámok 1/15, 2/15 formátumban jelenjenek meg, akkor ezt közvetlenül be kell írnia & [Oldal] / [oldal] / a fejléc vagy a lábléc mezőbe, lásd a képernyőképet:

doc beszúrni az oldalszámokat 4


nyíl kék jobb buborék Helyezze be az oldalszámot a fejlécbe / láblécbe több munkalapon

A fenti módszer segíthet az oldalszámok beillesztésébe egy munkalapba, ha be akarja illeszteni az oldalszámokat a munkafüzet összes munkalapjába, hogy az összes oldal sorrendben legyen megszámozva, kérjük, tegye a következőket:

1. Jelölje ki az összes lapfület, majd lépjen a következőre: Page Layout lapot, és kattintson a gombra Párbeszédpanel indító gomb ikon a Page Setup csoport, lásd a képernyőképet:

doc beszúrni az oldalszámokat 5

2. Az Page Setup párbeszédpanelen kattintson a gombra Fejléc lábléc fülön, majd kattintson a gombra Egyéni fejléc or Egyéni lábléc a kívánt fejléc vagy lábléc beállításához lásd a képernyőképet:

doc beszúrni az oldalszámokat 6

3. És a Fejléc or Lábléc párbeszédpanelen adja meg az oldalszámok beillesztésének helyét a Bal oldali szakasz:, Középső rész:vagy Jobb szakasz: jelölőnégyzetet, majd kattintson a gombra Oldalszám beszúrása ikon és helyőrző & [Oldal] Megjelenik. Lásd a képernyőképet:

doc beszúrni az oldalszámokat 7

Jegyzet: Írja be ezt & [Oldal] / [oldal] / a fejlécbe vagy a lábléc mezőbe, ha tetszik az oldalak száma 1-ként, 45-ből kettő…

4. Ezután kattintson OK > OK a párbeszédpanelek bezárásához a munkafüzet kinyomtatásakor a nyomtatás előnézetében láthatja, hogy az összes oldalszám egymás után sorrendben van elhelyezve a fejlécben vagy a láblécben.


nyíl kék jobb buborék Helyezze be az oldalszámot a VBA kóddal ellátott cellába

Könnyen beillesztheti az oldalszámokat a fejlécbe vagy a láblécbe, de ha be kell illesztenie az oldalszámokat egy munkalap cellába, akkor erre nincs közvetlen módja. A következő VBA-kód segíthet a probléma megoldásában.

1. Kattintson arra a cellára, ahol meg szeretné jeleníteni ennek a cellának az oldalszámát.

2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Helyezze be az aktuális oldalszámot egy cellába:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és ennek a cellának az oldalszáma megjelenik a kiválasztott cellában, lásd a képernyőképet:

doc beszúrni az oldalszámokat 8


nyíl kék jobb buborék Távolítsa el az összes oldalszámot egyszerre az Excelben

Az összes oldalszám eltávolításához hajtsa végre a következő lépéseket:

1. Jelölje ki az összes lapfület, és lépjen a Page Layout fülre, majd kattintson a gombra Párbeszédpanel indító gomb ikon a Page Setup csoport, lásd a képernyőképet:

doc beszúrni az oldalszámokat 9

2. Az Page Setup párbeszédpanelen kattintson a gombra Fejléc lábléc fülre, majd válassza a lehetőséget (Nincs) tól Fejléc or Lábléc legördülő lista, lásd a képernyőképet:

doc beszúrni az oldalszámokat 10

3. Ezután kattintson OK gombra kattintva az összes oldalszámot egyszerre eltávolítja a munkafüzetből.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

 

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