كيفية إضافة لون خلفية إلى الرؤوس أو التذييلات في ورقة Excel أثناء الطباعة؟
عند العمل في Excel، فإن إضافة رؤوس أو تذييلات يعزز المظهر الاحترافي للمستندات المطبوعة من خلال تضمين معلومات مهمة مثل أرقام الصفحات، أسماء الملفات، أو شعارات الشركة. على الرغم من أن ميزات Excel المدمجة تتيح لك إدراج النصوص والصور في الرؤوس والتذييلات التي ستظهر أثناء الطباعة، قد تجد أنك تريد تسليط الضوء على هذه الأقسام بلون خلفية لتحسين القراءة أو لأغراض العلامة التجارية. ومع ذلك، حاليًا لا توفر Excel خيارًا مباشرًا لتطبيق لون الخلفية على مناطق الرأس أو التذييل في الطباعة. يمكن أن يكون هذا محبطًا إذا كنت ترغب في الفصل البصري لهذه الأقسام عن بياناتك عند الطباعة. أدناه، ستجد بعض الحلول العملية لمحاكاة رأس أو تذييل ملون في طباعة Excel، لتلبية احتياجات مختلفة ومستويات الراحة التقنية.
إضافة لون خلفية إلى الرأس أو التذييل باستخدام تعبئة اللون
إضافة لون خلفية إلى الرأس والتذييل باستخدام VBA
إضافة لون خلفية إلى الرأس أو التذييل باستخدام تعبئة اللون
يتضمن هذا النهج تنسيق خلايا ورقة العمل لمحاكاة رأس أو تذييل ملون بصريًا. نظرًا لأن الرؤوس والتذييلات الفعلية التي تم إنشاؤها عبر تخطيط الصفحة لا تدعم لون الخلفية، فإن تنسيق الصفوف العلوية والسفلية يوفر بديلاً فعالاً. هذه الطريقة هي الأفضل عندما يكون هدفك الأساسي هو تعزيز الفصل البصري أو العلامة التجارية لأوراق الطباعة، وعندما يمكن عرض محتوى الرأس / التذييل في صفوف ورقة العمل بدلاً من الرؤوس والتذييلات الحقيقية للطباعة.
تشمل قيود هذه الطريقة عدم القدرة على استخدام حقول الرؤوس والتذييلات الديناميكية (مثل أرقام الصفحات) والحاجة إلى تكرار هذه الخطوات يدويًا لكل ورقة.
1. انقر تخطيط الصفحة > إعداد الصفحة.
قبل المتابعة، من المهم ضبط جميع الهوامش على 0 لتعظيم المساحة المستخدمة في ورقة العمل وضمان وضع المناطق الملونة بشكل مباشر في الجزء العلوي و/أو السفلي من كل صفحة مطبوعة. يساعد هذا في خلق وهم وجود خلفية حقيقية للرأس أو التذييل عند طباعة المستند.
2. في إعداد الصفحة الحوار، انتقل إلى الهوامش التبويب واكتب 0 في الأعلى, الرأس, السفلىو التذييل مربعات النص. هذا يضمن عدم وجود مساحة مخصصة لرؤوس وتذييلات Excel المدمجة ويضع محتوى ورقة العمل الخاص بك في أعلى وأسفل الصفحة المطبوعة تمامًا.
3. انقر موافق لتطبيق تغييرات الهوامش. حدد الصف الأول من ورقة عملك (سيعمل هذا الصف كرأس بصري)، ثم انتقل إلى الرئيسية > دمج وتوسيط لدمج جميع الأعمدة في هذا الصف في خلية واحدة. هذا يوفر منطقة كبيرة لنص الرأس ولون الخلفية.
تلميح: بالنسبة للمستندات ذات الأعمدة المتعددة، تأكد من تحديد ودمج النطاق الصحيح من الخلايا لتغطية منطقة البيانات بأكملها.
4. مع الخلية المدمجة المحددة، انقر فوق الزر تعبئة اللون (رمز دلو الطلاء) في الرئيسية التبويب واختر لون الخلفية المطلوب من لوحة الألوان. سيضيف هذا شريط لون مرئي في الجزء العلوي من الورقة، مما يحاكي خلفية الرأس.
5. إذا كنت ترغب أيضًا في إضافة تذييل ملون، انتقل إلى الصف الأخير من نطاق الطباعة، حدد الصف، ثم كرر خطوات الدمج وتعبئة اللون لإنشاء منطقة ملونة أسفل الصفحة.
للحصول على أفضل النتائج، فكر في إضافة نص الرأس أو التذييل المخصص مباشرة في هذه الخلايا المدمجة والملونة. يمكنك تعديل حجم الخط، المحاذاة، أو التنسيق حسب الحاجة لتلبية متطلبات الطباعة. ضع في اعتبارك أن هذه الطريقة تحدد الرأس والتذييل فقط في منطقة ورقة العمل المرئية. إذا كان مستندك يمتد عبر صفحات متعددة، قد تحتاج إلى تكرار هذه الخطوات التنسيقية لكل صفحة مطبوعة يدويًا، أو استخدام خاصية "تكرار الصفوف في الأعلى" في إعداد الصفحة للرؤوس فقط.
الآن، عندما تذهب إلى ملف > طباعة أو اضغط على Ctrl + P، يجب أن ترى شريطًا ملونًا في الجزء العلوي (و/أو السفلي) من صفحة المعاينة، والذي يعمل بمثابة خلفية محاكاة للرأس أو التذييل.
إذا لم يظهر اللون كما هو مطلوب في معاينة الطباعة، تحقق مرة أخرى من أن إعدادات الطابعة ومدى ورقة العمل متطابقة، وتأكد من أن منطقة الطباعة تغطي صفوف التنسيق الخاصة بك.
إضافة لون خلفية إلى الرأس والتذييل باستخدام VBA
بالنسبة لأوراق العمل الأكثر تعقيدًا، أو عند التعامل مع صفحات متعددة ورغبة في طريقة أكثر تلقائية لإنشاء مناطق رأس وتذييل ملونة على كل صفحة مطبوعة، يمكنك استخدام ماكرو VBA لإضافة هذه التأثيرات بسرعة في جميع أنحاء ورقة العمل. يقوم هذا الحل باستخدام VBA بإضافة صفوف ملونة مُعرفة مسبقًا في بداية ونهاية كل نطاق صفحة، مما يحاكي مظهر الرؤوس والتذييلات الملونة في الطباعة.
هذا النهج مناسب بشكل خاص للأوراق الكبيرة، التقارير القديمة، أو الحالات التي تكون فيها هناك حاجة لنمط موحد عبر العديد من الصفحات. ومع ذلك، يتطلب تشغيل وظائف الماكرو وبعض الخبرة مع واجهة VBA. لاحظ أن هذا لا يؤثر على الرأس والتذييل الحقيقيين في Excel ولكنه يعمل عن طريق تعديل محتوى ورقة العمل مباشرة لمحاكاة الطباعة.
1. اضغط على Alt + F11 لفتح نافذة محرر Visual Basic for Applications من Microsoft. إذا كانت هذه هي المرة الأولى التي تستخدم فيها VBA، قد تحتاج إلى تمكين علامة التبويب Developer أولاً.
2. في نافذة VBA، انقر فوق إدراج > وحدة. في منطقة الكود الخاصة بالوحدة الجديدة، انسخ والصق الكود التالي:
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 NextEnd Sub
3. اضغط F5 أو انقر فوق الزر تشغيل في شريط أدوات VBA لتنفيذ الكود. سيقوم الماكرو تلقائيًا بإدراج صفوف ملونة في الجزء العلوي والسفلي من كل نطاق صفحة حسب الإعدادات المحددة لـ PageSize1 (عدد الصفوف لكل صفحة) و PageSize2 (عدد الأعمدة لكل صفحة). الصف الأول والصف السابع والأربعون على كل "صفحة" سيتم تعبئتهما باللون والنص المُعرَّفين المسبقًا، مما سيعرض كـ "رأس" و"تذييل" وهميين عند الانتقال إلى معاينة الطباعة أو طباعة ورقة العمل الخاصة بك.
يمكنك تخصيص هذا الماكرو بشكل أكبر ليناسب متطلباتك. على سبيل المثال، لتغيير محتوى الرأس أو التذييل، قم بتعديل النص داخل هذه الأسطر:
xTopArr = Array("أعلى يسار", "", "", "أعلى الوسط", "", "", "", "")
xButtArr = Array("أسفل يسار", "", "", "أسفل الوسط", "", "", "", "")
إذا كنت ترغب في لون خلفية مختلف، قم بتعديل قيمة ColorIndex هنا:
Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex =34
Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex =34
يستخدم الماكرو مؤشرات ألوان Excel القياسية. لمعاينة ألوان مختلفة، استشر مرجع ColorIndex الخاص بـ Microsoft أو استخدم أداة اختيار الألوان في Excel لتحديد القيم التي تتناسب مع علامتك التجارية أو تفضيلات التصميم.
ملاحظة: احفظ عملك قبل تشغيل ماكرو VBA، حيث لا يمكن التراجع عن الإجراءات باستخدام وظيفة التراجع القياسية. بالإضافة إلى ذلك، نظرًا لأن هذا الماكرو يغير محتوى ورقة العمل، تأكد من أن منطقة الطباعة صحيحة واضبط معلمات PageSize1 و PageSize2 لاحتياجات الورق والتخطيط الخاصة بك. ستضيف هذه الطريقة صفوفًا إضافية وقد تدفع البيانات الموجودة إلى الأسفل، لذا راجع التخطيط بعد تشغيل الماكرو.
إذا واجهت مشكلات مع المناطق الملونة التي لا تظهر كما هو متوقع أثناء الطباعة (مثل فقدان اللون أو القطع)، تحقق من أن طباعة لون الخلفية مفعلة في إعدادات الطابعة المتقدمة، وتأكد من أن منطقة الطباعة لورقة العمل مضبوطة بشكل صحيح. تتطلب كلتا الطريقتين، سواء تعبئة اللون أو VBA، الحذر بشأن الخلايا المدمجة وإعدادات نطاق الطباعة، حيث قد يؤدي الإعداد غير الصحيح إلى اختلال أو تلوين جزئي.
اختر الحل الذي يناسب إصدار Excel الخاص بك، تخطيط الصفحة، تعقيد احتياجات الرأس / التذييل، وما إذا كانت الأتمتة أو التحكم في التصميم أكثر أهمية بالنسبة لك. تعمل تلوينات الرأس / التذييل بشكل أفضل للعروض التقديمية، صفحات الغلاف، أو المستندات المطبوعة ذات العلامة التجارية عندما لا تكون هناك حاجة لتحديث حقول الرأس / التذييل ديناميكيًا عبر الصفحات.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد