วิธีเพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายในแผ่นงาน Excel ขณะพิมพ์

ดังที่เราทราบเราสามารถเพิ่มเนื้อหาหรือรูปภาพลงในส่วนหัวหรือส่วนท้ายของแผ่นงานซึ่งจะแสดงขณะพิมพ์ แต่คุณเคยพยายามเพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายหรือไม่? จริงๆแล้วไม่มีฟังก์ชันในตัวที่สามารถจัดการได้ แต่ในที่นี้ฉันขอแนะนำวิธีการอ้อมเพื่อให้การดำเนินการบรรลุผล

เพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายโดยเติมสี

เพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้ายโดย VBA

เพิ่มสีพื้นหลังให้กับส่วนหัวหรือส่วนท้ายโดยเติมสี

1 คลิก เค้าโครงหน้ากระดาษ > ตั้งค่าหน้ากระดาษ.

2 ใน ตั้งค่าหน้ากระดาษ ไดอะล็อกภายใต้ ระยะขอบ แท็บพิมพ์ 0 เข้าไป Top, ส่วนหัว, ด้านล่าง และ ฟุตบอล กล่องข้อความ

3 คลิก OK. จากนั้นเลือกแถวแรกแล้วคลิก หน้าแรก > ผสานและศูนย์.

3. เลือกสีจาก เติมสี รายการที่จะเพิ่มสีพื้นหลังให้กับเซลล์ที่ผสานกัน

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