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.
2. Dalam page setup dialog, di bawah margin tab, ketik 0 ke Atasan, Header, Bawah dan Footer kotak teks.
3. klik OK. Kemudian pilih baris pertama dan klik Beranda > Gabungkan & Pusatkan.
3. Silakan pilih warna dari Isi color daftar untuk menambahkan warna latar belakang ke sel yang digabungkan.
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.
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
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.
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
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...
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!