วิธีเพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายในแผ่นงาน Excel ขณะพิมพ์
ดังที่เราทราบเราสามารถเพิ่มเนื้อหาหรือรูปภาพลงในส่วนหัวหรือส่วนท้ายของแผ่นงานซึ่งจะแสดงขณะพิมพ์ แต่คุณเคยพยายามเพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายหรือไม่? จริงๆแล้วไม่มีฟังก์ชันในตัวที่สามารถจัดการได้ แต่ในที่นี้ฉันขอแนะนำวิธีการอ้อมเพื่อให้การดำเนินการบรรลุผล
เพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายโดยเติมสี
เพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้ายโดย VBA
เพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายโดยเติมสี
1 คลิก เค้าโครงหน้ากระดาษ > ตั้งค่าหน้ากระดาษ.
2 ใน ตั้งค่าหน้ากระดาษ ไดอะล็อกภายใต้ ระยะขอบ แท็บพิมพ์ 0 เข้าไป Top, ส่วนหัว, ด้านล่าง และ ฟุตบอล กล่องข้อความ
3 คลิก OK. จากนั้นเลือกแถวแรกแล้วคลิก หน้าแรก > ผสานและศูนย์.
3. เลือกสีจาก เติมสีr เพื่อเพิ่มสีพื้นหลังให้กับเซลล์ที่ผสาน
4. ทำซ้ำขั้นตอนที่ 2 และ 3 เพื่อเพิ่มสีพื้นหลังให้กับแถวส่วนท้ายที่คุณต้องการ
ตอนนี้ดูเหมือนว่าหน้าจะเพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้าย
เพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้ายโดย VBA
นี่คือรหัส VBA สามารถเพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้ายได้อย่างรวดเร็วในเวลาเดียวกัน
1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลใหม่
VBA: เพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้าย
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 กด F5 คีย์เพื่อรันโค้ดจากนั้นสีพื้นหลังบางส่วนจะถูกเพิ่มลงในแถวแรกและแถวที่ 47 ของแต่ละแผ่นซึ่งจะแสดงเป็นส่วนหัวและส่วนท้ายปลอม
หมายเหตุ ในโค้ดคุณสามารถเปลี่ยนสคริปต์ด้านล่างเพื่อตอบสนองความต้องการของคุณ
1. เปลี่ยนเนื้อหาส่วนหัวและส่วนท้ายตามที่คุณต้องการในสตริง:
xTopArr = Array ("ซ้ายบน", "", "," ตรงกลางด้านบน "," "," ",", ")
xButtArr = Array ("ล่างซ้าย", "", "", "ด้านล่างตรงกลาง", "", "", ",")
2. เปลี่ยนดัชนีสีพื้นหลังในการต่อยนี้:
เซลล์ (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
เซลล์ (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
