ابو عبدالبارى

الأخ الكريم al.djaballah ارجو ان يفى الملف بالمطلوب ورمضان كريم على كل الأخوة بالمنتدى abo_abary_دوائر حمراء.rar

Set MyRng_All = Range("p13", Cells(Y, 95)) حل المشكلة فى هذه الجزئية

اخى الكريم thefarmer السلام عليكم ارجو ان يفى الملف التالى بالغرض abo_abary_date.rar

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

اخى الكريم thefarmer بعد التحية ارجو ان يفى الملف بالمعادلات بالملطلوب abo_abary.rar

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

اخى الكريم omaryoseeg بعد السلام عليكم ارجو ان يفى الملف التالى بالغرض وحده الطباعه2016.rar

Const StudentData As String = "ÈíÇäÇÊ ÇáØáÈÉ" Const TopStudents As String = "ÇáÇæÇÆá" Private Sub Worksheet_Activate() ActiveSheet.Unprotect "123" Application.DisplayAlerts = False Sheets(TopStudents).Range("S:S").ClearContents Sheets(StudentData).Range("V5:V212").AdvancedFilter Action:=xlFilterCopy, copytorange:=Sheets(TopStudents).Range("S8"), unique:=True Sheets(TopStudents).Range("S9").Value = "Çáßá" With Sheets(TopStudents).Range("S8") .Interior.Pattern = xlSolid .Interior.Color = 65535 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.Size = 16 End With With Sheets(TopStudents).Range("S9:S100") .Interior.Pattern = xlSolid .Interior.ColorIndex = 0 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.ColorIndex = 0 .Font.Size = 16 End With Application.DisplayAlerts = True ActiveSheet.Protect "123" End Sub اخى الكريم ناصر سعيد ضعها فى هذا المكان

اخى الكريم محمد عبدالله المسعودي السلام عليكم ارجو ان يفى الملف بالمطلوب ترحيل.rar

برنامج حسابات (2).rar

اخى الكريم جلال محمد تم الوصول لحل لمشكلتك فى الملف المرفق اذا اعجبك الحل فضلا منك شارك به فى موضوع جديد ليستفيد منه اعضاء المنتدى الكريم وكل عام وانتم بخير ......... http://www.mediafire.com/download/lk5h2r5v81430nz/العلمي_جديد.rar

لجعل رقم الفاتورة يتم ترقيمها تلقائيا أكون شاكرا لكم هذا كود للرائع سليم حاصبيا =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"") ضعة فى الخلية a6 استبدل الفاصلة بالفاصلة المنقوطة ثم غير b2 الى c6 واسحب لباقى الخلايا

اخى العزيز / جلال محمد السلام عليكم ورمضان كريم بارفاقك الملف القديم بعد اضافة التعديل الذى قمت انا به على اساس الملف المقتص منه كان لا يظهر المواد ما بعد المجموع الكلى . وبارفاقك الملف الأصلى فى آخر مشاركة فانه يظهر مابعد المجموع الكلى لتغيير النطاق به Set MyRng_All = Range("p13:by2000") ' äØÇÞ ÇáÎáÇíÇ ÇáÐí ÊÑíÏ ÇÖÇÝÉ ÇáÏæÇÆÑ ÝíåÇ '================================================ x = ActiveWindow.Zoom Application.ScreenUpdating = False Range("bz13:ca2000").ClearContents اليس كذلك وعذرا على السؤال ورمضلن كريم عليك وعلى كل الأخوة بالمنتدى وبارك لنا فيك وفى كل الأخوة بالمنتدى ورمضان كريم

اخى عبدالسلام ابوالعوافي يعجبنى هذا الأسلوب السهل الممتنع

يرجى ارفاق ملف للتوضيح

اخى العزيز / ناصر سعيد بدلا عن -1 اكتب -4 Else If IsNumeric(Cells(صف_الدرجات, c.Column)) And Not IsEmpty(Cells(صف_الدرجات, c.Column)) _ And (c.Value < Cells(صف_الدرجات, c.Column) Or Cells(c.Row, c.Column - 1) < Cells(صف_الدرجات, c.Column - 1) Or Cells(c.Row, c.Column - 1) = "غ" Or Cells(c.Row, c.Column - 1) = "غـ") Then If Cells(c.Row, c.Column - 1) = "غ" Or Cells(c.Row, c.Column - 1) = "غـ" Then N = N + 1

اخى العزيز/ ناصر سعيد شكرا لكلماتك الرقيقة اما بالنسبة للمطلوب غى المرفق التالى تعديل مواد الصف الثاني.rar

جرب المعادلة التالية TIME(HOUR(b1-a1);MINUTE( b1-a1 );SECOND( b1-a1 ))= أو TEXT(B1-A1;"hh:mm")=

جرب المرفق لعلة يفى بالغرض جمع الدرجات.rar

بارك الله فينا وفيك

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

ارجو ان يفى الملف التالى بالغرض السن فى 1-10.rar

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

اخى العزيز ناصر سعيد تشخيص المشكلة 90% من الحل وأنا شخصت المشكلة وشرحتها بالتفصيل وقدمت احد الحلول وتكت الملعب واسع لاحد الأخوة الزملاء يضعون فكرة اخرى للحل افضل من فكرتى الحل كان : باضافة عمود فارغ قبل عمود المجموع الكلى واخفيته

السلام عليكم ارجو ان يكون المطلوب بهذا الملف test.rar