Loncat ke daftar isi utama

Bagaimana cara memasukkan nomor halaman ke sel / header / footer di Excel?

Saat Anda mencetak file Excel, Anda mungkin perlu memasukkan nomor halaman ke dalam halaman untuk membuat file yang dicetak rapi dan mudah dibaca. Pada artikel ini, saya akan memperkenalkan beberapa trik cepat untuk memasukkan nomor halaman ke dalam sel, header atau footer untuk Anda.

Masukkan nomor halaman ke dalam header / footer dalam satu lembar kerja

Sisipkan nomor halaman ke header / footer di beberapa lembar kerja

Masukkan nomor halaman ke dalam sel dengan kode VBA

Hapus semua nomor halaman sekaligus di Excel


panah gelembung kanan biru Masukkan nomor halaman ke dalam header / footer dalam satu lembar kerja

Biasanya, kita dapat memasukkan nomor halaman ke dalam header atau footer dengan cepat menggunakan Bagian atas dan bagian bawah fungsi, lakukan hal berikut:

1. Masuk ke lembar kerja yang ingin Anda sisipkan nomor halaman ke header atau footer.

2. Lalu klik Menyisipkan > Bagian atas dan bagian bawah, dan lembar kerja Anda akan masuk Page Layout lihat, lihat tangkapan layar:

doc masukkan nomor halaman 1

3. Klik header atau footer tempat Anda ingin menyisipkan nomor halaman, lalu a Mendesain tab dengan Alat Header & Footer ditampilkan di Ribbon, lalu klik Mendesain > Nomor halaman, lihat tangkapan layar:

doc masukkan nomor halaman 2

4. Dan Anda dapat melihat placeholder tersebut &[Halaman] muncul di bagian yang dipilih, lalu klik di mana saja di luar area header atau footer untuk menampilkan nomor halaman. Lihat tangkapan layar:

doc masukkan nomor halaman 3

5. Sekarang, Anda dapat mengatur ulang kembali ke tampilan normal dengan mengklik View > Normal, dan saat Anda mencetak lembar kerja ini, Anda akan melihat nomor halaman telah disisipkan ke header atau footer yang Anda pilih.

Note: Jika Anda ingin nomor halaman ditampilkan dalam format 1 dari 15, 2 dari 15, Anda hanya perlu memasukkan ini secara langsung & [Halaman] dari & [Halaman] ke dalam kotak bidang header atau footer, lihat tangkapan layar:

doc masukkan nomor halaman 4


panah gelembung kanan biru Sisipkan nomor halaman ke header / footer di beberapa lembar kerja

Cara di atas dapat membantu Anda untuk memasukkan nomor halaman ke dalam satu lembar kerja, jika Anda ingin memasukkan nomor halaman ke dalam semua lembar kerja buku kerja untuk membuat semua halaman diberi nomor secara berurutan, lakukan seperti ini:

1. Pilih semua tab lembar, lalu pergi ke Page Layout tab, dan klik Tombol Peluncur Kotak Dialog ikon di page setup grup, lihat tangkapan layar:

doc masukkan nomor halaman 5

2. di page setup kotak dialog, silakan klik Bagian atas dan bagian bawah tab, dan kemudian klik Header Kustom or Footer Kustom untuk pergi ke mengatur header atau footer yang Anda inginkan, lihat tangkapan layar:

doc masukkan nomor halaman 6

3. Dan di Header or Footer kotak dialog, tentukan lokasi di mana nomor halaman dimasukkan dengan mengklik di dalam Bagian kiri:, Bagian tengah:, atau Bagian kanan: kotak yang Anda butuhkan, lalu klik Sisipkan Nomor Halaman ikon, dan placeholder &[Halaman] muncul. Lihat tangkapan layar:

doc masukkan nomor halaman 7

Catatan: Masukkan ini & [Halaman] dari & [Halaman] ke dalam kotak bidang header atau footer jika Anda ingin nomor halaman ditampilkan sebagai 1 dari 45, 2 dari 45…

4. Kemudian klik OK > OK untuk menutup kotak dialog, saat Anda mencetak buku kerja ini, di pratinjau cetak, Anda dapat melihat semua nomor halaman disisipkan ke header atau footer secara berurutan.


panah gelembung kanan biru Masukkan nomor halaman ke dalam sel dengan kode VBA

Mudah bagi Anda untuk memasukkan nomor halaman ke dalam header atau footer, tetapi, jika Anda perlu memasukkan nomor halaman ke dalam sel lembar kerja, tidak ada cara langsung bagi Anda untuk melakukannya. Kode VBA berikut dapat membantu Anda mengatasi masalah ini.

1. Klik sel tempat Anda ingin menampilkan nomor halaman sel ini.

2. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Masukkan nomor halaman saat ini ke dalam sel:

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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan nomor halaman sel ini ditampilkan di sel yang dipilih, lihat tangkapan layar:

doc masukkan nomor halaman 8


panah gelembung kanan biru Hapus semua nomor halaman sekaligus di Excel

Untuk menghapus semua nomor halaman, Anda dapat menerapkan langkah-langkah berikut:

1. Pilih semua tab lembar, dan buka Page Layout tab di pita, lalu klik Tombol Peluncur Kotak Dialog ikon di page setup grup, lihat tangkapan layar:

doc masukkan nomor halaman 9

2. di page setup kotak dialog, klik Bagian atas dan bagian bawah tab, lalu pilih (Tidak ada) dari Header or Footer daftar drop-down, lihat tangkapan layar:

doc masukkan nomor halaman 10

3. Kemudian klik OK tombol, semua nomor halaman dihapus dari buku kerja sekaligus.

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!

 

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