اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر (معدل)

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

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

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

مرفق الملف

شهادات 1ع.rar

تم تعديل بواسطه ADEL SAID
قام بنشر (معدل)

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

قام بنشر (معدل)

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

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

قام بنشر

اخى أبو احمد

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

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

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

اليك الشهادة

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information