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

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


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

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

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

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

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

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

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

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
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تشرفنا بك

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

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

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

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

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

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

Book1-bm.rar

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

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

 

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

 

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

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

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

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

وخيراً جزاك

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

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

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

 

 

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

 

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

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

السلام عليكم 

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

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

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

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

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

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

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

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

وشكراً

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

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

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

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