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

Πώς να εισαγάγετε τον αριθμό σελίδας στο κελί / κεφαλίδα / υποσέλιδο στο 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 κουμπί, όλοι οι αριθμοί σελίδων αφαιρούνται ταυτόχρονα από το βιβλίο εργασίας.


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

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

 

Σχόλια (8)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας Χρησιμοποίησα τον αριθμό σελίδας Εισαγωγή στο κελί με κωδικό VBA παραπάνω και λειτουργεί υπέροχα. Το φύλλο μου θα μπορούσε να είναι είτε 2 σελίδες (2 κάτω και 1 κατά μήκος), 4 σελίδες (2 κάτω και 2 κατά μήκος) είτε 6 σελίδες (2 κάτω και 3 κατά μήκος). Έχω εισαγάγει τον κωδικό σε κάθε κελί από τα 6 που απαιτούν την εκτύπωση του αριθμού σελίδας (επιλέγοντας τα κελιά το καθένα με τη σειρά και τρέχοντας το VBA), οι διευθύνσεις κελιών είναι H1, H35, T1, T35, AF1, AF35. Τώρα θα ήθελα να προσθέσω ένα κουμπί για να ανανεώνω αυτούς τους αριθμούς σελίδων χωρίς να επηρεάζω όποιο κελί μπορεί να είναι ενεργό όταν ο σχετικός χρήστης μπορεί να επιλέξει να το εκτελέσει, προς το παρόν πρέπει να επιλέξω κάθε κελί με τη σειρά ξανά και να εκτελέσω το VBA :( Η βοήθεια θα ήταν τεράστια αντουανέτα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκίμασα τη μακροεντολή VBA, αλλά λαμβάνω σφάλμα εγγραφής εκτός εύρους... Έκανα κάτι λάθος;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
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
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
τέριμα κασίχ, καβάν
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορώ να ξέρω αν έχω εύρος κελιών που θέλω να βάλω σε αριθμούς σελίδων, τι πρέπει να αλλάξω; Το τρέχον VBA μου επιτρέπει να αλλάζω μόνο ένα προς ένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορώ να ξέρω πώς πρέπει να τροποποιήσω το παραπάνω VBA που μου επιτρέπει να το εκτελέσω σε εύρος κελιών σε ένα βιβλίο εργασίας και με 1 πλήκτρο συντόμευσης για να εφαρμόσω όλα τα επιλεγμένα κελιά;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
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;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hay forma de convertir esta sub en una función;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL