انتقل إلى المحتوى الرئيسي
 

كيفية وضع قيمة الخلية في الرأس / التذييل في إكسيل؟

المؤلف: شياويانغ آخر تعديل: 2024-09-26

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

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

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

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


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

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

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

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

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

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

الملاحظات:

1. إذا كنت ترغب في استخدام محتوى الخلية كتذييل لورقة العمل النشطة ، يمكنك تطبيق هذا الرمز:

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

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

2. يمكنك أيضًا تطبيق الرموز أعلاه لإدراج قيمة الخلية في الرأس / التذييل الأيمن أو الرأس / التذييل الأوسط ، فقط استبدل اليسار / اليسار مع RightHeader / تذييل اليمين or رأس المركز / سنترفوتر في الرموز.


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

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

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

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

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

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

يتم إدراج قيمة الخلية في التذييل

الملاحظات:

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

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

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

2. بديل RightHeader / التذييل or المركز / التذييل For اليسار / التذييل في الرموز أعلاه إذا كنت تريد وضع رأسك أو تذييلك بشكل مختلف.


أدخل معلومات الملف في الرأس / التذييل باستخدام Kutools for Excel

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

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

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس بلس > مصنف > أدخل معلومات المصنف. انظر لقطة الشاشة:
خيار إدراج معلومات المصنف في علامة التبويب Kutools على الشريط

2. في ال أدخل معلومات المصنف الحوار ، تحقق من المعلومات التي تريد إدراجها ضمن معلومات القسم والتحقق رأس or تذييل كما تحب.

تلميح: يمكنك إدراج المعلومات في ثلاثة مواقع للرأس أو التذييل: المركز أو اليسار أو اليمين.
مربع حوار إدراج معلومات المصنف

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

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

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

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

تلميح.إذا كنت ترغب في تقسيم مصنف سريع إلى عدة مصنفات / ملفات pdf أو ملفات csv بشكل منفصل ، فيرجى محاولة استخدام Kutools for Excel's انقسام وركبوك كما هو موضح في الصورة التالية. تعمل بكامل طاقتها دون قيود خلال 30 يومًا ، يرجى التنزيل والحصول على نسخة تجريبية مجانية الآن.

انقسام المصنف doc

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

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

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

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

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

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


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!