كيف يمكن تطبيق ترويسات أو تذييلات مختلفة على كل صفحة في جدول Excel؟
بشكل افتراضي، عند إضافة ترويسة أو تذييل إلى ورقة عمل Excel، يُطبَّق المحتوى نفسه على كل صفحة مطبوعة. ويُعد هذا السلوك القياسي مثاليًا لضمان الاتساق، لكنك قد تحتاج أحيانًا إلى عرض معلومات فريدة على كل صفحة. فعلى سبيل المثال، عند طباعة التقارير المالية أو قوائم الطلاب أو النماذج التي تتضمّن أقسامًا مختلفة، تساعد الترويسات أو التذييلات المنفصلة لكل صفحة في جعل الطباعة أكثر وضوحًا وتمييز الأقسام بسهولة. ومع ذلك، فإن أدوات Excel الأصلية تتيح لك تعيين ترويسة أو تذييل واحد فقط لجميع الصفحات، مما يحد من المرونة دون اللجوء إلى طرق متقدمة. دعنا نستعرض معًا كيفية تعيين ترويسات أو تذييلات فريدة لكل صفحة في ورقة عمل Excel الخاصة بك.
تطبيق ترويسات أو تذييلات مختلفة على كل صفحة باستخدام كود VBA
تطبيق ترويسات أو تذييلات مختلفة على كل صفحة باستخدام كود VBA
يستخدم الحل أدناه ماكرو VBA لتعيين ترويسات أو تذييلات مخصصة لكل صفحة مطبوعة. تكون هذه الطريقة مفيدة إذا احتاج كل قسم من مستندك (مثل الفصول أو الفصول الدراسية أو التقارير الشهرية) إلى معرّف فريد. وعلى الرغم من أن العملية تتطلب بعض الإعداد الأولي، إلا أنه بمجرد التهيئة، تتيح لك طباعة الأقسام المختلفة بسرعة مع محتوى ترويسة/تذييل مميز.
1. اضغط معًا على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىInsert > Module. بعد ذلك، انسخ والصق كود VBA أدناه في نافذةCode. إذا كنت جديدًا على الماكرو، تُعدّ الوحدات (Modules) الأماكن التي يُخزَّن فيها كود VBA لتنفيذه. راجع لقطة الشاشة للتوجيه:
كود VBA: تطبيق ترويسات مختلفة على كل صفحة في Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
ملاحظات وشرح المعاملات:
3. اضغط على مفتاحF5 لتشغيل الماكرو. سيؤدي ذلك إلى تنفيذ الكود وعرض نافذةPreview. من هنا، انقر على زرPrint لبدء طباعة كل قسم معرّف مع ترويسته أو تذييله المخصص.
ملاحظة:إذا كانت ورقة العمل تحتوي على 4 مناطق طباعة محددة، فستحتاج إلى النقر على زرPrint أربع مرات—مرة واحدة لكل قسم—لإكمال طباعة جميع الصفحات مع ترويساتها وتذييلاتها الفردية. ويرجع ذلك إلى أن الماكرو يطبع كل قسم بالتسلسل، لذا كرّر عملية الطباعة لكل قسم.
باختصار، وعلى الرغم من أن Excel لا يدعم ترويسات أو تذييلات فريدة لكل صفحة داخل ورقة عمل واحدة بشكل أصلي، فإن استخدام ماكرو VBA يوفّر حلاً عمليًا وقابلًا للتخصيص. تأكد دائمًا من مراجعة إعداداتك والمخرجات المطبوعة، وفكّر في اللجوء إلى طرق بديلة عند التعامل مع سيناريوهات معقدة. وإذا كنت بحاجة متكررة إلى تخصيص الصفحات المطبوعة، فإن استثمار القليل من الجهد في أتمتة هذه العملية عبر VBA سيوفر عليك الكثير من العمل اليدوي.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل