Jump to content

Recommended Posts

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

Share this post


Link to post
Share on other sites

السلام عليكم

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

بن علية حاجي

  • Like 3

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

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

Share this post


Link to post
Share on other sites
Posted (edited)

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

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

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

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

 

Edited by احمد بدره
  • Like 1
  • Thanks 1

Share this post


Link to post
Share on other sites

السلام عليكم

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

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

بن علية حاجي

  • Like 2
  • Thanks 1

Share this post


Link to post
Share on other sites

أحسنت أستاذ بن علية عمل ممتاز جعله الله في ميزان حسناتك ورحم الله والديك

  • Like 1

Share this post


Link to post
Share on other sites

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

لك تحياتى

Share this post


Link to post
Share on other sites
Posted (edited)

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

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

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

و تقبل تحياتى

Edited by يوسف عطا

Share this post


Link to post
Share on other sites

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

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

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

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

image.png.c2bdd4d0e01ae6d23aa3e96980d65529.png

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

  • Like 1
  • Thanks 1

Share this post


Link to post
Share on other sites

الف شكر استاذنا الفاضل أحمد بدرة
جارى التحميل و التجربة

Share this post


Link to post
Share on other sites

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

بعد التحية

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

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

image.png.7c093a07a9ffca322d63b502d540a9e7.png

Share this post


Link to post
Share on other sites
Posted (edited)

 

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

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

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

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

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

Edited by احمد بدره
  • Thanks 2

Share this post


Link to post
Share on other sites

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

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

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

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

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

و تقبل تحياتى

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

بن علية حاجي

  • Thanks 2

Share this post


Link to post
Share on other sites
9 hours ago, احمد بدره said:

 

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

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

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

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

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

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

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

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

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

بن علية حاجي

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

Share this post


Link to post
Share on other sites
Posted (edited)
19 hours ago, احمد بدره said:

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

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

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

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

Edited by يوسف عطا

Share this post


Link to post
Share on other sites

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

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

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

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

  • Thanks 1

Share this post


Link to post
Share on other sites

جازاك الله خيراً

 

Share this post


Link to post
Share on other sites
Posted (edited)
On 4/23/2019 at 6:57 AM, احمد بدره said:

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

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

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

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

Edited by يوسف عطا

Share this post


Link to post
Share on other sites

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

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

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

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

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

image.png.9682840dc4f5e0c6e4393dc90674a31a.png

تم التعديل

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

  • Thanks 1

Share this post


Link to post
Share on other sites

الف شكر يا استاذنا الغالى المحترم

Share this post


Link to post
Share on other sites
في ٢٧‏/٤‏/٢٠١٩ at 22:56, احمد بدره said:

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

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

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

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

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

image.png.9682840dc4f5e0c6e4393dc90674a31a.png

تم التعديل

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

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

Share this post


Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...