كيفية وضع قيمة الخلية في رأس أو تذييل الصفحة في Excel؟

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

وضع قيمة الخلية في رأس أو تذييل الصفحة لورقة عمل باستخدام كود VBA

وضع قيمة الخلية في رأس أو تذييل الصفحة لجميع أوراق العمل باستخدام كود VBA

إدراج معلومات الملف في رأس أو تذييل الصفحة مع Kutools لـ Excel

نسخ محتويات الخلية يدويًا إلى مربع حوار الرأس أو التذييل

وضع قيمة الخلية في رأس أو تذييل الصفحة لورقة عمل باستخدام كود VBA

إذا كنت تريد عرض محتوى خلية معينة في رأس أو تذييل الصفحة الخاص بورقة العمل الحالية، فهذا غير ممكن عبر واجهة رأس / تذييل الصفحة القياسية في Excel. ومع ذلك، يمكنك تحقيق ذلك باستخدام ماكرو VBA بسيط.

أولاً، تأكد من حفظ المصنف الخاص بك قبل تشغيل أي كود VBA، حيث تقوم الماكروات بتعديل الكائنات ولا يمكن التراجع عنها. كما تأكد من أن إعدادات Excel تسمح بتشغيل الماكروات.

1. قم بتفعيل ورقة العمل التي تريد وضع قيمة الخلية في رأس أو تذييل الصفحة بها. اضغط على ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة الجديدة.

كود VBA: وضع قيمة خلية محددة في رأس ورقة العمل

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. اضغط F5 (أو انقر فوق زر التشغيل) لتنفيذ هذا الماكرو. ستظهر مربع حوار يطلب منك تحديد الخلية التي تريد استخدام قيمتها في الرأس.

4. بعد تحديد الخلية والنقر فوق موافق، سيتم إدراج قيمة الخلية المختارة في رأس الصفحة الأيسر للورقة النشطة. لعرض الرأس، انتقل إلى ملف > طباعة (أو استخدم تخطيط الصفحة عرض). انظر المثال أدناه:

ملاحظات:

• إذا كنت تريد عرض محتوى الخلية في التذييل بدلاً من الرأس، استخدم الكود التالي. خطوات التشغيل هي نفسها — فقط الصق هذا الكود في وحدة وقم بتشغيله.

كود VBA: وضع قيمة خلية محددة في تذييل ورقة العمل

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

• لتغيير الموضع، استبدل LeftHeader أو LeftFooter في الكود بـ CenterHeader، RightHeader، CenterFooter، أو RightFooter حسب الحاجة. على سبيل المثال، لإدراج القيمة في رأس الصفحة الأوسط، قم بتغيير LeftHeader إلى CenterHeader.
• تأكد دائمًا من أن مرجع الخلية صالح قبل تشغيل البرنامج النصي. إذا حاولت الرجوع إلى خلية فارغة، سيكون الرأس/التذييل فارغًا.
• بعد تشغيل الماكرو، إذا قمت بتعديل الخلية المصدر، لن يتم تحديث الرأس/التذييل تلقائيًا؛ ستحتاج إلى إعادة تشغيل الماكرو لتحديث المعلومات المعروضة.
• يُوصى باستخدام هذه الطريقة VBA عندما تريد أتمتة إجراءات الخلية إلى الرأس دون الحاجة إلى تحديثات متكررة، أو عند العمل على قوالب تحتوي على محتوى ديناميكي لكل طباعة.
• إذا ظهرت رسالة تحذير "الماكروات معطلة"، تأكد من تمكين إعدادات الماكرو في ملف > الخيارات > مركز الأمان.

وضع قيمة الخلية في رأس أو تذييل الصفحة لجميع أوراق العمل باستخدام كود VBA

عندما تحتاج إلى تطبيق قيمة خلية معينة كرأس أو تذييل عبر جميع الأوراق في مصنفك، سيكون من المستهلك للوقت تشغيل الكود السابق لكل ورقة عمل على حدة. في مثل هذه الحالات، يمكنك استخدام ماكرو VBA آخر مصمم لإدراج محتوى الخلية المختارة في رأس أو تذييل كل ورقة عمل في مصنفك في عملية واحدة. هذا شائع عند توزيع التقارير التي يجب أن تحمل معلومات رأس/تذييل متسقة في جميع أنحاء.

1. افتح المصنف الذي تريد تطبيق التغيير عليه، واضغط على ALT + F11 لتشغيل نافذة Visual Basic for Applications.

2. في محرر VBA، انقر فوق إدراج > وحدة، ثم انسخ والصق الماكرو التالي في نافذة الوحدة.

كود VBA: وضع قيمة خلية محددة في تذييل جميع أوراق العمل

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. اضغط على F5 لتشغيل هذا الماكرو. سيظهر مربع حوار يطلب منك تحديد الخلية المستهدفة التي يجب أن تظهر قيمتها في تذييل كل ورقة عمل.

4. بمجرد اختيار الخلية والنقر فوق موافق، سيتم إدراج قيمة هذه الخلية في تذييل الصفحة الأيسر لكل ورقة عمل في المصنف. يمكنك التحقق من تعيين التذييل بالانتقال إلى ملف > طباعة.

ملاحظات:

• لاستخدام قيمة الخلية في رأس الصفحة عبر جميع أوراق العمل، استخدم الكود التالي بدلاً من ذلك. العملية لإدخال وتنفيذ الكود هي نفسها:

كود VBA: وضع قيمة خلية محددة في رأس جميع أوراق العمل

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

• لإدراج القيمة في الجانب الأيمن أو الأوسط من الرأس/التذييل، استبدل LeftHeader/LeftFooter بـ CenterHeader/CenterFooter أو RightHeader/RightFooter في البرنامج النصي.
• كن على دراية بأن إجراءات التراجع لا تنطبق على التغييرات التي تم إجراؤها باستخدام ماكروات VBA. احفظ مستندك مسبقًا لتجنب فقدان البيانات إذا كان الناتج غير متوقع.
• هذا الأسلوب هو الأفضل للمصنفات حيث تتشارك جميع الأوراق نفس متطلبات الرأس/التذييل. عندما تحتاج الأوراق إلى محتوى مختلف، فكر في تشغيل الماكرو لورقة واحدة بشكل منفصل على كل منها.
• إذا واجهت مشكلات لا يتم فيها تحديث الرؤوس/التذييلات كما هو متوقع، تأكد من عدم وجود أوراق محمية أو حماية مصنف مفعلة.

إدراج معلومات الملف في رأس أو تذييل الصفحة باستخدام Kutools لـ Excel

في الحالات التي تريد فيها إدراج معلومات متعلقة بالملف بسرعة ومرونة - مثل اسم ورقة العمل، اسم المصنف، أو مسار الملف - في الرأس أو التذييل، توفر Kutools لـ Excel أداة مخصصة تسمى Insert Workbook Information. هذه الأداة مناسبة بشكل خاص إذا كنت تفضل حلًا بدون كتابة الكود، أو تحتاج إلى معالجة الدفعات، أو تريد إدراج عدة خصائص مستند مضمنة دون إدخال يدوي أو خطر الخطأ. يجعل Kutools العملية متاحة للمستخدمين الذين لا يرغبون في التعامل مع VBA أو يحتاجون بانتظام إلى تحديث الرؤوس/التذييلات بناءً على بيانات المصنف.

بعد تثبيت Kutools لـ Excel مجانًا، اتبع الخطوات التالية:

1. اذهب إلى Kutools Plus التبويب، ثم حدد أدوات المصنف > إدراج معلومات المصنف.

2. في مربع الحوار إدراج معلومات المصنف، حدد المعلومات المحددة التي ترغب في إدراجها (مثل مسار المصنف، اسم الملف، اسم ورقة العمل، وما إلى ذلك) ضمن قسم المعلومات. ثم حدد ما إذا كنت تريد إدخالها في الرأس أو التذييل عن طريق تحديد رأس أو تذييل.

نصيحة: يمكنك اختيار الموضع داخل الرأس أو التذييل — المنتصف، اليسار، أو اليمين — باستخدام خيارات الموقع. هذا مفيد للتنسيقات المنظمة، مثل وضع مسار الملف على اليسار واسم الورقة في المنتصف.

3. انقر موافق لتطبيق إعداداتك. لمراجعة النتائج، انتقل إلى عرض > تخطيط الصفحة أو استخدم ملف > معاينة الطباعة.

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

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

إذا لم يتم تحديث المعلومات في رأس أو تذييل الصفحة تلقائيًا، تحقق مما إذا كان المصنف مضبوطًا على الحساب اليدوي، حيث يتطلب بعض الرؤوس/التذييلات تحديث المستند لعرض أحدث البيانات.

نسخ محتويات الخلية يدويًا إلى مربع حوار الرأس أو التذييل

إذا كنت بحاجة فقط إلى تحديث الرأس أو التذييل بمحتوى الخلية بشكل غير متكرر وتريد تجنب VBA والإضافات، يمكنك نسخ قيمة الخلية ولصقها يدويًا في مربع حوار الرأس/التذييل. انقر نقرًا مزدوجًا على قسم الرأس/التذييل في عرض تخطيط الصفحة والصق قيمة الخلية باستخدام Ctrl+V. الجانب السلبي هو أن هذا يدوي — تحتاج إلى تحديث القيمة كل مرة تتغير فيها.

عند استخدام الأساليب اليدوية أو العناوين المطبوعة، تذكر أنها أقل ديناميكية بالنسبة لمواقع الرؤوس والتذييلات "الحقيقية"، وتتطلب إجراءً في كل مرة تتغير فيها المعلومات الأساسية. من ناحية أخرى، تقدم ماكروات VBA والأدوات مثل Kutools عمليات سير عمل مبسّطة وقابلة للتكرار مفيدة بشكل خاص للمصنفات الكبيرة أو توليد التقارير الآلية. إذا واجهت سلوكًا غير متوقع أو أخطاء مع VBA، تحقق دائمًا من إعدادات أمان الماكرو وتحقق من وجود أوراق عمل مقفلة أو محمية. قبل استخدام الإضافات الخارجية، تحقق من أنها من مصادر موثوقة ومتوافقة مع إصدار Excel الخاص بك. عند العمل مع ملفات حساسة أو حرجة، من الجيد حفظ نسخة احتياطية قبل تشغيل الماكروات.

عرض توضيحي: إدراج معلومات المصنف إلى الخلية/الرأس/التذييل

مقالات ذات صلة:

كيفية إدراج اسم الملف أو المسار في الخلية / الرأس أو التذييل في Excel؟

كيفية إدراج وحذف الرأس، التذييل، وصورة الرأس في Excel؟