مشكله فى شهادات اخر العام

[ADEL SAID]

السلام عليكم ورحمة الله وبركاته

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

ولكم جزيل الشكر

مرفق الملف

شهادات 1ع.rar

تم تعديل يناير 7, 2012 بواسطه ADEL SAID

[عبدالله المجرب]

السلام عليكم

تم اصلاح الخطاء

كما تم إضافة كود العلامة خبور لوضع الدوائر الحمراء

شهادات 1ع.rar

[ADEL SAID]

السلام عليكم

شكرا جزيلا استاذى الفاضل على المجهود الذى بذلته

واتمنى ان يكون فى ميزان حسناتك

ولى عند حضرتك نقطتين

1- ماهو الخطأ الذى وقعت فيه وتكرمت حضرتك وصلحته

2- طباعة الشهادات كاملة بالدوائر الحمراء

ولك منى جزيل الشكر ووافر الاحترام

تم تعديل يناير 8, 2012 بواسطه ADEL SAID

[ADEL SAID]

اريد دوائر حمراء

على الدرجة للطالب التى توجد فى الشهادة.

الراسب حسب القيمة الضعرى

ولكو جزيل الشكر

[دغيدى]

فضل اخى عادل

ولكن الشهادات تحتاج إلى تعديل المدى والأعمدة

[ADEL SAID]

شكرا يا استاذى / الفاضل الدوائر توجد فى شهادة والثانيه لاتوجد ارجو ا ان تكون الدوائر على كل الشهادات وشكر جزيلا

تم تعديل يناير 10, 2012 بواسطه ADEL SAID

[عبدالله المجرب]

السلام عليكم

لقد تم اضافة حل هنا

http://www.officena.net/ib/index.php?showtopic=40113

ولكنك قمت بفتح موضوع جديد لنفس الطلب

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

لذا

سيتم دمج المشاركتين

[عبدالله المجرب]

شكرا يا استاذى / الفاضل الدوائر توجد فى شهادة والثانيه لاتوجد ارجو ا ان تكون الدوائر على كل الشهادات وشكر جزيلا

على حد فهمي

في هذا الكود

Sub Circles2()

Dim C As Range

Dim MyRng As Range

Set MyRng = Range("B8:M8,B19:M19,B30:M30,B41:M41,B52:M52,B63:M63,B74:M74,B85:M85")

For Each C In MyRng

'    عمود رقم الجلوس هو العمود 2

    If Cells(C.Row, 2) = 0 Then GoTo 1

    If C.Value < Cells(7, C.Column) Or C.Value = "غ" Or C.Value = "غـ" Then

	    Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left, C.Top, C.Width, C.Height)

	    V.Fill.Visible = msoFalse

	    V.Line.ForeColor.SchemeColor = 10

	    V.Line.Weight = 1.25

    End If

1 Next

End Sub

استبدله بهذا

Sub Circles2()

Dim C As Range

Dim MyRng As Range

Set MyRng = Range("B8:M8,B19:M19,B30:M30,B41:M41,B52:M52,B63:M63,B74:M74,B85:M85")

For Each C In MyRng

'    عمود رقم الجلوس هو العمود 2

    If C.Value < Cells(7, C.Column) Or C.Value = "غ" Or C.Value = "غـ" Then

	    Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left, C.Top, C.Width, C.Height)

	    V.Fill.Visible = msoFalse

	    V.Line.ForeColor.SchemeColor = 10

	    V.Line.Weight = 1.25

    End If

1 Next

End Sub

[ADEL SAID]

شكرا

وجارى التنفيذ

تم تعديل يناير 11, 2012 بواسطه ADEL SAID

[ADEL SAID]

اخى أبو احمد

لقد غيرت الكود

ونفذ وبعد ذلك لم ينفذ

ولم استطع علاج الموقف

اليك الشهادة

واسف لتكرار طلبى