كيفية تطبيق رؤوس أو تذييلات مختلفة على كل صفحة في جدول بيانات Excel؟
بشكل افتراضي ، عند إدراج رأس أو تذييل في ورقة عمل ، سيتم تطبيق محتوى الرأس أو التذييل على كافة الصفحات. بالنسبة للعديد من الأشخاص ، قد تحتوي صفحات مختلفة على محتويات مختلفة في أوراق العمل الخاصة بهم. وهم يميلون إلى تمييز هذه الصفحات بمحتوى الرأس أو التذييل بعد طباعة ورقة العمل. كيفية تطبيق رؤوس أو تذييلات مختلفة على كل صفحة في ورقة العمل؟ الطريقة في هذه المقالة يمكن أن تساعدك.
قم بتطبيق رؤوس أو تذييلات مختلفة على كل صفحة برمز VBA
قم بتطبيق رؤوس أو تذييلات مختلفة على كل صفحة برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في تطبيق رؤوس أو تذييلات مختلفة على كل صفحة من ورقة العمل. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيقنافذة s.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز VBA أدناه في ملف رمز نافذة او شباك. انظر لقطة الشاشة:
كود فبا: قم بتطبيق رؤوس مختلفة على كل صفحة في إكسيل
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 مفتاح لتشغيل الكود. ثم أرسال نافذة تنبثق ، يرجى النقر فوق طباعة لبدء طباعة الصفحات برؤوس أو تذييلات مختلفة.
ملاحظات: إذا كانت هناك 4 صفحات مطبوعة محددة في ورقة العمل ، فستحتاج إلى النقر فوق طباعة زر أربع مرات لإنهاء الطباعة بأكملها.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!