كيفية إضافة لون خلفية إلى الرؤوس أو التذييلات في ورقة Excel أثناء الطباعة؟

كما نعلم، يمكننا إضافة محتويات أو صورة إلى رأس أو تذييل الورقة، والتي ستظهر أثناء الطباعة. لكن هل جربت إضافة لون خلفية للرؤوس أو التذييلات؟ في الواقع، لا توجد وظيفة مضمنة يمكنها التعامل مع ذلك، ولكن هنا أقدم بعض الطرق غير المباشرة لتحقيق هذا الحساب.

إضافة لون خلفية إلى الرأس أو التذييل باستخدام تعبئة اللون

إضافة لون خلفية إلى الرأس والتذييل باستخدام VBA

إضافة لون خلفية إلى الرأس أو التذييل باستخدام تعبئة اللون

1. انقر فوق تخطيط الصفحة > إعداد الصفحة.

2. في نافذة إعداد الصفحة الحوار، تحت علامة التبويب الهوامش اكتب 0 في الأعلى, الرأس, السفلي و التذييل مربعات النص.

3. انقر فوق موافق. ثم حدد الصف الأول وانقر فوق الرئيسية > دمج وتوسيط.

3. انتقل إلى اختيار لون من قائمة تعبئة اللون لإضافة لون خلفية للخلايا المدمجة.

4. كرر الخطوة 2 و3 لإضافة لون خلفية إلى صف التذييل الذي تريده.

الآن يبدو أن الصفحة قد أضافت لون خلفية إلى الرأس والتذييل.

إضافة لون خلفية إلى الرأس والتذييل باستخدام VBA

هناك كود VBA يمكنه بسرعة إضافة لون خلفية إلى الرأس والتذييل في نفس الوقت.

1. اضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

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. قم بتغيير فهرس لون الخلفية في هذه السلسلة:

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

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