بوحماد

للرفع

UP

up

المطلوب: 1- الطالب المستجد عندما يرسب فى اكثر من ثلاث مواد يبقى اللاعادة اى يرسب فى السنة وذا راسب فى اقل من اوب\يساوى 3 مواد له دور ثانى 2- الطالب المعيد : اكثر من 3 مواد او اقل من ثلا ث مواد لد دور تكميلى فى كل الاحوال الجدول المرفق يظهر اى طالب لة دور ثانى فى الصفحة الاولى يوجد فيها اسم الطالب وامعيد او مستجد وكاذلك فى الصفحة الاولى هناك صفوف مخفية ارجو اظهارها عندى التعديل حتى تتمكن من وضع المعادلة فى مكتنها الصحيح؟؟؟؟ تحياتى

نامل منكم المساعدة فى تعديل المف الخص بشيت المدارسة المطلوب اى الشرح فى الصفحة الاولى 5.rar

مشكورررررررررررررر

مشكور

مشكوررررررر استاذناkemas على راد السريع وبارك الله فيك

هذا هو الكود Sub Start_Circles() Dim C As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, D As Integer '================================================ G = 5 ' &Uacute;&atilde;&aelig;&Iuml; &atilde;&Igrave;&atilde;&aelig;&Uacute; &Ccedil;&aacute;&Yacute;&Otilde;&aacute;&iacute;&auml; R = 13 ' &Otilde;&Yacute; &Ccedil;&aacute;&Iuml;&Ntilde;&Igrave;&Ccedil;&Ecirc; Set MyRng = Range("g17:ar1000") ' &auml;&Oslash;&Ccedil;&THORN; &Ccedil;&aacute;&Icirc;&aacute;&Ccedil;&iacute;&Ccedil; &Ccedil;&aacute;&ETH;&iacute; &Ecirc;&Ntilde;&iacute;&Iuml; &Ccedil;&Ouml;&Ccedil;&Yacute;&Eacute; &Ccedil;&aacute;&Iuml;&aelig;&Ccedil;&AElig;&Ntilde; &Yacute;&iacute;&aring;&Ccedil; '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False Call Remove_Circles ActiveWindow.Zoom = 100 For Each C In MyRng If Cells(C.Row, G) <> "&atilde;&Igrave;&atilde;&aelig;&Uacute; &Ccedil;&aacute;&Yacute;&Otilde;&aacute;&iacute;&auml; " Then GoTo 1 If Cells(C.Row, G) = 0 Or Cells(C.Row, G) = " " Then GoTo 1 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "&Ucirc;" Or C.Value = "&Ucirc;&Uuml;") And C.Value <> "" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 2 D = D + 1 End If 1 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "&Ecirc;&atilde; &Aring;&Ouml;&Ccedil;&Yacute;&Eacute; " & D & " &Iuml;&Ccedil;&AElig;&Ntilde;&Eacute; &Egrave;&auml;&Igrave;&Ccedil;&Iacute;", vbMsgBoxRtlReading, "&Ccedil;&aacute;&Iacute;&atilde;&Iuml;&aacute;&aacute;&aring;" Set MyRng = Nothing End Sub Sub Remove_Circles() Dim shp As Shape, D As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: D = D + 1 Next shp 'MsgBox "&Ecirc;&atilde; &Iacute;&ETH;&Yacute; " & D & " &Iuml;&Ccedil;&AElig;&Ntilde;&Eacute; &Egrave;&auml;&Igrave;&Ccedil;&Iacute;", vbMsgBoxRtlReading, "&Ccedil;&aacute;&Iacute;&atilde;&Iuml;&aacute;&aacute;&aring;" End Sub

مساعدة فى تعديل كود الدوئر اكود يعمل تمام لاكن فية مشكلة بسيطة وهى وضع الدوئر على الاسطر التى لايوجد فيها بيانات نريد لايوضع دوئر عندما لايوجد بيانات للطالب ستلاحظ فى المرفق الدوئر الموجودة على القيمة الصفر مرفق الملف 61.rar

مشكور وبارك الله فيك

مشكور استاذنا kemas

مشكورر استاذنا ومشرفنا وبارك الله

للرفع

مشكور مشرفنا خبور خير على توصلك معى الدوئر ضبط معى مائة فى المائة ولاكن ياريت تكمل معى فى خانتين وهى التقدير ونتيجة الطالب لقدوضع شرح فى الملف نريد وضع التقدير لطالب وهذا هو الجدول وهو مجموع درجات الطالب الذى علما بأن يوضع فى الخلية رقم aa5 من الى 520 575 مقبول 676 779 جيد 780 883 جيد جدا 884 فما فوق ممتاز ونريد وضع نتيجة الطالب فى الخلية ae1 لة دورثان فى الرياضيات ؟؟الى خرالمواد او ناجح مشكوررر وان فى نتظار ردك عليا 66.rar

الدوئر توضع على محموع امتحنى الفصلين وا المجموع لاكن بشروط رفقت لك استاذنا ملف فية شرح وشكر على هتمامك تحياتى 660.rar

شرح الدالة قد شرح احد الاخون فى هذا المنتدى وهو كالاتى ARBNum2Text(A1;3;4;"dinar";"dinars";"dirham";"dirhams رقم 3 يحدد عدد الأرقام بعد الفاصلة رقم 4 يحدد ما يلي: طريقة عرض الأجزاء من العملة 1 0.5 2 50/100 3 50 درهم 4 خمسون درهم

شوف الملف المرفق حول ان تعدل بنفسك فى بعض التعديلات مثل الجنية لانها بسيطة تحياتى Book125.rar

السلام عليكم علامة (-) توضع فى حالة مجموع امتحانى الفصلين لم يصل الدرحجة الصغرة اى راسب اى فى مادة الرياضيات 67 اذ متحصل درجة 67 فى الرياضيات توضع هذة العلامة فى المجوع واذ تحصل ولم تصل دراجة الطالب الى مجموع الدرجة الصغرة التى مادة الرياضيات 120 يوضع المجموع الذى تحصل علية فى خانة المجموع وتوضع دئرة علية ملاحظة اذ كانت المعادلة فيها اى خطاء الرجاء تعديلها

مشكورر على رادك السريع مشرفنا خبور خير نريد ان يضع دائرة فى حالة مايصل الى مجموع النهاية الصغرة مثلا فى مادة الرياضيات عندما يكون ناحج اى مجموع امتحانى الفصلين تحصل الطالب على درجة 67 + اعمال السنة50 تساوى 117 لم يصل على الدرجة الصغرة وهى 120 فى هذة الحالة يضاف دئرة على المجموع فقط ان شالله قد وضحت لك انا فى الانتظار

استاذنا خبور خير هل عندما نريد نوضع دوئر على المجموع كل مادة نضع سطر If Cells(C.Row, H) <> "المجموع" Then GoTo 1 نريد الدوئر على "مجموع امتحاني الصلين وكذلك المجموع

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

شوف الملف المرفق ممكن هو طلبك علما بانة مدرج به دولة عديدة فى التفقيط Book125.rar

للرافع

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