كود لاظهار الاسم اسفل الشيت

[حسام ميلكانا]

Defect Analysis 30-3-2015.rar

[ياسر خليل أبو البراء]

أخي الكريم حسام

يرجى عدم طرح موضوع وإرفاق ملف بدون توضيح للمطلوب حتى لو كان المطلوب واضح

ورغم ذلك المطلوب غير واضح ..أنت ذكرت إظهار الاسم في تذييل الصفحة ..ما الاسم الذي تقصده؟ لم أفهم مطلوبك بشكل جيد؟؟

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

تقبل تحياتي

 

[حسام ميلكانا]

استاذنا الكبير ابو البراء

مهلا بنا -- انا قمت بالفعل بشرح المطلوب داخل الملف بالشيط الاول على قدر فهمى

وشوف سيدى انا التقرير دة وتقارير غيرو بقوم بارسالها لبعض الاشخاص فانا عاوز اسمى انا  ( حسام الدين يوسف ) على كل الاوراق

يكون فى ذيل الصفحة عن طريق كود هذا هو المطلوب

يارب اكون قد استطعت ان اقوم بشرح المطلوب

وشكرا ليك سيدى الفاضل ابوا البراء وجزاك الله عنا خير الجزاء

 

[ala_zareer@yahoo.com]

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

[ياسر خليل أبو البراء]

أخي الكريم حسام

أعتذر إن كان كلامي قد ضايقك لكن يتحتم علي توضيح النقاط الغامضة لتجد المساعدة

أعتقد أنه يمكنك حل المشكلة ببساطة من خلال تسجيل ماكرو تقوم فيه بعمل تذييل لورقة العمل وإضافة ما شئت من نصوص أو غيرها .. ثم يمكنك استخدام الكود الذي تم تسجيله

هذا كحل مبدئي يمكنك الاعتماد عليه ..

 

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

Sub InsertHeaderFooter()
    Dim Ws As Worksheet
    
    Application.ScreenUpdating = False
        For Each Ws In ThisWorkbook.Worksheets
            With Ws.PageSetup
                .LeftHeader = ""                  'رأس الصفحة الأيسر..
                .CenterHeader = ""                'رأس الصفحة الأوسط..
                .RightHeader = ""                 'رأس الصفحة الأيمن..
                .LeftFooter = "YasserKhalil"      'تذييل الصفحة الأيسر
                .CenterFooter = ""                'تذييل الصفحة الأوسط
                .RightFooter = ""                 'تذييل الصفحة الأيمن
            End With
        Next Ws
        
        Set Ws = Nothing
    Application.ScreenUpdating = True
End Sub

يقوم الكود بإدراج ما سيتم الكتابة بين أقواس التنصيص في المكان المخصص لذلك لكل أوراق العمل الموجودة

تقبل تحياتي

[حسام ميلكانا]

استاذنا الكبير ابو البراء

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

ولكننى لى تحفظ فقط وهو ان تجد العذر لمثالنا اللذين لم يعرفو الاكواد ولا اشكالها الامن خلال هذا الصرح الكبير

فا بالتالى نقوم بشرح المطلوب من خلال معرفتى انا فبهذا يكون الشرح او الطلب من الممكن ان يكون غير واضح

فهذا ليس تقصير منى فانما قلة خبرة

انا لم ارى مثلكم فى حياتى تقومو بمساعدة الاخرين بدون اجر وتكتفون فقط بكلمة شكر هى دى المكافئة ولاجرالكبير

عند الله ان شاء الله

شكرا ليك على المساعدة اولا ثم على النصيحة ثانيا وبالفعل انا قمت بعمل ميكرو كما شرحت لى وبالفعل نجحت فى عمل المطلوب

بس دة لم يغنينى عن الكود الجميل الى انت عملتة والذى قام بعمل المطلوب بالضبط

شكرا ليك سيدى الفاضل وجزاك الله خير الجزاء

شكرا ليك مرة اخرى
 

اخى الكريم ala_zareer

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

فهذة الطريقة انا جربتها ولكنها غير مقبولة بالنسبة لى

شكرا ليك مرة اخرى على المساعدة

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

[ياسر خليل أبو البراء]

أخي العزيز حسام

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

وجزيت خيراً بمثل ما دعوت لي

 

بالنسبة للتحفظ الذي ذكرته ، يقدم الأخوة في غالب الأحيان الشرح مع الحل المقدم وهذا في رأيي يسهل الكثير في تعلم الأعضاء المبتدئين ، فقط ركز مع الشروحات واسأل إذا لم يكن هناك نقطة واحدة ، علينا أن نتخطى مرحلة الأسماك الجاهزة إلى مرحلة اصطاد سمكتك بنفسك .. عشان السمك اللي هتصطاده بنفسك هيكون له طعم مختلف

وعلى رأي المثل اللي بيقول : اللي ييجي بالسهل يروح بالسهل Come easy, go easy ..مش كدا ولا ايه يا عزيزي

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

[حسام ميلكانا]

اخى الكريم استاذى ابو البراء

لك كل الجب والتقدير على هذا الكلام الطيب

وربنا يباركلك فى اولادك وفى عمرك وفى صحتك على كل ما تقدمة من دعم ونصائح ومساعدة

وخلى بالك الطريق فى هذا المجال طويل ولكن بداية الطريق خطوة ومعكم وبكم سوف نتخطى كل الصعاب ان شاء الله

شكرا ليك استاذى الكبير وشكرا لهذا الصرح الرائع بكل افرادة والقائمين علية فانتم فعلا خير المعين

لكم منى جميعا شكر كبير محمل باجمل الكلمات

جزاكم الله عنا خير الجزاء
 

[ياسر خليل أبو البراء]

أخي العزيز حسام

بارك الله فيك ومشكور على هذه الكلمات الرقيقة وعلى دعائك الطيب .. وجزيت بمثل ما دعوت

وإن شاء الله تجد إخونك نعم المعين بعد الله عزوجل

تقبل تحياتي