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