وضع دوائر حمراء فى خلايا معينة بالدور الثانى

[طائع]

ارجو من السادة الزملاء ان ينال طلبى اهتمام سيادتكم

 

المطلوب بالمرفق

 

دور ثان.rar

تم تعديل يوليو 23, 2015 بواسطه طائع

[أيمن ابراهيم]

اتفضل اخى الفاضل وأتمنى من الله بأن يكون هو المطلوب 

دور ثان_1.rar

[طائع]

جزاك الله خيرا وشكرا على اهتمامك ولكن

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

مثال الطالب الثانى رسب عربى ودين وغاب فى الدور الثانى 

المطلوب وضع دائرة ايضا فى الدور الثانى 

تم تعديل يوليو 23, 2015 بواسطه طائع

[ياسر خليل أبو البراء]

الأخ الفاضل طائع

جرب الكود بهذا الشكل

Sub Circles1()
    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 = 2     '    عمود رقم الجلوس
    R = 11      '    صف الدرجات
    Set MyRng = Range("O12:CQ132")  ' نطاق الخلايا الذي تريد اضافة الدوائر فيها
    '================================================
    X = ActiveWindow.Zoom
    Application.ScreenUpdating = False
    ActiveWindow.Zoom = 100
    For Each C In MyRng
        If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "غ" Or C.Value = "صفر") And Not IsEmpty(C.Value) Then
            Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 1, C.Height - 1)
            V.Fill.Visible = msoFalse
            'لون الدائرة
            V.Line.ForeColor.SchemeColor = 10
            'سمك خط الدائرة
            V.Line.Weight = 1.9
            D = D + 1
        End If
    Next
    ActiveWindow.Zoom = X
    Application.ScreenUpdating = True
    MsgBox "تم إضافة   " & D & "   دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله"
End Sub

Sub RemoveCircles1()
    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 "تم حذف   " & D & "   دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله"
End Sub

[طائع]

ياللروعة بارك الله فيك استاذ ياسر ولكن هناك ملحوظة بسيطة 

هناك طالب لم يكن راسب مثلا فى مادة من  المواد فى الدور الأول ولكن من خلال ربط ورق العمل مع بعضه يظهر ( 0 ) فى الدرجة الفعلية وهذا مخالف فالكود يقرأ ال ( 0 ) كأنه درجة  أقل من المطلوب للنجاح 

لو أمكن النظر لهذه الملاحظة ((( مهمة جدا ))) لأنها ستجعل الناجح فى الدور الأول راسب فى الدور الثانى 

مثال __ الطالبة رقم 5 فى مادة العربى هى لم ترسب فى هذه المادة فى الدور الأول ولذلك لن يرصد لها فى الدور الثانى ولكن يوجد دائرة حمراء لأن الخلية موجود بها (0) 

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

لعلى اوصلت المعلومة

تم تعديل يوليو 23, 2015 بواسطه طائع

[ياسر خليل أبو البراء]

بدون الإطلاع مرة أخرى على الملف

تذكر أن الناتج يكون صفر نتيجة ربط أوراق العمل

إذا كان الرابط بمعادلة يمكنك التعديل في المعادلة بحيث يظهر فراغ وليس صفر ..

جرب تغير في المعادلات وحاول ..

أعتذر لضيق الوقت لن أستطيع الإطلاع على المرفق الآن

[طائع]

شكرا على توجيهك استاذى ياسر وجزاك الله خيرا

تبقى طلب صغير 

اذا كانت بالخلية  ( غ ) لا يضع الكود دائرة حمراء  

الرجاء تعديل هذه الملاحظة لكى يكتمل العمل 

وشكرا

[ياسر خليل أبو البراء]

أخي الكريم طائع الملحوظة ليست في محلها

جربت الكود مرة أخرى ووضعت بيان الـ غ في خلايا مختلفة في الأعمدة التي يتعامل معها الكود والكود يضع دوائر حمراء بها

يرجى مراجعة النتائج بشكل جيد

[Hosni2013]

جهد مميز جزاك الله خيرا

[طائع]

شكرا جزيلا اخى ياسر واستاذىى 

فعلا الخطأ كان من نقلى للكود من هنا نقل معى اللغة العربية هكذا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ وبالتالى جعل ال غ   ؟  وجعل ال صفر  ؟؟؟ 

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

اشكرك وتعلمت منك الكثير 

جزاك الله خيرا

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات

ومشكور على إنهاء الموضوع بالشكل المناسب وعلى الضغط على كلمة "أعجبني هذا"

 

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