Μετάβαση στο κύριο περιεχόμενο

Πώς να εισαγάγετε τον αριθμό σελίδας στο κελί / κεφαλίδα / υποσέλιδο στο Excel;

Όταν εκτυπώνετε ένα αρχείο Excel, ίσως χρειαστεί να εισαγάγετε τους αριθμούς σελίδων στις σελίδες για να κάνετε το εκτυπωμένο αρχείο τακτοποιημένο και ευανάγνωστο. Σε αυτό το άρθρο, θα παρουσιάσω μερικά γρήγορα κόλπα για να εισαγάγω τους αριθμούς σελίδων στο κελί, την κεφαλίδα ή το υποσέλιδο για εσάς.

Εισαγάγετε τον αριθμό σελίδας στην κεφαλίδα / το υποσέλιδο σε ένα φύλλο εργασίας

Εισαγάγετε τον αριθμό σελίδας στην κεφαλίδα / υποσέλιδο σε πολλά φύλλα εργασίας

Εισαγάγετε τον αριθμό σελίδας στο κελί με τον κωδικό VBA

Καταργήστε όλους τους αριθμούς σελίδων ταυτόχρονα στο Excel


βέλος μπλε δεξιά φούσκα Εισαγάγετε τον αριθμό σελίδας στην κεφαλίδα / το υποσέλιδο σε ένα φύλλο εργασίας

Κανονικά, μπορούμε να εισάγουμε τους αριθμούς σελίδων στην κεφαλίδα ή στο υποσέλιδο γρήγορα χρησιμοποιώντας το Επικεφαλίδα υποσέλιδο λειτουργία, κάντε τα εξής:

1. Μεταβείτε στο φύλλο εργασίας που θέλετε να εισαγάγετε τους αριθμούς σελίδων στην κεφαλίδα ή στο υποσέλιδο.

2. Στη συνέχεια κάντε κλικ στο κουμπί Κύριο θέμα > Επικεφαλίδα υποσέλιδοκαι το φύλλο εργασίας σας θα είναι Διάταξη σελίδας δείτε, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 1

3. Κάντε κλικ στην κεφαλίδα ή στο υποσέλιδο όπου θέλετε να εισαγάγετε τον αριθμό σελίδας και στη συνέχεια a Υπηρεσίες καρτέλα με Εργαλεία κεφαλίδας και υποσέλιδου εμφανίζεται στην Κορδέλα και, στη συνέχεια, κάντε κλικ στο Υπηρεσίες > Αριθμός σελίδας, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 2

4. Και μπορείτε να δείτε το σύμβολο κράτησης θέσης &[Σελίδα] εμφανίζονται στην επιλεγμένη ενότητα και, στη συνέχεια, κάντε κλικ οπουδήποτε έξω από την περιοχή κεφαλίδας ή υποσέλιδου για να εμφανίσετε τους αριθμούς σελίδας. Δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 3

5. Τώρα, μπορείτε να επαναφέρετε την κανονική προβολή κάνοντας κλικ Δες > Κανονικός, και όταν εκτυπώνετε αυτό το φύλλο εργασίας, θα δείτε ότι οι αριθμοί σελίδων έχουν εισαχθεί στην κεφαλίδα ή το υποσέλιδο που επιλέξατε.

Note: Εάν θέλετε οι αριθμοί σελίδων να εμφανίζονται ως μορφή 1 από 15, 2 από 15, απλά πρέπει να το εισαγάγετε απευθείας & [Σελίδα] από & [Σελίδες] στο πλαίσιο πεδίου κεφαλίδας ή υποσέλιδου, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 4


βέλος μπλε δεξιά φούσκα Εισαγάγετε τον αριθμό σελίδας στην κεφαλίδα / υποσέλιδο σε πολλά φύλλα εργασίας

Η παραπάνω μέθοδος μπορεί να σας βοηθήσει να εισαγάγετε τους αριθμούς σελίδων σε ένα φύλλο εργασίας, εάν θέλετε να εισαγάγετε τους αριθμούς σελίδων σε όλα τα φύλλα εργασίας του βιβλίου εργασίας, ώστε όλες οι σελίδες να αριθμούνται με διαδοχική σειρά, κάντε το ως εξής:

1. Επιλέξτε όλες τις καρτέλες φύλλων και μετά πηγαίνετε στο Διάταξη σελίδας καρτέλα και κάντε κλικ στο κουμπί Κουμπί εκκίνησης πλαισίου διαλόγου εικονίδιο στο Εγκατάσταση σελίδας ομάδα, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 5

2. Στην Εγκατάσταση σελίδας πλαίσιο διαλόγου, κάντε κλικ Επικεφαλίδα υποσέλιδο , και στη συνέχεια κάντε κλικ στο κουμπί OK Προσαρμοσμένη κεφαλίδα or Προσαρμοσμένο υποσέλιδο για να ρυθμίσετε την κεφαλίδα ή το υποσέλιδο που θέλετε, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 6

3. Και στο επικεφαλίδα or Υποσέλιδο πλαίσιο διαλόγου, ορίστε την τοποθεσία όπου εισάγονται οι αριθμοί σελίδων κάνοντας κλικ μέσα στο Αριστερή ενότητα:, Κεντρική ενότητα:, ή Σωστό τμήμα: πλαίσιο όπως χρειάζεστε και, στη συνέχεια, κάντε κλικ στο Εισαγωγή αριθμού σελίδας εικονίδιο και το σύμβολο κράτησης θέσης &[Σελίδα] εμφανίζεται. Δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 7

Σημείωση: Εισάγετε αυτό & [Σελίδα] από & [Σελίδες] στο πλαίσιο πεδίου κεφαλίδας ή υποσέλιδου εάν θέλετε οι αριθμοί σελίδων που εμφανίζονται ως 1 από 45, 2 από 45…

4. Στη συνέχεια κάντε κλικ στο κουμπί OK > OK για να κλείσετε τα παράθυρα διαλόγου, όταν εκτυπώνετε αυτό το βιβλίο εργασίας, στην προεπισκόπηση εκτύπωσης, μπορείτε να δείτε ότι όλοι οι αριθμοί σελίδων εισάγονται στην κεφαλίδα ή το υποσέλιδο με διαδοχική σειρά.


βέλος μπλε δεξιά φούσκα Εισαγάγετε τον αριθμό σελίδας στο κελί με τον κωδικό VBA

Είναι εύκολο να εισαγάγετε τους αριθμούς σελίδων στην κεφαλίδα ή στο υποσέλιδο, αλλά, εάν πρέπει να εισαγάγετε τους αριθμούς σελίδων σε ένα κελί φύλλου εργασίας, δεν υπάρχει άμεσος τρόπος για να το κάνετε. Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να επιλύσετε αυτό το πρόβλημα.

1. Κάντε κλικ σε ένα κελί όπου θέλετε να εμφανιστεί ο αριθμός σελίδας αυτού του κελιού.

2. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Εισαγάγετε τον τρέχοντα αριθμό σελίδας σε ένα κελί:

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. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και ο αριθμός σελίδας αυτού του κελιού εμφανίζεται στο επιλεγμένο κελί, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 8


βέλος μπλε δεξιά φούσκα Καταργήστε όλους τους αριθμούς σελίδων ταυτόχρονα στο Excel

Για να καταργήσετε όλους τους αριθμούς σελίδων, μπορείτε να εφαρμόσετε τα ακόλουθα βήματα:

1. Επιλέξτε όλες τις καρτέλες φύλλων και μεταβείτε στο Διάταξη σελίδας καρτέλα στην κορδέλα και μετά κάντε κλικ στο Κουμπί εκκίνησης πλαισίου διαλόγου εικονίδιο στο Εγκατάσταση σελίδας ομάδα, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 9

2. Στην Εγκατάσταση σελίδας , κάντε κλικ στην επιλογή Επικεφαλίδα υποσέλιδο καρτέλα και μετά επιλέξτε (Κανένας) από το επικεφαλίδα or Υποσέλιδο αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε αριθμούς σελίδας 10

3. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλοι οι αριθμοί σελίδων αφαιρούνται ταυτόχρονα από το βιβλίο εργασίας.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

 

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