كيفية وضع قيمة الخلية في الرأس / التذييل في إكسيل؟
يمكننا بسهولة إدراج رأس أو تذييل يحتوي على مسار الملف أو اسم الملف أو التاريخ الحالي أو معلومات أخرى باستخدام ميزة Excel ، ولكن في بعض الأحيان ، نريد استخدام قيمة خلية كرأس أو تذييل في Excel. كيف يمكننا وضع محتويات الخلية في رأس أو تذييل الصفحة في المصنف؟
ضع قيمة الخلية في رأس أو تذييل ورقة العمل برمز VBA
ضع قيمة الخلية في رأس أو تذييل جميع أوراق العمل التي تحتوي على تعليمات برمجية لـ VBA
أدخل معلومات الملف في الرأس / التذييل باستخدام Kutools for Excel
ضع قيمة الخلية في رأس أو تذييل ورقة العمل برمز 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 / RightFooter 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 المركز / التذييل التي اليسار / التذييل في الرموز أعلاه إذا كنت تريد وضع رأسك أو تذييلك بشكل مختلف.
أدخل معلومات الملف في الرأس / التذييل باستخدام Kutools for Excel
إذا كنت تريد إدراج معلومات الملف في رأس أو تذييل الصفحة ، مثل اسم ورقة العمل / المصنف ومسار المصنف وما إلى ذلك ، يمكنك استخدام كوتولس ل إكسيلالصورة أدخل معلومات المصنف فائدة إذا كنت قد قمت بتثبيت كوتولس ل إكسيل.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. | ||
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. انقر كوتولس بلس > مصنف > أدخل معلومات المصنف. انظر لقطة الشاشة:
2. في ال أدخل معلومات المصنف الحوار ، تحقق من المعلومات التي تريد إدراجها ضمن معلومات القسم والتحقق رأس or تذييل كما تحب.
تلميح: يمكنك إدراج المعلومات في ثلاثة مواقع للرأس أو التذييل: المركز أو اليسار أو اليمين.
3. انقر Ok. ثم يمكنك الذهاب إلى مشاهدة > تخطيط الصفحة لعرض العنوان.
باستخدام إدراج معلومات المصنف ، يمكنك أيضًا إدراج معلومات الملف في خلية أو نطاق من الخلايا. انقر هنا لمعرفة المزيد عن هذه الأداة.
أدخل معلومات المصنف في الخلية / الرأس / التذييل

مقالات ذات صلة:
كيفية إدراج اسم الملف أو المسار في الخلية / الرأس أو التذييل في إكسيل؟
كيفية إدراج وحذف صورة الرأس والتذييل والرأس في إكسيل؟
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

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









