Note: The other languages of the website are Google-translated. Back to English

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

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


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

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

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

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

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

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

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

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



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

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

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

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

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (9)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كنت بحاجة إلى إدراج نطاق تاريخ كشوف المرتبات النشط في أوراق متعددة. يفتح المستخدم ورقة تاريخ كشوف المرتبات ، ويدخل نطاق التاريخ وقبل أن يطبعها يقوم بتحديث جميع الأوراق في المصنف. إليك كيف يمكنني إدراج خلايا متعددة في النطاق برمز أقل قليلاً لعام 2010 متوافق: Private Sub Workbook_BeforePrint (إلغاء كـ منطقي) Dim WorkRng كمجال عند الخطأ ، استئناف التالي لكل ws في Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Range ("'Payroll Date'! A1"). Value & vbCr & Range ("'Payroll Date'! A2"). Value Next End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد إدخال أربع خلايا في الرأس ، هذا VB لخلية واحدة فقط. كيف يمكنني فعل ذلك. شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك محاولة ربط قيمة rht أربع خلايا في خلية واحدة ثم استخدام الخلية المفردة كرأس.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل هناك طريقة يمكنك من خلالها إضافة قيمة خلية تأخذ في الاعتبار عوامل التصفية المطبقة؟ على سبيل المثال ... A1 = الاثنين A2 = الثلاثاء A3 = الأربعاء. سيعمل استخدام رمز VBA لعرض الخلية A1 في البداية ، ولكن بمجرد تطبيق عامل التصفية في أيام الأسبوع ، لم تعد قيمة الخلية "الأعلى" هي A1. هل هناك طريقة لالتقاط المتغير؟ شكرا جزيلا،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عند استخدام "كود VBA: ضع قيمة خلية محددة في رأس جميع أوراق العمل" ، أود وضع القيمة المراد تنسيقها: Tahoma ، غامق ، بحجم الخط 12.
كيف يمكن أن يضاف هذا إلى التعليمات البرمجية الخاصة بك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

يبدو أن هذا يعمل مرة واحدة فقط.
ماذا لو تغيرت قيمة الخلية؟
هل هناك طريقة لربط الخلية بحيث يتغير الرأس عندما تتغير قيمة الخلية؟

لدي كتاب عمل حيث لدي ثلاث أوراق.

ورقة 1 معنونة "صحيفة الحذف" - ورقة نرسلها إلى المستودع تحتوي على معلومات حول ما يجب تحضيره للطلب
ورقة 2 بعنوان "OA" - إقرار طلبي للعميل الذي يسحب معظم البيانات من الورقة الأولى بما في ذلك رقم الطلب الذي أحتاجه في رأسي. لذلك أحاول ربط الرأس بالخلية في هذه الصفحة برقم الطلب (F5) الذي يحصل على قيمته من (C7) في ورقة العمل الأولى ("ورقة الحذف")
الورقة 3 المعنونة "الفاتورة - الفاتورة التي تسحب أيضًا معظم المعلومات نفسها من الورقة الأولى والتي ستحتاج أيضًا إلى رأس لتضمين القيمة (F5) لهذه الورقة المأخوذة من (C7) في" ورقة الحذف "
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يبدو أن هذا يؤدي إلى إنشاء ارتباط ديناميكي ، أي أن القيمة التي تم إدخالها في الرأس لا تتغير عندما تتغير قيمة الخلية. إذن ما هو الغرض من رمز VBA ، عندما تفعل النسخ / اللصق الشيء نفسه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا نيل
إذا كنت تريد ربط قيمة الخلية بالرأس أو التذييل ديناميكيًا ، فيرجى تطبيق كود فبا التالي:

ملاحظة: يجب عليك إدخال الكود في كود الورقة وليس الوحدة النمطية العادية.
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


يرجى المحاولة ، آمل أن يساعدك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
maksudnya bagaimana؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL