Loncat ke daftar isi utama

Bagaimana cara menambahkan warna latar belakang ke header atau footer di lembar Excel saat mencetak?

Seperti yang kita ketahui, kita bisa menambahkan konten atau gambar ke header atau footer sebuah lembar, yang akan ditampilkan saat mencetak. Tapi pernahkah Anda mencoba menambahkan warna latar belakang ke header atau footer? Sebenarnya, tidak ada fungsi built-in yang dapat mengatasinya, tetapi di sini saya memperkenalkan beberapa cara memutar untuk mencapai operasi tersebut.

Tambahkan warna latar belakang ke header atau footer dengan warna Isi

Tambahkan warna latar belakang ke header dan footer dengan VBA


Tambahkan warna latar belakang ke header atau footer dengan warna Isi

1. klik Page Layout > page setup.
doc menambahkan latar belakang ke header 1

2. Dalam page setup dialog, di bawah margin tab, ketik 0 ke Atasan, Header, Bawah dan Footer kotak teks.
doc menambahkan latar belakang ke header 2

3. klik OK. Kemudian pilih baris pertama dan klik Beranda > Gabungkan & Pusatkan.
doc menambahkan latar belakang ke header 3

3. Silakan pilih warna dari Isi color daftar untuk menambahkan warna latar belakang ke sel yang digabungkan.
doc menambahkan latar belakang ke header 4

4. Ulangi langkah 2 dan 3 untuk menambahkan warna latar belakang ke baris footer yang Anda inginkan.

Sekarang halaman tersebut tampaknya menambahkan warna latar belakang ke header dan footer.
doc menambahkan latar belakang ke header 5


Tambahkan warna latar belakang ke header dan footer dengan VBA

Berikut adalah kode VBA yang dapat dengan cepat menambahkan warna background ke header dan footer pada saat yang bersamaan.

1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke modul baru.

VBA: Tambahkan warna latar belakang ke header dan footer

Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
    Dim I, J As Long
   Dim xRg As Range
    Dim xRow, xCol As Long
    Dim xRows, xCols As Long
    Dim xDivRow, xDivCol As Long
    Dim xTopArr, xButtArr As Variant
    Dim PageSize1, PageSize2 As Integer
    On Error Resume Next
    xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
    xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
    PageSize1 = 46
    PageSize2 = 8
    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .BlackAndWhite = False
    End With
    Set xRg = ActiveSheet.UsedRange
    If xRg Is Nothing Then Exit Sub
    xRows = xRg(xRg.Count).Row
    xCols = xRg(xRg.Count).Column
    If xRows < 46 Then xRows = 46
    If xCol < 8 Then xCol = 8
    xDivRow = Int(xRows / PageSize1)
    xDivCol = Int(xCols / PageSize2)
    If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
    If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
    If xDivRow = 0 Then xDivRow = 1
    If xDivCol = 0 Then xDivCol = 1
    Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
    xRow = 1
    xCol = 1
    Cells.PageBreak = xlPageBreakNone
    For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
        For J = 1 To xDivCol * PageSize2 Step PageSize2
            Cells(I, J).Resize(1, PageSize2) = xTopArr
            Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
            Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Rows(I + PageSize1 + 1).PageBreak = xlManual
            Columns(J + PageSize2).PageBreak = xlManual
        Next
    Next
End Sub

doc menambahkan latar belakang ke header 6

3. tekan F5 kunci untuk menjalankan kode, kemudian warna latar belakang tertentu telah ditambahkan ke baris pertama dan baris ke-47 dari setiap lembar yang akan ditampilkan sebagai header dan footer palsu.
doc menambahkan latar belakang ke header 7

Catatan: dalam kode, Anda dapat mengubah skrip di bawah ini untuk memenuhi kebutuhan Anda.

1. Ubah konten header dan footer sesuai kebutuhan Anda dalam string:

xTopArr = Larik ("Kiri Atas", "", "", "Tengah Atas", "", "", "", "")

xButtArr = Larik ("Kiri Bawah", "", "", "Tengah Bawah", "", "", "", "")

2. Ubah indeks warna latar belakang dalam hal ini:

Sel (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34

Sel (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34


Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations