KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف يمكنك إدراج قيمة خلية في رأس أو تذييل صفحة Excel؟

المؤلفشياويانغتاريخ التعديل

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

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

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

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

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

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

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

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

1. فعّل ورقة العمل التي تريد إدراج قيمة خلية منها في الرأس أو التذييل، ثم اضغطALT + F11 لفتح نافذةمايكروسوفت Visual Basic for Applications.

2. انقرإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذة الوحدة النمطية الجديدة.

كود 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. بعد تحديد الخلية والنقر علىموافق، سيتم إدراج قيمة الخلية المختارة في رأس الصفحة الأيسر لورقة العمل النشطة. ولعرض الرأس، انتقل إلىملف > طباعة(أو استخدم عرض)تخطيط الصفحة). انظر المثال أدناه:
تم إدراج قيمة الخلية في الرأس

ملاحظات:

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

كود 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، انقرإدراج > وحدة نمطية (Module)، ثم انسخ والصق الماكرو التالي في نافذة الوحدة.

كود 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أداة مخصصة تُسمىإدراج معلومات الورقة العمل. وهي الحل الأمثل إذا كنت تفضل طريقة لا تتطلب كتابة أكواد، أو تحتاج إلى معالجة دفعية، أو ترغب في إدراج عدة خصائص مستند مدمجة دون إدخال يدوي أو خطر الوقوع في الأخطاء. وتُبسّط Kutools هذه العملية للمستخدمين الذين لا يرغبون في التعامل مع VBA، أو الذين يحتاجون بانتظام إلى تحديث الرؤوس والتذييلات بناءً على بيانات الملف الوصفية.

Kutools لـ Excelيقدّم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة.مدمج مع إمكانات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات سهلة بلا جهد.معلومات تفصيلية عن Kutools لـ Excel...         نسخة تجريبية مجانية...

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

1. انتقل إلى علامة التبويبKUTOOLS PLUS، ثم اخترملف العمل > إدراج معلومات الورقة العمل.
خيار إدراج معلومات المصنف على تبويب Kutools في الشريط

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

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

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

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

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

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

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

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

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

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

 
Kutools لـ Excel: أكثر من 300 أداة مفيدة بين يديك! استمتع بميزات مدعومة بالذكاء الاصطناعي لإنجاز عملك بذكاء وسرعة أكبر!حمّل الآن!

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

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

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

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل