Bagaimana cara meletakkan nilai sel di header / footer di Excel?
Kita dapat dengan mudah memasukkan header atau footer yang berisi path file, nama file, tanggal sekarang atau informasi lain dengan fitur Excel, tetapi terkadang kita ingin menggunakan nilai sel sebagai header atau footer di Excel. Bagaimana kita bisa meletakkan konten sel ke header atau footer di buku kerja?
Letakkan nilai sel di header atau footer lembar kerja dengan kode VBA
Letakkan nilai sel di header atau footer dari semua lembar kerja dengan kode VBA
Masukkan informasi file ke dalam header/footer dengan Kutools for Excel
Letakkan nilai sel di header atau footer lembar kerja dengan kode VBA
Jika Anda ingin menempatkan konten sel di header atau footer lembar kerja saat ini, kode VBA berikut dapat membantu Anda. Silakan lakukan langkah-langkah berikut:
1. Aktifkan lembar kerja Anda yang ingin Anda sisipkan herder atau footer dengan nilai sel, lalu tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.
2.Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: letakkan nilai sel tertentu di header lembar kerja
Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, sebuah dialog akan muncul untuk mengingatkan Anda memilih sel yang ingin Anda masukkan isinya ke dalam header.
4. Dan kemudian klik OK, nilai sel yang ditentukan ini telah dimasukkan ke dalam tajuk kiri lembar kerja saat ini. Anda dapat melihat header dengan mengklik File > Mencetak. Lihat tangkapan layar:
Catatan:
1. Jika Anda ingin menggunakan konten sel sebagai footer lembar kerja aktif, Anda dapat menerapkan kode ini:
Kode VBA: letakkan nilai sel tertentu di footer lembar kerja
Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub
2. Anda juga dapat menerapkan kode di atas untuk memasukkan nilai sel ke header / footer kanan atau header / footer tengah, cukup ganti KiriHeader / Kaki Kiri dengan KananHeader / Kaki Kanan or Kepala Pusat / Pusat Footer dalam kode.
Letakkan nilai sel di header atau footer dari semua lembar kerja dengan kode VBA
Terkadang, Anda ingin menyisipkan header atau footer dengan konten sel yang dipilih ke semua lembar kerja dari buku kerja pembuka Anda, dengan kode di atas, Anda perlu mengulanginya berkali-kali. Dalam kasus ini, kode VBA berikut bisa menambahkan konten sel ke penggembala atau footer dari seluruh buku kerja sekaligus.
1. Aktifkan buku kerja Anda yang ingin Anda sisipkan herder atau footer dengan nilai sel, lalu tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: letakkan nilai sel tertentu di footer dari semua lembar kerja
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
3. Lalu tekan F5 kunci untuk mengeksekusi kode ini, sebuah dialog akan muncul untuk mengingatkan Anda memilih sel yang ingin Anda letakkan isinya di footer seluruh workbook.
4. Dan kemudian klik OK, nilai sel yang dipilih ini telah ditambahkan ke semua footer kiri lembar kerja. Anda dapat melihat footer dengan mengklik File > Mencetak. Lihat tangkapan layar:
Catatan:
1. Jika Anda ingin menggunakan konten sel sebagai header dari seluruh workbook, Anda dapat menerapkan kode ini:
Kode VBA: letakkan nilai sel tertentu di header semua lembar kerja
Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub
2. Pengganti RightHeader / Footer or CenterHeader / Footer untuk LeftHeader / Footer dalam kode di atas jika Anda ingin header atau footer Anda ditempatkan secara berbeda.
Masukkan informasi file ke dalam header/footer dengan Kutools for Excel
Jika Anda ingin memasukkan informasi filer ke header atau footer, seperti nama lembar kerja / buku kerja, jalur buku kerja dan sebagainya, Anda bisa menggunakan Kutools for Excel'S Masukkan Informasi Buku Kerja utilitas jika Anda telah menginstal Kutools for Excel.
Kutools for Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. | ||
Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:
1. klik Kutools Ditambah > Buku catatan > Masukkan Informasi Buku Kerja. Lihat tangkapan layar:
2. Dalam Masukkan Informasi Buku Kerja dialog, periksa informasi yang perlu Anda masukkan di bawah Informasi bagian, dan periksa Header or Footer sesukamu.
olymp trade indonesiaTip: Anda dapat memasukkan informasi di tiga lokasi header atau footer: tengah, kiri atau kanan.
3. klik Ok. Lalu Anda bisa pergi ke View > Page Layout untuk melihat tajuk.
Dengan Sisipkan Informasi Buku Kerja, Anda juga bisa menyisipkan informasi file ke sel atau rentang sel. Klik di sini untuk mengetahui lebih banyak tentang utilitas ini.
Masukkan informasi buku kerja di sel / header / footer

Artikel terkait:
Bagaimana cara memasukkan nama file atau jalur ke sel / header atau footer di Excel?
Bagaimana cara menyisipkan dan menghapus gambar header, footer, dan header di Excel?
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 Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!









