Bỏ qua nội dung chính

Làm cách nào để chèn số trang vào ô / đầu trang / chân trang trong Excel?

Khi bạn in một tệp Excel, bạn có thể cần phải chèn số trang vào các trang để làm cho tệp được in gọn gàng và dễ đọc. Trong bài viết này, tôi sẽ giới thiệu một số thủ thuật nhanh chóng để chèn số trang vào ô, đầu trang hoặc chân trang cho bạn.

Chèn số trang vào đầu trang / chân trang trong một trang tính

Chèn số trang vào đầu trang / chân trang trên nhiều trang tính

Chèn số trang vào ô có mã VBA

Xóa tất cả số trang cùng một lúc trong Excel


mũi tên màu xanh bong bóng bên phải Chèn số trang vào đầu trang / chân trang trong một trang tính

Thông thường, chúng tôi có thể chèn số trang vào đầu trang hoặc chân trang một cách nhanh chóng bằng cách sử dụng Đầu trang & Chân trang , vui lòng làm như sau:

1. Chuyển đến trang tính mà bạn muốn chèn số trang vào đầu trang hoặc chân trang.

2. Sau đó nhấn vào Chèn > Đầu trang & Chân trangvà trang tính của bạn sẽ ở trong Page Layout xem, xem ảnh chụp màn hình:

doc chèn số trang 1

3. Bấm vào đầu trang hoặc chân trang nơi bạn muốn chèn số trang, sau đó bấm Thiết kế tab với Công cụ Đầu trang & Chân trang được hiển thị trong Ribbon, sau đó nhấp vào Thiết kế > Số trang, xem ảnh chụp màn hình:

doc chèn số trang 2

4. Và bạn có thể thấy trình giữ chỗ &[Trang] xuất hiện trong phần đã chọn, sau đó nhấp vào bất kỳ đâu bên ngoài khu vực đầu trang hoặc chân trang để hiển thị số trang. Xem ảnh chụp màn hình:

doc chèn số trang 3

5. Bây giờ, bạn có thể đặt lại về chế độ xem bình thường bằng cách nhấp vào Xem > bình thườngvà khi bạn in trang tính này, bạn sẽ thấy số trang đã được chèn vào đầu trang hoặc chân trang mà bạn đã chọn.

Chú thích: Nếu bạn muốn số trang hiển thị dưới dạng 1 trong 15, 2 trên 15 định dạng, bạn chỉ cần nhập trực tiếp vào & [Trang] trong số & [Trang] vào hộp trường đầu trang hoặc chân trang, xem ảnh chụp màn hình:

doc chèn số trang 4


mũi tên màu xanh bong bóng bên phải Chèn số trang vào đầu trang / chân trang trên nhiều trang tính

Phương pháp trên có thể giúp bạn chèn số trang vào một trang tính, nếu bạn muốn chèn số trang vào tất cả các trang của sổ làm việc để làm cho tất cả các trang được đánh số theo thứ tự tuần tự, hãy làm như sau:

1. Chọn tất cả các tab trang tính, sau đó chuyển đến Page Layout và nhấp vào Nút khởi chạy hộp thoại biểu tượng trong Page Setup nhóm, xem ảnh chụp màn hình:

doc chèn số trang 5

2. Trong Page Setup hộp thoại, vui lòng nhấp vào Đầu trang / Chân trang tab, và sau đó nhấp vào Tiêu đề tùy chỉnh or Chân trang tùy chỉnh để đặt đầu trang hoặc chân trang mà bạn muốn, hãy xem ảnh chụp màn hình:

doc chèn số trang 6

3. Và trong Tiêu đề or Footer hộp thoại, vui lòng xác định vị trí nơi số trang được chèn bằng cách nhấp vào bên trong Phần bên trái:, Phần trung tâm:, hoặc là Phần bên phải: khi bạn cần, sau đó nhấp vào Chèn số trang biểu tượng và trình giữ chỗ &[Trang] xuất hiện. Xem ảnh chụp màn hình:

doc chèn số trang 7

Lưu ý: Nhập này & [Trang] trong số & [Trang] vào hộp trường đầu trang hoặc chân trang nếu bạn thích số trang được hiển thị là 1 trong số 45, 2 của 45…

4. Sau đó nhấn vào OK > OK để đóng hộp thoại, khi bạn in sổ làm việc này, trong bản xem trước khi in, bạn có thể thấy tất cả các số trang được chèn vào đầu trang hoặc chân trang theo thứ tự tuần tự.


mũi tên màu xanh bong bóng bên phải Chèn số trang vào ô có mã VBA

Bạn có thể dễ dàng chèn số trang vào đầu trang hoặc chân trang, nhưng nếu bạn cần chèn số trang vào một ô trang tính, không có cách nào trực tiếp để bạn thực hiện. Mã VBA sau có thể giúp bạn giải quyết vấn đề này.

1. Bấm vào ô mà bạn muốn hiển thị số trang của ô này.

2. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Chèn số trang hiện tại vào một ô:

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. Sau đó nhấn F5 để chạy mã này và số trang của ô này được hiển thị trong ô đã chọn, xem ảnh chụp màn hình:

doc chèn số trang 8


mũi tên màu xanh bong bóng bên phải Xóa tất cả số trang cùng một lúc trong Excel

Để xóa tất cả các số trang, bạn có thể áp dụng các bước sau:

1. Chọn tất cả các tab trang tính và chuyển đến Page Layout trên dải băng, sau đó nhấp vào Nút khởi chạy hộp thoại biểu tượng trong Page Setup nhóm, xem ảnh chụp màn hình:

doc chèn số trang 9

2. Trong Page Setup hộp thoại, nhấn Đầu trang / Chân trang tab, và sau đó chọn (None) từ Tiêu đề or Footer danh sách thả xuống, xem ảnh chụp màn hình:

doc chèn số trang 10

3. Sau đó nhấn vào OK , tất cả các số trang được xóa khỏi sổ làm việc cùng một lúc.

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!

 

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