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 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 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 untuk Excel'S Masukkan Informasi Buku Kerja Utilitas jika Anda telah menginstal Kutools for Excel.
Kutools untuk 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 Plus > 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
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
- Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
- Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
- Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
- Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
- Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
- Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

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!









