أكاديمية الصقر للتدريب

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
مالك ماريه لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة YasserKhalil كود لنسخ نطاق محدد من الاكسيل الى الورد بنفس التنسيق - حسام خطاب اكسيل اسئله واجابات




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





تحديد رأس وتذيل صفحة الطباعة برمجيا

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




01-12-2017 09:44 مساء
مشاهدة مشاركة منفردة [13]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 810
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 162
قوة السمعة : 2896
الاعجاب : 1061
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
المشاركة الأصلية كتبت بواسطة: Kamel meraghni »
عمل رائع بارك الله فيك

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

أثارت هذه المشاركة إعجاب: هاشم بركات، Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


13-01-2018 10:17 مساء
مشاهدة مشاركة منفردة [14]
ظفر الله عسكر
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 114
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 417
الاعجاب : 121
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
لكل امرء من اسمه نصيب
وانت يا استاذ  محمود ذهب
ذهب 100/100 الف شكر لك

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، ناصر سعيد1، Eslam Abdullah،




13-01-2018 10:31 مساء
مشاهدة مشاركة منفردة [15]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 810
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 162
قوة السمعة : 2896
الاعجاب : 1061
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
المشاركة الأصلية كتبت بواسطة: ظفر الله عسكر »
لكل امرء من اسمه نصيب
وانت يا استاذ  محمود ذهب
ذهب 100/100 الف شكر لك


بارك الله فيك اشكرك على كلامك الطيب

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


14-01-2018 09:57 صباحا
مشاهدة مشاركة منفردة [16]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 279
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 4
قوة السمعة : 264
الاعجاب : 94
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
السلام عليكم  استاذي الفاضل جزاك الله كل خير على كل ماتقدمه زيادة في ميزان حسناتك مزيدا من تقدم وتفوق ونجاح يارب
والله اكواد ممتازة جدا وشرح مفصل رائع وترجمة جيدة والله انت فعلا خبير عن قريب يارب سوف يرقوك الى استاذ خبير ان شاء الله 
واليك استفساري حول طباعة فواصل الصفحات 
يااستاذ انا عندي في ملفي مضبط كل فواصل الصفحات ولكن عند وضع ملفي في جهاز اخر تتحول وتصبح غير مضبطة 
هل الكود الذي عملته يقوم بحل هذا المشكل 
انتظر الرد منك

تقبل تحياتي

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، ناصر سعيد1، Eslam Abdullah،




14-01-2018 06:22 مساء
مشاهدة مشاركة منفردة [17]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 810
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 162
قوة السمعة : 2896
الاعجاب : 1061
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
المشاركة الأصلية كتبت بواسطة: malik »
السلام عليكم  استاذي الفاضل جزاك الله كل خير على كل ماتقدمه زيادة في ميزان حسناتك مزيدا من تقدم وتفوق ونجاح يارب
والله اكواد ممتازة جدا وشرح مفصل رائع وترجمة جيدة والله انت فعلا خبير عن قريب يارب سوف يرقوك الى استاذ خبير ان شاء الله 
واليك استفساري حول طباعة فواصل الصفحات 
يااستاذ انا عندي في ملفي مضبط كل فواصل الصفحات ولكن عند وضع ملفي في جهاز اخر تتحول وتصبح غير مضبطة 
هل الكود الذي عملته يقوم بحل هذا المشكل 
انتظر الرد منك

تقبل تحياتي

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

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

واتبع رابط الموضوع ده لاستاذ حسام خطاب وحاول تطوعة لعملك فقد ينفعك 
لرؤية الروابط والمرفقات عليك الرد على الموضوع 

أثارت هذه المشاركة إعجاب: ناصر سعيد1، YasserKhalil، Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


15-01-2018 12:51 مساء
مشاهدة مشاركة منفردة [18]
احمد الحاوي
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 213
المشاركات : 61
الجنس : ذكر
تاريخ الميلاد : 20-12-1971
يتابعهم : 7
يتابعونه : 4
قوة السمعة : 175
الاعجاب : 57
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
جزاكم الله خيرا..استاذ محمود ابو الدهب...جهد طيب وموضوع مهم للكثيرين وشرح ممتع .
وماتخفش مش هنروح ف داهية ..احنا وصلنا ليها اصلا 
laugh

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، Eslam Abdullah،




28-05-2018 04:50 مساء
مشاهدة مشاركة منفردة [19]
هاشم بركات
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 708
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 15-1-1968
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
بارك الله فيك أ. محمود على هذا الشرح الوافي

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، Eslam Abdullah،




30-05-2018 02:08 مساء
مشاهدة مشاركة منفردة [20]
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
يتابعهم : 4
يتابعونه : 2
قوة السمعة : 302
الاعجاب : 132
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
عمل رائع ومجهود كريم استاذ محمود جزاك الله خيرا

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمود ابو الدهب،




26-09-2018 06:44 مساء
مشاهدة مشاركة منفردة [21]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 127
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 10
يتابعونه : 1
قوة السمعة : 157
الاعجاب : 72
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
عمل رائع بارك الله فيك يا أخى العزيز ..... بس ياريت لوعملت فيديو تشرح فيه كيفية عمل هذا الكود الخطير يبقى منتهى الجمال
لأن كثير منا ممكن يستعمل الكود وايضأ كتير قوى ممكن ميعرفشى يستخدمه ، الصوت والصور بيبقى التواصل والفهم يكون سريع
شرفت بمرورى على موضوعك الشيق والممتع 123

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمود ابو الدهب،




30-09-2018 07:51 صباحا
مشاهدة مشاركة منفردة [22]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 249
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2438
الاعجاب : 555
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
بارك الله فيك استاذ أيو الذهب 
لكن انا ارى انه لا ضرورة لكل هذا الكود الطويل 
انا شخصياً استعمل هذا الكود البسيط ( يمكن التعديل حسب الحاجة  )

Option Explicit
Sub defind_freader()
Dim lr%: lr = Application.Max(ActiveSheet.Range("A:A")) + 1
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
        .PrintArea = Range("A1:D" & lr).Address
        .LeftHeader = "Date: " & Date & Chr(10) & "Time: " & Time
        .CenterHeader = "I Am The Centre Header"
        .RightHeader = "الصفحة &P من  &N" & " صفخات"
        .CenterFooter = "I Am The Centre Footer"
        .LeftFooter = "sheet: " & ActiveSheet.Name
        .RightFooter = "MY RightFooter"
End With
Application.ScreenUpdating = True
End Sub

الملف مرفق
 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil، محمود ابو الدهب،




30-09-2018 08:58 مساء
مشاهدة مشاركة منفردة [23]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5247
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 16
يتابعهم : 0
يتابعونه : 346
قوة السمعة : 15110
الاعجاب : 5659
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
بارك الله فيك أخي الحبيب سليم وجزيت خيراً على إثرائك للموضوعات بحلولك المميزة

أثارت هذه المشاركة إعجاب: salim، محمود ابو الدهب،




01-10-2018 10:09 مساء
مشاهدة مشاركة منفردة [24]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 810
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 162
قوة السمعة : 2896
الاعجاب : 1061
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
[quote=salim]
بارك الله فيك استاذ أيو الذهب 
لكن انا ارى انه لا ضرورة لكل هذا الكود الطويل 
انا شخصياً استعمل هذا الكود البسيط ( يمكن التعديل حسب الحاجة  )

Option Explicit
Sub defind_freader()
Dim lr%: lr = Application.Max(ActiveSheet.Range("A:A")) + 1
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
        .PrintArea = Range("A1:D" & lr).Address
        .LeftHeader = "Date: " & Date & Chr(10) & "Time: " & Time
        .CenterHeader = "I Am The Centre Header"
        .RightHeader = "الصفحة &P من  &N" & " صفخات"
        .CenterFooter = "I Am The Centre Footer"
        .LeftFooter = "sheet: " & ActiveSheet.Name
        .RightFooter = "MY RightFooter"
End With
Application.ScreenUpdating = True
End Sub

الملف مرفق
 
بارك الله فيك استاذ سليم وشكرا على  الاضافة

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

وبالنسبة لاضافة حضرتك فهي رائعه ...
ولكن اذا كان الامر لمجرد الاختصار فبالمشاركة رقم اتنين وضعت هذا الكود وهو مختصر ويغنى عن كل السابق لو لاحظة حضرتك وبه بعض التنسيقات ايضا 
.LeftHeader = "&""Arial,Bold""&18" & Worksheets("Data").Range("AB8").Value


تحياتى لحضرتك
 


تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:01-10-2018 10:20 مساء




توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب




الكلمات الدلالية
يحديد ، وتذيل ، صفحة ، الطباعة ، برمجيا ، تحديد ، صفحة ، الطباعة ، برمجيا ، vba code for ،


 







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



الساعة الآن 10:07 صباحا

أعلن هنا
أعلن هنا
أعلن هنا