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

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


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


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

Preview




كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة

أحبتى فى الله السلام عليكم ورحمة الله وبركاته ---------------------------------- فى بعض الأحيان يتم إدخال كم كبير من الب ..



25-09-2018 10:34 مساء
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 734
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
يتابعهم : 9
يتابعونه : 661
قوة السمعة : 7731
الاعجاب : 37
 offline 
أحبتى فى الله
السلام عليكم ورحمة الله وبركاته
----------------------------------
فى بعض الأحيان يتم إدخال كم كبير من البيانات فى ورقة العمل يصل إلى 5000 أو 10000 صف
ومن الصعب تحديد فواصل الصفحات (_ عدد الصفوف المراد طباعتها فى كل صفحة ) يدويا بالطريقة المعتادة
لذلك معكم اليوم كود بسيط لتحديد فواصل الصفحات تلقائيا بالكود
بمجرد إدخال عدد الصفوف المراد طباعته فى كل صفحة
يتم المطلوب
وهذا هو الكود المستخدم
Sub InsertPageBreaks()
Dim lr As Long
Dim sh As Worksheet
Set sh = Application.ActiveSheet
On Error Resume Next
'----------------------------------------------------
M = " أكاديمية الصقر للتدريب "
M_D = Application.InputBox("أدخل عدد الصفوف المراد طباعتها فى كل ورقة    " & Chr(10) & "---------------------------------------------------" _
& Chr(10) & "     " & "Enter the number of rows to print in each sheet" & Chr(10), M)
'--------------------------------------------------------------------------
sh.ResetAllPageBreaks
     lr = Application.CountA(sh.Range("A:A")) + 1
     For i = M_D + 3 To lr Step M_D
           sh.HPageBreaks.Add Before:=sh.Cells(i, 1)
Next
'--------------------------------------------------------------------------
   ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
       ActiveSheet.PageSetup.PrintArea = ""

ActiveSheet.PageSetup.PrintArea = "$A$2:$I$" & lr
End Sub



شرح الكود داخل الملف المرفق
--------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
---------------------
أخوكم / محمد الدسوقى
 
 
  Insert Page Breaks.rar   تحميل rar مرات التحميل :(85)
الحجم :(88.239) KB



تم تحرير الموضوع بواسطة :محمد الدسوقى
بتاريخ:26-09-2018 09:53 مساء





25-09-2018 10:51 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8942
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 457
قوة السمعة : 26429
الاعجاب : 589
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
وعليكم السلام أخي الغالي محمد الدسوقي
بارك الله فيك وجزاك الله خيراً على الموضوع المميز والرائع .. جعله الله في ميزان حسناتك يوم القيامة




25-09-2018 11:31 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1539
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 65
قوة السمعة : 7152
الاعجاب : 136
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
جزاك الله كل خير استاذ محمد وبارك الله على هذا الموضوع المميز



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

25-09-2018 11:33 مساء
مشاهدة مشاركة منفردة [3]
أحمد يوسف
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 445
الجنس : ذكر
الدعوات : 1
يتابعهم : 1
يتابعونه : 10
قوة السمعة : 863
الاعجاب : 55
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
بارك الله فيك استاذى الكريم




25-09-2018 11:44 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1493
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 80
قوة السمعة : 9557
الاعجاب : 84
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
ما شاء الله ، بارك الله فيك على هذه الاعمال الرائعه
دائما ما تقدم ما هو ملموس ومطلوب فى الواقع العملى
جعلها الله بميزان حسناتك يوم القيامه 81





26-09-2018 07:24 صباحا
مشاهدة مشاركة منفردة [5]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 343
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 782
الاعجاب : 7
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
جزاك الله خيرا استاذ محمد...111




26-09-2018 10:30 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 734
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
يتابعهم : 9
يتابعونه : 661
قوة السمعة : 7731
الاعجاب : 37
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
أساتذتى الكرام
بارك الله فيكم 
مشكور ...... مروركم ...... العطر ...... على ...... الموضوع
مشكور... ......مشكور.....................مشكور... ......مشكور
مشكور.............مشكور..............مشك ور........ ....... مشكور
مشكور.......................مشكور....... .......... ..........مشكور
مشكور........................من القلب.........................مشكور
مشكور. ........................................ .......... ...مشكور
مشكور................................... .......... .. مشكور
مشكور................................... .....مشكور
مشكور................................مشك ور
مشكور.......................مشكور
مشكور.................مشكور
مشكور.....مشكور
مشكو رمشكور
مشكور




27-09-2018 08:01 صباحا
مشاهدة مشاركة منفردة [7]
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 149
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 365
الاعجاب : 4
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
أحسنت قولا وعملا وشرحا وجهدا
بارك الله فيك استاذنا ...




27-09-2018 12:26 مساء
مشاهدة مشاركة منفردة [8]
بكار للأبد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-01-2018
رقم العضوية : 3730
المشاركات : 252
الجنس : ذكر
تاريخ الميلاد : 13-9-1973
الدعوات : 1
يتابعهم : 6
يتابعونه : 9
قوة السمعة : 2033
الاعجاب : 9
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
ملف أكثر من رائع جزاك الله كل خير




27-09-2018 07:58 مساء
مشاهدة مشاركة منفردة [9]
محمدعبدالسلام
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 2
قوة السمعة : 120
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
جزاك الله كل خير استاذ محمد




27-09-2018 08:34 مساء
مشاهدة مشاركة منفردة [10]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 535
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 25
قوة السمعة : 4043
الاعجاب : 166
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
كود رائع بارك الله بك استاذ محمد
  هناك موضوع مشابه على هذا العنوان 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب




27-09-2018 09:22 مساء
مشاهدة مشاركة منفردة [11]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 734
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
يتابعهم : 9
يتابعونه : 661
قوة السمعة : 7731
الاعجاب : 37
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة
تحياتى لأستاذى الكبير / سليم
دائما أتعلم منك الكثير
وكما عودتنا على أكوادك الرائعة 
زادكم الله علما وخلقا وحلما




29-09-2018 09:49 صباحا
مشاهدة مشاركة منفردة [12]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1769
الجنس : ذكر
الدعوات : 20
يتابعهم : 0
يتابعونه : 645
قوة السمعة : 18681
الاعجاب : 105
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة

اعمال رائعه استاذ محمد بارك الله فيك
142





توقيع :الصقر

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




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق أبو سجده
9 2197 أبو سجده

الكلمات الدلالية
إدراج ، فواصل ، صفحات ،


 








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

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

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