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

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. doc-masukkan-nilai-sel-ke-header1

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: doc-masukkan-nilai-sel-ke-header1

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.

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.

doc-masukkan-nilai-sel-ke-header1

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:

doc-masukkan-nilai-sel-ke-header1

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.

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.
Free download fitur lengkap gratis di 30 hari-hari

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools Plus > Buku catatan > Masukkan Informasi Buku Kerja. Lihat tangkapan layar:
dok kte 1

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.
doc memasukkan jalur buku kerja 1

3. klik Ok. Lalu Anda bisa pergi ke View > Page Layout untuk melihat tajuk.
dok kte 3

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.

Ketik.Jika Anda ingin dengan cepat membagi buku kerja menjadi beberapa buku kerja / file pdf atau file csv secara terpisah, silakan coba gunakan Kutools for Excel's Pisahkan Buku Kerja seperti yang ditunjukkan pada tangkapan layar berikut. Ini berfungsi penuh tanpa batasan di 30 hari, silakan unduh dan dapatkan uji coba gratis sekarang.

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.

Read More ... Download Gratis... Membeli...

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!

Read More ... Download Gratis... Membeli...

komentar (9)

Belum ada peringkat. Jadilah yang pertama memberi peringkat!

Jeffrey Hulbert

tentang 7 tahun lalu

#13641

Komentar ini diminimalkan oleh moderator di situs

Saya perlu memasukkan rentang tanggal penggajian aktif ke dalam beberapa lembar. Pengguna membuka lembar Tanggal Penggajian, memasukkan rentang tanggal dan sebelum dia mencetaknya memperbarui semua lembar di buku kerja. Berikut adalah bagaimana saya dapat menyisipkan beberapa sel ke dalam rentang dengan sedikit lebih sedikit kode yang kompatibel dengan 2010: Private Sub Workbook_BeforePrint(Cancel As Boolean) Redupkan WorkRng As Range On Error Resume Next For Every ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub

membalas

saeid mohammadi

tentang 7 tahun lalu

#13803

Komentar ini diminimalkan oleh moderator di situs

Saya ingin memasukkan empat sel di header. VB ini hanya untuk satu sel. Bagaimana saya bisa melakukannya. terima kasih

membalas

Ridwan saeid mohammadi

tentang 4 tahun lalu

#13804

Komentar ini diminimalkan oleh moderator di situs

Anda dapat mencoba Menggabungkan nilai empat sel rht menjadi satu sel dan kemudian menggunakan sel tunggal sebagai header.

membalas

Claire

tentang 7 tahun lalu

#14786

Komentar ini diminimalkan oleh moderator di situs

Hai, Apakah ada cara Anda dapat menambahkan nilai sel yang memperhitungkan filter yang diterapkan? Misalnya... A1 = Senin A2 = Selasa A3 = Rabu. Menggunakan kode VBA untuk menampilkan sel A1 akan berfungsi pada awalnya, tetapi begitu saya menerapkan filter pada hari-hari dalam seminggu, nilai sel "atas" tidak lagi A1. Apakah ada cara untuk mengambil variabel? Terimakasih banyak,

membalas

Mickey

tentang 3 tahun lalu

#29670

Komentar ini diminimalkan oleh moderator di situs

Saat menggunakan "kode VBA: letakkan nilai sel tertentu di header semua lembar kerja", saya ingin nilai yang ditempatkan diformat: Tahoma, tebal, dalam ukuran font 12.
Bagaimana ini bisa ditambahkan ke kode Anda?

membalas

Dani

tentang 3 tahun lalu

#30000

Komentar ini diminimalkan oleh moderator di situs

Hai,

Ini tampaknya hanya berfungsi sekali.
Bagaimana jika nilai sel berubah?
Apakah ada cara untuk menautkan sel sehingga tajuk berubah ketika nilai sel berubah?

Saya memiliki buku kerja di mana saya memiliki tiga lembar.

Lembar 1 berlabel "Lembar Penghapusan" - Lembar kami kirim ke gudang dengan info apa yang cocok untuk pesanan
Lembar 2 berlabel "OA" - Pengakuan pesanan saya kepada pelanggan yang menarik sebagian besar data dari lembar pertama termasuk nomor Pesanan yang harus saya miliki di header saya. Jadi saya mencoba menautkan Header ke sel di halaman ini dengan nomor urut (F5) yang mendapatkan nilainya dari (C7) di lembar kerja pertama ("Lembar Penghapusan")
Lembar 3 berlabel "Faktur - Faktur yang juga menarik sebagian besar informasi yang sama dari lembar pertama yang juga memerlukan header untuk menyertakan nilai (F5) lembar ini yang diambil dari (C7) di "Lembar Penghapusan"

membalas

Neil

sekitar 4 bulan yang lalu

#40034

Komentar ini diminimalkan oleh moderator di situs

Ini tampaknya tidak membuat tautan dinamis, yaitu, nilai yang dimasukkan ke dalam header tidak berubah ketika nilai sel berubah. Jadi apa tujuan dari kode VBA, ketika copy/paste akan melakukan hal yang sama?

membalas

skyyang Neil

sekitar 4 bulan yang lalu

#40106

Komentar ini diminimalkan oleh moderator di situs

Halo, Neil,
Jika Anda ingin menautkan nilai sel ke header atau footer secara dinamis, silakan terapkan kode VBA berikut:

Note: Anda harus memasukkan kode ke dalam kode lembar bukan Modul biasa.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub

Silahkan dicoba, semoga membantu

membalas

Laporan

DJ skyyang

sekitar 1 bulan yang lalu

#42219

Komentar ini diminimalkan oleh moderator di situs

maksudnya gimana?

membalas

Belum ada komentar yang diposting di sini

Tinggalkan komentar anda

Posting sebagai Tamu

Nama (Wajib)

Email (Diperlukan)

Beri peringkat pos ini:

ulang

0 Karakter

Saya setuju dengan syarat dan ketentuan