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

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

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

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

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

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

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

4. ثم انقر فوق OK، تم إدراج قيمة الخلية المحددة هذه في الرأس الأيسر لورقة العمل الحالية. يمكنك عرض العنوان بالضغط قم بتقديم > طباعة. انظر لقطة الشاشة:إدراج قيمة الخلية إلى رأس doc1

الملاحظات:

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 التالية محتوى الخلية إلى الراعي أو التذييل الخاص بالمصنف بأكمله مرة واحدة.

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 لتنفيذ هذا الرمز ، سيظهر مربع حوار لتذكيرك بتحديد خلية تريد وضع محتواها في تذييل المصنف بأكمله.

إدراج قيمة الخلية إلى رأس doc1

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

إدراج قيمة الخلية إلى رأس doc1

الملاحظات:

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 اليسار / التذييل في الرموز أعلاه إذا كنت تريد وضع رأسك أو تذييلك بشكل مختلف.

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 
تحميل مجانا
مجاني كامل المواصفات خلال 30 يومًا

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

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

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

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

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

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



تلميح.إذا كنت ترغب في تقسيم مصنف سريع إلى عدة مصنفات / ملفات 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (9)
No ratings yet. Be the first to rate!
Neil
Neil
This comment was minimized by the moderator on the site
This doesn't appear to make a dynamic link, i.e., the value entered into the header doesn't change when the value of the cell does. So what is the purpose of the VBA code, when a copy/paste will do the same?
Reply
0
0
skyyang
skyyang     Neil
This comment was minimized by the moderator on the site
Hello, Neil,
If you want to link the cell value to the header or footer dynamically, please apply the following VBA code:

Note: You should insert the code into the sheet code not the normal Module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


Please have a try, hope it can help you
Reply
Report
0
0
DJ
DJ     skyyang
This comment was minimized by the moderator on the site
maksudnya bagaimana?
Reply
0
0
Dani
Dani
This comment was minimized by the moderator on the site
Hi,

This appears to only work once.
What if the value of the cell changes?
Is there a way to link the cell so the header changes when the cell value changes?

I have a workbook where I have three sheets.

Sheet 1 labeled "Deletion Sheet" - Sheet we send to the warehouse with info what to palatalize for the order
Sheet 2 labeled "OA" - My order acknowledgement to the customer which pulls most of the data from the first sheet including the Order number which I need to have in my header. So I am trying to link the Header to the cell in this page with the order number (F5) which gets it's value from (C7) in the first work sheet ("Deletion Sheet")
Sheet 3 labeled "Invoice - Invoice which also pulls most of the same information from the first sheet which would also need the header to include the value (F5) of this sheet taken from (C7) in "Deletion Sheet"
Reply
0
0
Mickey
Mickey
This comment was minimized by the moderator on the site
When using your "VBA code: put a specified cell value in header of all worksheets", I would like the value placed to be formatted: Tahoma, bold, in font size 12.
How can this be added to your code?
Reply
0
0
Claire
Claire
This comment was minimized by the moderator on the site
Hi There, Is there a way that you can add a cell value which takes account of applied filters? For example... A1 = Monday A2 = Tuesday A3 = Wednesday. Using the VBA code to display cell A1 will work initially, but once I apply a filter on days of the week, the "top" cell value is no longer A1. Is there a way to pick up the variable? Many thanks,
Reply
0
0
saeid mohammadi
saeid mohammadi
This comment was minimized by the moderator on the site
I want to insert four cells in header.This VB is only for one cell. How can I do it. Thanks
Reply
0
0
Ridhwan
Ridhwan     saeid mohammadi
This comment was minimized by the moderator on the site
You can try Concatenating the value of rht four cells into a single cell and then use the single cell as the header.
Reply
0
0
Jeffrey Hulbert
Jeffrey Hulbert
This comment was minimized by the moderator on the site
I needed to insert an active payroll date range into multiple sheets. The user opens the Payroll Date sheet, enters the date range and before she prints it updates all the sheets in the workbook. Here is how I am able to insert multiple cells into the range with a bit less code 2010 compatible: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations