Note: The other languages of the website are Google-translated. Back to English
English English

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

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

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

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


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

1 คลิก เค้าโครงหน้ากระดาษ > ตั้งค่าหน้ากระดาษ.
doc เพิ่มพื้นหลังในส่วนหัว 1

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

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

3. เลือกสีจาก เติมสีr เพื่อเพิ่มสีพื้นหลังให้กับเซลล์ที่ผสาน
doc เพิ่มพื้นหลังในส่วนหัว 4

4. ทำซ้ำขั้นตอนที่ 2 และ 3 เพื่อเพิ่มสีพื้นหลังให้กับแถวส่วนท้ายที่คุณต้องการ

ตอนนี้ดูเหมือนว่าหน้าจะเพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้าย
doc เพิ่มพื้นหลังในส่วนหัว 5


เพิ่มสีพื้นหลังให้กับส่วนหัวและส่วนท้ายโดย 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

doc เพิ่มพื้นหลังในส่วนหัว 6

3 กด F5 คีย์เพื่อรันโค้ดจากนั้นสีพื้นหลังบางส่วนจะถูกเพิ่มลงในแถวแรกและแถวที่ 47 ของแต่ละแผ่นซึ่งจะแสดงเป็นส่วนหัวและส่วนท้ายปลอม
doc เพิ่มพื้นหลังในส่วนหัว 7

หมายเหตุ ในโค้ดคุณสามารถเปลี่ยนสคริปต์ด้านล่างเพื่อตอบสนองความต้องการของคุณ

1. เปลี่ยนเนื้อหาส่วนหัวและส่วนท้ายตามที่คุณต้องการในสตริง:

xTopArr = Array ("ซ้ายบน", "", "," ตรงกลางด้านบน "," "," ",", ")

xButtArr = Array ("ล่างซ้าย", "", "", "ด้านล่างตรงกลาง", "", "", ",")

2. เปลี่ยนดัชนีสีพื้นหลังในการต่อยนี้:

เซลล์ (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34

เซลล์ (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34



เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ