استفسار عن محتوى رأس وتذييل

[علي الخضر]

السلام عليكم

 

من المعروف عند كتابة مثلا &[Tab] في رأس اوتذييل ورقة العمل يدرج اسم الورقة 

 

كيف لي ان ادرج محتوى خلية في الرأس او التذييل بحيث اي تعديل في خلية ما يعدل رأس وتذييل

 

وشكرا لكم

تم تعديل أكتوبر 28, 2013 بواسطه علي الخضر

[عبدالله المجرب]

يمكن عملها بالكود فما رايك

[حمادة عمر]

السلام عليكم

الاخ الكريم / علي الخضر

بارك الله فيك

بعد اذن استاذي القدير الراائع دوما /  عبدالله المجرب ... جزاه الله خيرا

اليك كود من بعض ما تعلمناه منه

حيث فيه رأس وتذييل الصفحة يساوي خلايا معينة في الملف

شاهد ذلك ...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
    .RightHeader = Sheets("Sheet1").Range("A1").Value
    .CenterHeader = Sheets("Sheet1").Range("b1").Value
    .LeftHeader = Sheets("Sheet1").Range("c1").Value
    .RightFooter = Sheets("Sheet1").Range("A2").Value
    .CenterFooter = Sheets("Sheet1").Range("b2").Value
    .LeftFooter = Sheets("Sheet1").Range("c2").Value
End With
End Sub

جزاك الله خيرا

 

 

 

راس وتذييل الصفحة.rar

[علي الخضر]

جزاكم الله خيرا ...... برجاء من يصل لطريقة اسهل يخبرنا

 

شكر خالص للاعضاء الكرام

عبدالله المجرب

 

حمادة عمر

[علي الخضر]

معذرة سؤال تاني اساتذتي 

 

لو عايز .RightHeader = Sheets("Sheet1").Range("A1").Value

يحتوي على خليتين تحت بعض

يعني الرأس يمين سطرين تحت بعض

 

؟

 

 

 

[عبدالله باقشير]

السلام عليكم

 

جرب التالي

RightHeader = Sheets("Sheet1").Range("A1").Value & Chr(13) & Sheets("Sheet1").Range("A2").Value

تحياتي

[علي الخضر]

استاذ عبدالله باقشير جزاك الله خيرا تمام اجدد بالشكر لك وللاستاذ حمادة عمر

[حمادة عمر]

الاستاذ القدير العلامة الخبيبر / عبدالله باقشير

تقبل خالص تحياتي

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / علي الخضر

جزاك الله خيرا

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ الفاضل والعلامة الكبير عبد الله باقشير جزاك الله خيرا

الاستاذ الفاضل ابو احمد جزاك الله خيرا

الاستاذ والاخ الحبيب ابو سما جزاك الله خيرا

اخي ابو سما قمت بتغيير عناوين  الخلايا ولم تتغير العبارة السابقة وبقيت نفسها حتى عندما اغلقت الملف وقمت بفتحه مرة اخرى لم تتغير

ارجو الافادة حول السبب هل عندي الخلل كون انا استخدم اوفس 2010 والكود معمول بـ  2003  ام هناك حلا اخر للمشكلة كوني اردت ان اطرح السؤال منذ وقت ولكنني فضلت ان ابحث ربما توجد اجابة سابقة لكن سبقني اخي علي الخضر جزاه الله خيرا

بارك الله فيكم وانعم الله عليكم  بالصحة والعافية

[علي الخضر]

انا شغال اوفيس 2007 وشغال معايا اعتقد انك لازم تكتب كود في يرد حتى يستطيعوا الرد عليك 

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاخ العزيز علي الخضر جزاك الله خيرا

الاساتذة الكرام والاخوة الاعزاء رفع الله مقامكم في الدنيا والاخرة

الكود لايعمل  وغيرت بعض الاعدادات للماكرو ونفس النتيجة الكود لايعمل

ارجو معرفة السبب لان الملف يعمل لدى الاخ علي الخضر وحتما جميع الاساتذة المشتركين

ارجو افادتي كيف يكون حل المشكلة وتقبلوا دعواتي لكم بالموفقية والنجاح

[علي الخضر]

والسلام عليكم ورحمة الله وبركاته

الاخ العزيز  عباس السماوي  وجزاك مثله

حقيقة الكود في البداية لم يعمل معيالا بعد ضبط هذه الخصائص لاحظ الدوائر في الصورة

لانني لجهلي قمت بنسخ ولصق مباشرة ثم تبين لي  كما ان الرأس تغير بعد عمل معاينة قبل الطباعة

 

[حمادة عمر]

السلام عليكم

اخي الحبيب / عباس السماوي

بارك الله فيك

بالنسبة للكود فهو كود عادي يعمل علي اي نسخة اكسيل 2003 - 2007- 2010  بدون اي مشاكل

هل يظهر لديك اي نوع من انواع الخطأ عند تنفيذ الكود ... برجاء ارسال صورته

في انتظار ردك

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب ابو سما حفظكم الباري عز وجل ورعاكم

دائما تسارع للاجابة على اسئلة الاخوة الاعضاء يسر الله لك امرك واعطاك الصحة والعافية

اخي الحبيب الحمد لله بعد متابعة وتغيير بعض الامور ولكن كان السبب بسيط وهو عند المعاينة لا يتغير الراس وذيل الصفحة ولكن بعد الطباعة تطبع الاسم الجديد في الخلايا وبعدها عند المعاينة تظهر العناوين الجديدة في الخلايا

بارك الله فيك وانعم عليكم بالصحة والعافية

وهذه الصورة الاولية التي ظهرت قبل ان اقوم بالطباعة  صورة.rar

 

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاخ العزيز علي الخضر جزاك الله خيرا وبارك فيك

اشكرك اخي لابداء المساعدة وفقكم الله ورعاكم

تقبل فائق احترامي وتقديري

[حمادة عمر]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب ابو سما حفظكم الباري عز وجل ورعاكم

دائما تسارع للاجابة على اسئلة الاخوة الاعضاء يسر الله لك امرك واعطاك الصحة والعافية

اخي الحبيب الحمد لله بعد متابعة وتغيير بعض الامور ولكن كان السبب بسيط وهو عند المعاينة لا يتغير الراس وذيل الصفحة ولكن بعد الطباعة تطبع الاسم الجديد في الخلايا وبعدها عند المعاينة تظهر العناوين الجديدة في الخلايا

بارك الله فيك وانعم عليكم بالصحة والعافية

وهذه الصورة الاولية التي ظهرت قبل ان اقوم بالطباعة  صورة.rar

 

السلام عليكم

اخي الحبيب / عباس السماوي

بارك الله فيك

عند اعرف انك ومن الاكيد (  قدها وقدود )

الحمد لله انك اهتديت لما تريد

تقبل خالص تحياتي

واي استفسار معك دائما ان شاء الله

جزاك الله خيرا