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

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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja

 

A megjegyzések rendezése szerint
Hozzászólások (8)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló, az Oldalszám beszúrása a cellába a fenti VBA-kóddal lehetőséget használtam, és remekül működik. A lapom lehet 2 oldalas (2 lefelé és 1 keresztben), 4 oldalas (2 lefelé és 2 keresztben) vagy 6 oldalas (2 lefelé és 3 keresztben). A kódot beszúrtam a 6 oldalszám nyomtatását igénylő cellák mindegyikébe (a cellák egymás utáni kiválasztásával és a VBA futtatásával), a cellacímek: H1, H35, T1, T35, AF1, AF35. Most szeretnék hozzáadni egy gombot, amely frissíti ezeket az oldalszámokat anélkül, hogy befolyásolná, hogy melyik cella legyen aktív, amikor az érintett felhasználó dönthet úgy, hogy futtassa, jelenleg sorra kell kiválasztanom az egyes cellákat, és futtassa a VBA-t :( A segítség nagy segítség lenne nagyra értékeljük!Antoinette
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbáltam a VBA makrót, de tartományon kívüli indexet kapok... Valamit rosszul csináltam?
A weboldal moderátora ezt a megjegyzést minimalizálta
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
A weboldal moderátora ezt a megjegyzést minimalizálta
terima kasih, kawan
A weboldal moderátora ezt a megjegyzést minimalizálta
Megtudhatom, ha van olyan cellatartományom, amelyet az oldalszámok közé szeretnék beírni, mit kell módosítanom? A jelenlegi VBA csak egyenként teszi lehetővé a változtatást.
A weboldal moderátora ezt a megjegyzést minimalizálta
Megtudhatom, hogyan módosíthatom a fenti VBA-t, amely lehetővé teszi, hogy ezt végrehajtsam egy munkafüzet cellatartományában, és 1 gyorsbillentyűvel alkalmazzam az összes kijelölt cellát?
A weboldal moderátora ezt a megjegyzést minimalizálta
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?
A weboldal moderátora ezt a megjegyzést minimalizálta
Hay forma de convertir esta sub en una función?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi