مساعدة فى عمل دوائر للشهادات

[ابو اميرة]

الرجاء المساعدة فى كيفية عمل دوائر للشهادات وكيفية حذفها الملف بالرفقات

Book1.rar

[جلال محمد]

أخي الكريم أبو أميرة 

السلام عليكم 

شاهد المرفق هل هذا هو المطلوب ؟؟؟؟

Book1.rar

[محمد ابو البـراء]

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

مرحبا بالاستاذ الفاضل// أبو اميرة

كما اشكر الاستاذ // جلال محمد على محاولته

ولكن هذه الطريقة لن تصلح في الشهادات لان الدوائر الحمراء لم تتغير مع تغير الشهادات

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

وهي توضع في حدث الصفحة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 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
Dim c As Range
Dim MyRng As Range, V As Shape
Dim x As Integer, G As Integer, r As Integer
'================================================
G = 1      '    عمود رقم الجلوس
r = 13       '    صف الدرجات
Set MyRng = Range("D14:n44")  ' نطاق الخلايا الذي تريد اضافة الدوائر فيها
'================================================
x = ActiveWindow.Zoom
Application.ScreenUpdating = False
ActiveWindow.Zoom = 100
For Each c In MyRng
    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 = "غ" Or c.Value = "غـ") 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 = 3
        d = d + 1
    End If
1 Next
ActiveWindow.Zoom = x
Application.ScreenUpdating = True
End Sub

[ابو اميرة]

مشكور اخى الاستاذ محمد ابو البراء لكن الرجاء التطبيق على الملف المرفق ولك جزيل الشكر

ولك منى كل تقدير واحترام لمجهودك وجعله الله فى ميزان حسناتك

[محمد ابو البـراء]

بارك الله فيك أخي الكريم أبو اميرة

كنت سافعل ذلك منذ البداية

ولكني وجدت  الملف المرفق ليس به الا ورقة واحدة وهي ورقة الشهادات

وكان من المفروض ان تكون هناك ورقة الدرجات

فلهذا اقتصرت فقط على وضع الكود دون التنفيذ

لاننى لم استطع التجربة بشكل سليم..

[ابو اميرة]

السلام عليكم ورحمة الله وبركاته شاكر لفضلك جدا استاذ محمد ابو البراء على اهتمامك بالموضوع واليك المرفق بورقة الدرجات والشهادات

Book1.rar

[محمد على الجمال]

جهد مشكور وطيب من اعضاء المنتدى الراقى
لى طلب هو كيفية اظهار الشهادات كلها لتكون بشكل متتالى حيث انى مع دالة الفلوكاب تظهر عندى نموذج واحد واريد ان تظهر جميع الشهادات ولكم جزيل الشكر والتقدير

[محمد ابو البـراء]

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

الاستاذ الفاضل // أبو أميرة

تفضل الملف به ما اردت ولكن

ملحوظة : هذه الطريقة لعمل الدوائر انا عن نفسي لا افضلها فلها بعض المشاكل وثقل في الملف

الاستاذ الفاضل // محمد على الجمال

مرحبا بك معنا في أول مشاركة لحضرتكم

تشرفنا بك

واما الرد على سؤالك

فهذا الامر يتم تنفيذه عن طريق كود الطباعة

اي اننا نقوم بتصميم الصفحة الاولى كما نريد ان تظهر في الورقة الفعلية

ثم نقوم بجلب باقي الشهادات عن طريق الكود

ولفهم المزيد اليك هذا الرابط

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

Book1-bm.rar

[أم عبد الله]

الأستاذ الفاضل / محمد أبو البراء

 

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

 

جزاك الله خيراً على هذا المجهود الرائع جعله الله في ميزان حسناتك.ولكن لي تسائل هل بالضرورة عمل دوائر للفصل الدراسي الأول لأنه لا يوجد رسوب او نجاح في الترم الأول المهم آخر العام هذا ما نطبقه في المرحلة الثانوية هل في الابتدائي يختلف ؟ لا ادري أرجو إفادتي بذلك للمعرفة فقط.. لك كل التحية والتقدير.

[محمد ابو البـراء]

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

والدتي الفاضلة // أم عبد الله

وخيراً جزاك

وانا سوف اتحدث عما اعلمه _والدتي الكريمة _ وهو التعليم الاعدادي و_ اعتقد_  ان التعليم الابتدائي كذلك الامر _

ليس هناك شي اسمه نجاح ورسوب في الترم الاول ولكن من الممكن وضع التقدير ( دون المستوى ).

[جلال محمد]

 

 

جزاك الله خيراً على هذا المجهود الرائع جعله الله في ميزان حسناتك.ولكن لي تسائل هل بالضرورة عمل دوائر للفصل الدراسي الأول لأنه لا يوجد رسوب او نجاح في الترم الأول المهم آخر العام هذا ما نطبقه في المرحلة الثانوية هل في الابتدائي يختلف ؟ لا ادري أرجو إفادتي بذلك للمعرفة فقط.. لك كل التحية والتقدير.

 

وانا سوف اتحدث عما اعلمه _والدتي الكريمة _ وهو التعليم الاعدادي و_ اعتقد_  ان التعليم الابتدائي كذلك الامر _

ليس هناك شي اسمه نجاح ورسوب في الترم الاول ولكن من الممكن وضع التقدير ( دون المستوى ).

السلام عليكم 

بعد اذن اخي محمد 

كلام حضرتك تمام .... ولكن في المرحلة الثانوية 

الصف الأول توجد ( 6 ) مواد الطالب يؤدي امتحان نصف العام في ثلاثة منهم وآخر العام في الثلاثة الباقية 

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

علما انه يؤدي امتحانها في وقت امتحانات الدور الثاني 

تحياتي للجميع 

[ابو اميرة]

شكراً لمجهودك أخ محمد أبو البراء لكن أين زر وضع الدوائر وزر حذفها

وشكراً

مع ملاحظة أن الشهادة الأخيرة من كل صفحة لاتظهر بها الدوائر كاملة

وجعل الله هذا العمل فى ميزان حسناتك