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
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:
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:
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:
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:
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:
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:
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:
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.
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:
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:
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:
3. Kemudian klik OK tombol, semua nomor halaman dihapus dari buku kerja sekaligus.
Alat Produktivitas Kantor Terbaik
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 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!
