Selamat malam sahabat
rumus-excel.com semua, nampaknya saya sudah lama tidak memposting artikel seputar excel. Kali ini saya akan membeahas cara memberikan header dan footer dengan syntax VBA.
Pada awal tahun 2011, saya ikut membantu KPUD Kabupaten Banjarnegara untuk menyusun data pemilih mulai dari data DP4, menjadi DPS dan DPT sampai dengan mencari data ganda. Pengolahan data masih menggunakan excel, masalah itu muncul saat PPS mencentak data pemilih tersebut, ternyata dilembaran cetaknya tidak muncul nomor halaman sehingga mereka merasa kesulitan untuk mengurutkan lembaran DPSnya, lalu mereka meminta untuk dimunculkan nomor halaman dan keterangan DAPILnya supaya saat dikumpulkan di PPK dapat dengan mudah untuk memisahkan masing-masing dapilnya.
Okelah ga usah cerita panjang lebar yang tak ada gunannya, Berikut ini saya tampilkan script untuk menambahkan header dan footer kedalam file excel
Option Explicit
Sub HeaderFooter()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
With ws.PageSetup
'header sebelah kiri
.LeftHeader = "Dokumen : Rumus-Excel.Com "
'header sebelah tengah
.CenterHeader = "Hal &P/&N"
'header sebelah kanan
.RightHeader = Format(Now(), "dd-mmm-yy Pkl h:s")
'footer sebelah kiri
.LeftFooter = "Alamat : " & ActiveWorkbook.Path
'footer sebelah tengah
.CenterFooter = "Nama File: &F"
'footer sebelah kanan
.RightFooter = "Sheet: &A"
End With
Next ws
Set ws = Nothing
Application.ScreenUpdating = True
End Sub
silakan copas syntax diatas dan rubah sesuai dengan keinginan. Seperti biasanya saya juga menampilkan animasinya
Ga mau copas syntaxnya? ga apa-apa ko, ni saya kasih sampel filenya
disini semoga bermanfaat. Demikian tadi cara
Menambah Header Dan Footer dengan VBA