logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





10-11-2017 12:40 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي

بسم الله نبدأ



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




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


هنا يوضع مديول لتعريف HdrFtr وهو مديول مستقل يمكنك نسخة ووضعة بمديول لديك بالملف الخاص بك


CODE
Function HdrFtr(sText As String, _
                Optional ByVal sFont As String, _
                Optional iColor As Long, _
                Optional iFontSize As Long) As String

    Dim sColor      As String
    Dim sFontSize   As String

    If Len(sFont) Then sFont = "&""" & sFont & """"

    If Abs(iFontSize) Then sFontSize = "&" & Abs(iFontSize)

    If iColor <> 0 Then
        sColor = "&K" & _
        Right("0" & Hex(iColor And &HFF), 2) & _
                 Right("0" & Hex(iColor &H100 And &HFF), 2) & _
                 Right("0" & Hex(iColor &H10000 And &HFF), 2)
    End If

    HdrFtr = sFont & sFontSize & sColor & sText
End Function


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



نيجي للكود الرأيسي بتعنا الى انا مسميه Header_Footer وهو لتحديد رأس وتذيل الصفحات وهو


CODE
Sub Header_Footer()
Application.ScreenUpdating = False
    Dim ws         As Worksheet

    Set ws = Sheet1
        ws.PageSetup.LeftHeader = HdrFtr(ws.Range("h2").Value, "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.CenterHeader = HdrFtr(ws.Range("g2").Value, "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.RightHeader = HdrFtr(ws.Range("f2").Value, "Calibri,Regular", vbBlue, 18)
        
        ws.PageSetup.LeftFooter = HdrFtr(Format(ws.Range("h3").Value, "yyyy/mm/dd"), "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.CenterFooter = HdrFtr(ws.Range("g3").Value, "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.RightFooter = HdrFtr(ws.Range("f3").Value, "Calibri,Regular", vbBlue, 18)

Application.ScreenUpdating = True
End Sub



ونأتي لشرح الكود


CODE
Application.ScreenUpdating = False


وهذا الجزء لتسريع عمل الكود وننهي الكود به ولكن بوضع true وهو لمنع اهتزاز الشاشة


CODE
    Dim ws         As Worksheet
    Set ws = Sheet1

وضعنا متغير وهو ws لتعريف ورقة العمل هنا كانت sheet1 ويمكنك تغيرها كما تحب



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


NDcxNTE4MQ8787100

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



CODE
        ws.PageSetup.LeftHeader = HdrFtr(ws.Range("h2").Value, "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.CenterHeader = HdrFtr(ws.Range("g2").Value, "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.RightHeader = HdrFtr(ws.Range("f2").Value, "Calibri,Regular", vbBlue, 18)
        
        ws.PageSetup.LeftFooter = HdrFtr(Format(ws.Range("h3").Value, "yyyy/mm/dd"), "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.CenterFooter = HdrFtr(ws.Range("g3").Value, "Calibri,Regular", vbBlue, 18)
        ws.PageSetup.RightFooter = HdrFtr(ws.Range("f3").Value, "Calibri,Regular", vbBlue, 18)

Application.ScreenUpdating = True
End Sub


وبالنسبة لهذا الجزء من الكود سنشرح احدهم والباقي مثلهم وليكن


CODE
ws.PageSetup.LeftHeader = HdrFtr(ws.Range(&quot;h2&quot;).Value, &quot;Calibri,Regular&quot;, vbBlue, 18

ws هو اسم ورقة العمل
pagesetup وهو صفة الطباعة
leftheader اى يسار راس صفحة الطباعة واليمين يكون right والوسط يكون center
hdrftr هو دالة التعريف التى وضعنها بكود مستقل في اول الشرح
ws.Range("h2").Value يعنى ورقة العمل المحدده والتى كانت sheet1 الخلية h2
Calibri,Regular تنظيم ونوع الخط
vbblue هو تحديد الون الازرق
18 هو حجم الخط



وتلاحظون اننا اضفنا في هذا السطر format

CODE
ws.PageSetup.LeftFooter = HdrFtr(Format(ws.Range(&quot;h3&quot;).Value, &quot;yyyy/mm/dd&quot;), &quot;Calibri,Regular&quot;, vbBlue, 18)


وهذا لان الخلية h3 تحتوى على تاريخ واردنا ان يظهر التاريخ هكذا yyyy/mm/dd اى يوم شهر سنة

وفي النهايو ضعنا هذا الكود لتحديد النطاق a2:d23 لعرض الطباعة وهو

CODE
Sub print_priv()
Application.ScreenUpdating = False
Header_Footer
        ActiveSheet.Range("a2:d23").Select
        ActiveSheet.PageSetup.PrintArea = "$a$2:$d$23"
        ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
End Sub

وربطناهم بزر في ورقة العمل

MzYzMTMx101

ومن خلالة يمكنك الطباعة واستعراض شكل الطباعة النهائي الذى سيكون هكذا


MTMyNDUxMQ4545102

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


ولى رجاء اخير هو اتمنى من الخبراء ان يضيفوا المزيد على الدالة التعريفية وهو تضخيم للخط


والشكر موصول للجميع

attachملف شرح رأس وتذيل الصفحة.rar
 
 
  ملف شرح رأس وتذيل الصفحة.rar   تحميل rar مرات التحميل :(148)
الحجم :(23.522) KB




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

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

look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  10-11-2017 02:21 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
كما يمكن استخدام هذا الكود
CODE

.LeftHeader = "&""Arial,Bold""&18" & Worksheets("Data").Range("AB8").Value


وهو لتحديد الخلية وورقة العمل وتحديد نوع الخط وتضخيمه وحجمة



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

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

look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  16-11-2017 07:32 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
بارك الله فيك أخي الحبيب محمود أبو الدهب وجزاك الله خيراً
واصل بلا فواصل .. هكذا ترتقي




look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  16-11-2017 08:25 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي الحبيب محمود أبو الدهب وجزاك الله خيراً
واصل بلا فواصل .. هكذا ترتقي
جزاك الله خيرا معلمى العزيز من خلالخ بداء واليك اعود وكلامك شرف لى
والحمد لله على سلامة رجوعك لنا بالسلامة كم غبت علينا وكم انتظرتك فوجودك لا غنى عنه في اى وقت 111



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

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

look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  16-11-2017 11:51 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
بارك الله فيك أخي العزيز محمود وجزاكم الله خيراً على كلماتك الطيبة ، ومهما طال الوقت فمصيرنا جميعاً إلى زوال ، ولا يبقى للإنسان سوى الذكرى الطيبة والعمل الصالح ، وأسأل الله أن يتقبل منا ومنكم صالح الأعمال




look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  17-11-2017 02:28 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 259
الدولة : مصر
الجنس :
تاريخ الميلاد : 14-2-1980
قوة السمعة : 2169
الاعجاب : 1
موقعي : زيارة موقعي
الأستاذ الفاضل // محمود

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

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




look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  17-11-2017 07:32 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 820
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8468
الاعجاب : 12
الأستاذ الفاضل // محمود
بارك الله فيك وجزاكم خيرا على هذا المجهود لتوصيل العلم زادك الله منه
تقبل تحياتى




look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  17-11-2017 11:07 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
جزاكم الله خير اخي الكريم أ محمود
وعلى رأيك لنروح كلنا في داهيه cool
شرح جميل تقبل تحياتي
142



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  17-11-2017 11:54 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
استاذى العزيز ياسر خليل
استاذى محمود الشريف
استاذى محمد الدسوقى
استاذى ياسر العربي
اشكركم جميعا وانا على خطاكم اسير
فأنتم من غرستم الغرس ونحن نحصد بارك الله فيكم

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



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

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

look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  28-11-2017 11:14 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 185
الجنس :
تاريخ الميلاد : 20-8-1989
قوة السمعة : 244
الاعجاب : 0
جزاك الله خيرا




look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  28-11-2017 11:18 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

اخى الكريم محمود جزاك الله خيرا عمل عظيم ورائع وطريقة شرح وعرض اروع
فاصل بلا فواصل ونحن معك
اعتر عن التاخر بالرد والتعليق لكن والله لم انتبه للموضوع الا الن بالصدفه
142




توقيع :الصقر

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


look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  28-11-2017 06:27 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
مرورك العطر شرف لي استاذ حسام ونحن على خطاكم نسير اشكرك كل الشكرك



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

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

look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
  01-12-2017 09:02 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
عمل رائع بارك الله فيك



توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 3 < 1 2 3 >





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









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

الساعة الآن 04:08 PM