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

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

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

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

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

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

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

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

ملاحظات:

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

كود 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

2. يمكنك أيضًا تطبيق الأكواد أعلاه لإدراج قيمة الخلية في رأس أو تذييل الصفحة اليمنى أو المركزية، فقط استبدل LeftHeader / LeftFooter بـ RightHeader / RightFooter أو CenterHeader / CenterFooter في الأكواد.

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

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

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

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

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

ملاحظات:

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

كود 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

2. استبدل RightHeader/Footer أو CenterHeader/Footer بـ LeftHeader/Footer في الأكواد أعلاه إذا كنت تريد وضع الرأس أو التذييل في مواقع مختلفة.

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

إذا كنت ترغب في إدراج معلومات الملف في رأس أو تذييل الصفحة، مثل اسم ورقة العمل/المصنف، مسار المصنف وما إلى ذلك، يمكنك استخدام أداة Insert Workbook Information الخاصة بـ Kutools لـ Excel إذا كنت قد قمت بتثبيت Kutools لـ Excel.

بعد تثبيت Kutools لـ Excel مجانًا ، الرجاء القيام بما يلي:

1. انقر Kutools Plus > Workbook > Insert Workbook Information. شاهد لقطة الشاشة:

2. في مربع حوار Insert Workbook Information، قم بتحديد المعلومات التي تحتاج إلى إدراجها تحت قسم المعلومات، وحدد رأس أو تذييل كما تفضل.

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

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

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

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

نصيحة. إذا كنت ترغب في تقسيم المصنف بسرعة إلى عدة مصنفات/ملفات PDF أو ملفات CSV بشكل منفصل، جرب استخدام Split Workbook الخاص بـ Kutools لـ Excel كما هو موضح في لقطة الشاشة التالية. إنه يعمل بكامل وظائفه بدون قيود خلال 30 أيام، يرجى التنزيل وإجراء تجربة مجانية الآن.

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

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

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