اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

مرفق الملف

شهادات 1ع.rar

تم تعديل بواسطه ADEL SAID
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

تم تعديل بواسطه 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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information