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

الرجاء شرح هذا الكود


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

Private Sub Worksheet_Calculate()
Dim DataRange As Range
        Dim C As Range
        Dim count As Integer
        Dim o As Shape
        On Error GoTo errhandler
        For Each o In ActiveSheet.Shapes
           If o.Name Like "InvalidData_*" Then o.Delete
          Next
          Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation)
         count = 0
          For Each C In DataRange
           If Not C.Validation.Value Then
                   Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 3, C.Height - 3)
                   o.Fill.Visible = msoFalse
                   o.Line.ForeColor.SchemeColor = 10
                   o.Line.Weight = 2
                   count = count + 1
                   o.Name = "InvalidData_" & count
           End If
   Next
   Exit Sub
errhandler:
End Sub

الكود كان يعمل فى ملف آخر
نقلته للملف الحالى 

قمت بتعديل طفيف فى شكل الشهادة

أصبح الكود يعمل فى الشهادة السفلى و لا يعمل فى الشهادة العليا ولا الوسطى

مرفق شكل الشهادة كصورة

مع ملاحظة إن الأسطر اللى تحت الدوائر هيتعملها إخفاء وقت الطباعة

image.png.6be1aa75b1d74a7bddf576f20bf67af1.png

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

السلام عليكم

الكود ببساطة يقوم بحذف كل الدوائر الحمراء ثم يعيد إدراجها حسب الشروط (مقارنة علامة الطالب بعلامة النهاية الصغرى) التي وضعتها في كل سطر خاص بـ "علامة الطالب" لكل شهادة وذلك باستعمال خاصية "التحقق من الصحة" Validation... والسبب، باعتقادي، على عدم ظهور الدوائر الحمراء في الشهادتين الأولى والثانية هو أنه قد تم إلغاء خاصية "التحقق من الصحة" في هاتين الشهادتين في السطر الخاص بـ "علامة الطالب"... لا يمكن التحقق من صحة كلامي إلا بإرفاق الملف المعني وليس بصورة من صفحة الشهادات... والله أعلى وأعلم

بن علية حاجي

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

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

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

تفضل اللينك يا أستاذنا الغالى
https://www.4shared.com/rar/W5xlOTYQda/_____.html

حيث أن الملف المضغوط أكثر من 4 ميجا ولم أستطع تحميله على سيرفر المنتدى

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

بعد إذن أستاذنا الجليل بن علية

ممكن تجرب الكودين  لإضافة الدوائر  وحذفها  بدلاً من الكود السابق

مع ملاحظة أن كود إضافة الدوائر يقوم بحذف الدوائر السابقة قبل إضافة الدوائر الجديدة تلقائيًا  فبمجرد تشغيله لا تحتاج لتشغيل كود حذف الدوائر

Sub دوائر()
'   رسم شكل بيضاوى
Application.ScreenUpdating = False
حذف_دوائر
Dim c As Range
Dim MyRng As Range, V As Shape
Dim x As Integer, G As Integer, r As Integer, d As Integer
'================================================
G = 4
r = 15
Set MyRng = Range("E16:O16,E30:O30,E44:O44")
'================================================
x = ActiveWindow.Zoom

ActiveWindow.Zoom = 100
For Each c In MyRng
    If Cells(c.Row, G) = 0 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 = "غ") Then
        Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 1, c.Height - 1)
        V.Fill.Visible = msoFalse
        V.Line.ForeColor.SchemeColor = 2
        V.Line.Weight = 2
        d = d + 1
    End If
1 Next
ActiveWindow.Zoom = x
Application.ScreenUpdating = True
End Sub
Sub حذف_دوائر()
 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
End Sub

 

تم تعديل بواسطه احمد بدره
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

تم عمل المطلوب بتصحيح خاصية "التحقق من الصحة" وبعض المعادلات... مع ملاحظة أن عملية إضافة الدوائر الحمراء تمت في صفحة "شهادات آخر العام" ولم أجد صفحة شهادات "نتيجة امتحان الدور الأول" مثل ما وضعت في الصورة بالأعلى...

رابط الملف المعدل على ميديافاير: تصحيح إدراج الدوائر الحمراء

بن علية حاجي

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

الأستاذ الغالى أحمد بك بدرة
للأسف الكود اللى حضرتك أرفقته لا يلبى إحتياجاتى لأنه يضع الدوائر إعتماداً على درجة النجاح و ربما تكون الطالبة حصلت على درجة النجاح أو أعلى لكنها راسبة لأنها لم تحصل على تلت درجة التحريرى فى المادة وبالتالى فتكون راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح
الف شكر

لك تحياتى

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

الأخ  الغالى بن علية حاجى
حفظه الله

بخصوص وضع الدوائر

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

و تقبل تحياتى

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

جرب الملف هذا تجد فيه المطلوب

إذا كان هو المطلوب

  أولاً تقوم بنسخ الموديول بالكامل أي ماكرو الدوائر وماكرو حذف الدوائر وتضعهما في موديول في ملفك

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

image.png.c2bdd4d0e01ae6d23aa3e96980d65529.png

دوائر الشهادات.rar

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

أخونا الغالى أحمد بدرة

بعد التحية

عند محاولة فك الضغط عن الملف تظهر الرسالة التالية

ولا يتم فك ضغط الملف

image.png.7c093a07a9ffca322d63b502d540a9e7.png

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

 

تم رفع الملف مرة أخرى

وإن كان لا يعمل يمكن يكون السبب برنامج فك الضغط لديك إصداره قديم فيجب تحديثة أو تسطيب نسخة أحدث من برنامج فك الضغط

ملحوظة قم بتحميل الملف الذي قم برفعه صباحًا وقم بفتحه فاشتغل ولا يوجد مشاكل 

والمشكلة أن حجم الملف بدون ضغط أكثر من 4 ميجا

دوائر الشهادات.rar

تم تعديل بواسطه احمد بدره
  • Thanks 2
رابط هذا التعليق
شارك

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

في ٢٠‏/٤‏/٢٠١٩ at 20:49, يوسف عطا said:

الأخ  الغالى بن علية حاجى
حفظه الله

بخصوص وضع الدوائر

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

و تقبل تحياتى

ما عليك إلا تعديل "التحقق من الصحة" حسب ما تريد وسيعمل الكود بإذن الله...

بن علية حاجي

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

9 hours ago, احمد بدره said:

 

تم رفع الملف مرة أخرى

وإن كان لا يعمل يمكن يكون السبب برنامج فك الضغط لديك إصداره قديم فيجب تحديثة أو تسطيب نسخة أحدث من برنامج فك الضغط

ملحوظة قم بتحميل الملف الذي قم برفعه صباحًا وقم بفتحه فاشتغل ولا يوجد مشاكل 

والمشكلة أن حجم الملف بدون ضغط أكثر من 4 ميجا

دوائر الشهادات.rar 585.15 kB · 0 downloads

هجرب تانى
الف شكر

3 hours ago, بن علية حاجي said:

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

ما عليك إلا تعديل "التحقق من الصحة" حسب ما تريد وسيعمل الكود بإذن الله...

بن علية حاجي

جارى التغيير
الف شكر

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

19 hours ago, احمد بدره said:

إليك الملف غير مضغوط

دوائر الشهادات1.xls 1.97 MB · 0 downloads

الف شكر أستاذنا الكبير

بالفعل الملف المرسل يعمل جيداً
جارى إستبدال الصفحة بصفحة مماثلة
لكن إسمح لى بسؤال
الخطأ كان فين ؟؟

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

العفو أستاذنا الفاضل

إذا كنت تقصد خطأ عدم تشغيل الملف المضغوط فهو أن نسخ برنامج فك الضغط قديمة

أما إذا كنت تقصد عدم إضافة الدوائر للطالب الذي مجموعه أكبر من النهاية الصغري ولكن راسب في ورقة الامتحان

فالكود كان بحتاج شرط آخر وهو أن الطالب إذا كان رسب في ورقة الامتحان في مادة أو مواد توضع دائرة

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

On 4/23/2019 at 6:57 AM, احمد بدره said:

إليك الملف غير مضغوط

دوائر الشهادات1.xls 1.97 MB · 1 download

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

الملف المطلوب تظبيطه

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

لكي يتم إدراج ورقة العمل  وتعمل جيدً بدون أي مشاكل

يجب بالإضافة للخطوات السابق ذكرها من قبل

يتفضل مشكلتين وحلولهما سهل

المشكلتين بحث الاسم و بحث رقم الجلوس

والحلول كما بالصورة

image.png.9682840dc4f5e0c6e4393dc90674a31a.png

تم التعديل

الرابط https://mab.to/bQbPUgyJ8

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

في ٢٧‏/٤‏/٢٠١٩ at 22:56, احمد بدره said:

لكي يتم إدراج ورقة العمل  وتعمل جيدً بدون أي مشاكل

يجب بالإضافة للخطوات السابق ذكرها من قبل

يتفضل مشكلتين وحلولهما سهل

المشكلتين بحث الاسم و بحث رقم الجلوس

والحلول كما بالصورة

image.png.9682840dc4f5e0c6e4393dc90674a31a.png

تم التعديل

الرابط https://mab.to/bQbPUgyJ8

جزاكم الله خير على هذا المجهود الرائع والمبذول

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

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

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

Important Information