محمد ابو البـراء

استاذي الكريم // محمد يوسف محمد لعل هذا ما تريده على مادة التاريخ فان كان هذا هو المطلوب اتمنى ان ترسل الملف الاصلي بالمرة للتنفيذ عليه ان اردت والسلام عليكم ورحمة الله وبركاته ادبى ma2014.rar

بارك الله فيك _ يا بلدينا ( ابتسامة ) _ استاذ // محمود الاسيوطي نتمنى لك مزيد من التفوق وجزاكم الله خيرا على العمل

استاذي العزيز الغالى الاستاذ // رجب جاويش السلام عليكم سلمت يمينك وبارك الله فيكم وجزاكم الله خيرا

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

السلام عليكم ورحمة الله وبركاته هناك صيغ مستخدمة في هذا الامر منها 1 - ما استخدمتها وهذه الصيغة تستخدم في عدم تساوي الارقام فقط بمعني انك لو ادخلت حروف وفي الخلية المقابلة نفس الحرف لا تقوم بالتظليل =IF(E1/F1<>1;TRUE) 2 - صيغة اخرى استخدمتها في هذا الملف المرفق وهي تعمل مع كل شى متساوي =IF(H1<>I1;TRUE) وهذا شرح لكيفية التنفيذ maتنسيق1.rar

أخي الحبيب واستاذي الفاضل استاذ // جمال عبد السميع ( ملك المعادلات ) هذه شهادة احفرها على صدري او احتاج تصويرها وتعليقها على الحائط شكراً على مروركم الكريم وتشجيعكم

السلام عليكم ورحمة الله وبركاته والدتي الكريمة // أم عبد الله جزاكم الله خيراً على مروركم الكريم ----------------------------------- وبعد أن طرحنا تصور لعمل الشهادات في المشاركة رقم 6 وكيفية جلب البيانات إلى هذه الشهادات التي صممتها في المشاركة رقم 11 وكيفية عمل أكثر من شهادة في المشاركة رقم 13 ----------------------------------- تعالوا الآن لنعرف 4 ) الكود الخاص بطباعة شهادة واحدة فقط أو أكثر من شهادة ولكن قبل ان نعرف الكود علينا ان نعرف ما هو الكود واين نضعه؟!! وهذا الرابط للتعرف اكثر على هذه النقطة http://www.officena....showtopic=39323 واما كيفية وضعة فلعل الصور توضح ذلك وهذه طريقة وضع الكود خطوة ... بخطوة ----------------------------- وهذا هو الكود الخاص بعملية الطباعة Sub Print_Pages() Dim I As Integer For I = [w1] To [w3] If I <= [r2] Then [w7] = 3 * (I - 1) + 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I End Sub ومن الملاحظ أن هذا الكود فيه 5 أجزاء مهمة 1 – بداية الصفحة المراد طبعها وهذه النقطة واضحة والمشار إليها في الكود [w1] 2 – نهاية الصفحة المراد طبعها وهذه النقطة والمشار إليها في الكود [w3] 3 – المتغير [r2]( وهذا سيتم شرحه بالتفصيل المرة القادمة وكيفية ربطه بالشهادات ) 4 – عدد الصفحات [w7] ( وهذه سيتم شرح كيفية معرفة عدد الصفحات بالتفصيل المرة القادمة ) 5 – عدد الشهادات في الصفحة وهذه النقطة واضحة والمشار إليها برقم 3 في الكود ----------------------------------- ولنا عودة _ بإذن الله _ مع الجزء الخامس 5 ) كيفية ربط هذا الكود مع صفحة الشهادات و للاستفسار في هذه النقطة يرجي ترك سؤالك لنرد عليه المرة القادمة _ بإذن الله تعالى _ والسلام عليكم ورحمة الله وبركاته..

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

تفضل أخي طلبك واخبرني بالنتيجة شيت صف اول 2014م.rar

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

السلام عليكم ورحمة الله وبركاته وبعد اذن استاذي الحبيب // استاذ جمال عبد السميع كنت قد طلبت نفس الامر في احد المواضيع وقمت بتنفيذه لك منذ ايام في هذه المشاركة http://www.officena.net/ib/index.php?showtopic=51562#entry320336 وهذا رابط تحميل الملف http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=72802

اين تريد وضعها // استاذ جمال

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

اخي الحبيب استاذ رجب انا اعمل على 2007

أخى الفاضل الاستاذ / رجب جاويش جزاك الله كل خير :fff: :fff:

استاذ رجب جاويش بارك الله فيك قمت باضافة للكود احتمال رابع Sub ragab() Range("B4:G159").Sort , Key1:=Range("G4:G159"), Order1:=xlAscending, _ Key2:=Range("F4:F159"), Order2:=xlAscending, Key3:=Range("E4:E159"), Order3:=xlAscending, Key4:=Range("c4:c159"), Order4:=xlAscending End Sub فخرجت رسالة عند التنفيذ لا يوجد key4 فما السبب وكيف نزود عدد الترتيب على حسب اكثر من 4 و5 و6 عواميد

أخى الفاضل الاستاذ / رجب جاويش جزاك الله كل خير :fff: :fff:

أخى الفاضل الاستاذ / حمادة باشا جزاك الله كل خير :fff: :fff:

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

شكل باللوان اخرى

شكراً على التقييم استاذ عبد الله المجرب

طيب تمام استاذ // سعيد ما قمت به انا هو شكل مختصر للواجهة النهائية للبرنامج مثال ذلك : النتيجة التى يحصل عليها الطالب من النت تنقسم لامرين 1 ) مجهود جبار للقائمين على عمل هذه النتيجة 2 ) طريقة سهلة للطلاب للحصول عليها وهذا ما اقصده !!! اننا لا نستغني عن هذه التفاصيل ولكن لمثلي لا يفهم القوانين يحتاج ان يضع بيناته فيخرج له المبلغ فقط و انا ما قمت به هو التنفيذ على 3 متغيرات ممكن نزيد المتغبيرات دي لاكثر من 3 وهذه مهمتكم..

أخي الحبيب // أبو سلمى ما فهمته وما اعرفه ان ما اريده هو المرحلة النهائية _معرفة المرتب فقط _ الفلوس كام ؟!! هقبض كام ؟! وهي الاهم لدي الجميع!!! اما ما تقوم به سيادتكم من مجهود جبار بصراحة هو التفصيل يحتاجه كل موظف مش عارف شغله زي المحترم بتاعنا ( ابتسامة ) وبصراحة كده ان نفسي اجيب الموظف بتاعنا يقعد ياخد حصة منكم!!! اصلى انا قابض المرتب بتاع شهر يناير منذ 4 ايام فقط _ والمفروض اننا نقبض بدري لتعليمات الوزير _

السلام عليكم ورحمة الله وبركاته بجد أحلى ابتسامة على الصباح من احلى ناس بصراحة انا مش فاهم ماذا تقصد وابتسامة كده على السريع انت منظرك اتأثرت بالجوازة وضربت مثل بالبيوت!!!! ( احلى ابتسامة لاحلى ناس )