يوسف عطا قام بنشر أبريل 18, 2019 قام بنشر أبريل 18, 2019 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 الكود كان يعمل فى ملف آخر نقلته للملف الحالى قمت بتعديل طفيف فى شكل الشهادة أصبح الكود يعمل فى الشهادة السفلى و لا يعمل فى الشهادة العليا ولا الوسطى مرفق شكل الشهادة كصورة مع ملاحظة إن الأسطر اللى تحت الدوائر هيتعملها إخفاء وقت الطباعة
بن علية حاجي قام بنشر أبريل 18, 2019 قام بنشر أبريل 18, 2019 السلام عليكم الكود ببساطة يقوم بحذف كل الدوائر الحمراء ثم يعيد إدراجها حسب الشروط (مقارنة علامة الطالب بعلامة النهاية الصغرى) التي وضعتها في كل سطر خاص بـ "علامة الطالب" لكل شهادة وذلك باستعمال خاصية "التحقق من الصحة" Validation... والسبب، باعتقادي، على عدم ظهور الدوائر الحمراء في الشهادتين الأولى والثانية هو أنه قد تم إلغاء خاصية "التحقق من الصحة" في هاتين الشهادتين في السطر الخاص بـ "علامة الطالب"... لا يمكن التحقق من صحة كلامي إلا بإرفاق الملف المعني وليس بصورة من صفحة الشهادات... والله أعلى وأعلم بن علية حاجي 3
يوسف عطا قام بنشر أبريل 18, 2019 الكاتب قام بنشر أبريل 18, 2019 راجعت التحقق من الصحة فى الشهادتين الأولى و الثانية ووجدتهما مطابقتان للثالثة الملف كبير وعند ضغطه يظل أكبر من قدرة الرفع على المنتدى سأرفعه على موقع خارجى و أرسل اللينك لمعاليكم بن علية بك استاذنا الكبير
يوسف عطا قام بنشر أبريل 19, 2019 الكاتب قام بنشر أبريل 19, 2019 تفضل اللينك يا أستاذنا الغالى https://www.4shared.com/rar/W5xlOTYQda/_____.html حيث أن الملف المضغوط أكثر من 4 ميجا ولم أستطع تحميله على سيرفر المنتدى
احمد بدره قام بنشر أبريل 19, 2019 قام بنشر أبريل 19, 2019 (معدل) بعد إذن أستاذنا الجليل بن علية ممكن تجرب الكودين لإضافة الدوائر وحذفها بدلاً من الكود السابق مع ملاحظة أن كود إضافة الدوائر يقوم بحذف الدوائر السابقة قبل إضافة الدوائر الجديدة تلقائيًا فبمجرد تشغيله لا تحتاج لتشغيل كود حذف الدوائر 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 تم تعديل أبريل 19, 2019 بواسطه احمد بدره 1 1
بن علية حاجي قام بنشر أبريل 20, 2019 قام بنشر أبريل 20, 2019 السلام عليكم تم عمل المطلوب بتصحيح خاصية "التحقق من الصحة" وبعض المعادلات... مع ملاحظة أن عملية إضافة الدوائر الحمراء تمت في صفحة "شهادات آخر العام" ولم أجد صفحة شهادات "نتيجة امتحان الدور الأول" مثل ما وضعت في الصورة بالأعلى... رابط الملف المعدل على ميديافاير: تصحيح إدراج الدوائر الحمراء بن علية حاجي 3 1
Ali Mohamed Ali قام بنشر أبريل 20, 2019 قام بنشر أبريل 20, 2019 أحسنت أستاذ بن علية عمل ممتاز جعله الله في ميزان حسناتك ورحم الله والديك 2
يوسف عطا قام بنشر أبريل 20, 2019 الكاتب قام بنشر أبريل 20, 2019 الأستاذ الغالى أحمد بك بدرة للأسف الكود اللى حضرتك أرفقته لا يلبى إحتياجاتى لأنه يضع الدوائر إعتماداً على درجة النجاح و ربما تكون الطالبة حصلت على درجة النجاح أو أعلى لكنها راسبة لأنها لم تحصل على تلت درجة التحريرى فى المادة وبالتالى فتكون راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح الف شكر لك تحياتى
يوسف عطا قام بنشر أبريل 20, 2019 الكاتب قام بنشر أبريل 20, 2019 (معدل) الأخ الغالى بن علية حاجى حفظه الله بخصوص وضع الدوائر من الخطأ أن يكون وضع الدائرة مرتبط فقط بالدرجة لأن فى بعض الحالات تكون الطالبة راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح لأنها لم تستوف شرط تلت درجة التحريرى و جازاكم الله خير و تقبل تحياتى تم تعديل أبريل 20, 2019 بواسطه يوسف عطا
احمد بدره قام بنشر أبريل 22, 2019 قام بنشر أبريل 22, 2019 جرب الملف هذا تجد فيه المطلوب إذا كان هو المطلوب أولاً تقوم بنسخ الموديول بالكامل أي ماكرو الدوائر وماكرو حذف الدوائر وتضعهما في موديول في ملفك ثانيًا إتقوم بحذف ورقة العمل شهادات آخر العام ثم في الملف المرفق إلى ورقة العمل شهادات آخر العام واضغط كليك يمين تأتي قائمة اختر نقل أو نسخ ثم اتبع الصورة المرفقة دوائر الشهادات.rarFetching info... 1 1
يوسف عطا قام بنشر أبريل 22, 2019 الكاتب قام بنشر أبريل 22, 2019 الف شكر استاذنا الفاضل أحمد بدرة جارى التحميل و التجربة
يوسف عطا قام بنشر أبريل 22, 2019 الكاتب قام بنشر أبريل 22, 2019 أخونا الغالى أحمد بدرة بعد التحية عند محاولة فك الضغط عن الملف تظهر الرسالة التالية ولا يتم فك ضغط الملف
احمد بدره قام بنشر أبريل 22, 2019 قام بنشر أبريل 22, 2019 (معدل) تم رفع الملف مرة أخرى وإن كان لا يعمل يمكن يكون السبب برنامج فك الضغط لديك إصداره قديم فيجب تحديثة أو تسطيب نسخة أحدث من برنامج فك الضغط ملحوظة قم بتحميل الملف الذي قم برفعه صباحًا وقم بفتحه فاشتغل ولا يوجد مشاكل والمشكلة أن حجم الملف بدون ضغط أكثر من 4 ميجا دوائر الشهادات.rarFetching info... تم تعديل أبريل 22, 2019 بواسطه احمد بدره 2
بن علية حاجي قام بنشر أبريل 22, 2019 قام بنشر أبريل 22, 2019 السلام عليكم ورحمة الله في 20/4/2019 at 18:49, يوسف عطا said: الأخ الغالى بن علية حاجى حفظه الله بخصوص وضع الدوائر من الخطأ أن يكون وضع الدائرة مرتبط فقط بالدرجة لأن فى بعض الحالات تكون الطالبة راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح لأنها لم تستوف شرط تلت درجة التحريرى و جازاكم الله خير و تقبل تحياتى Expand ما عليك إلا تعديل "التحقق من الصحة" حسب ما تريد وسيعمل الكود بإذن الله... بن علية حاجي 2
يوسف عطا قام بنشر أبريل 23, 2019 الكاتب قام بنشر أبريل 23, 2019 في 22/4/2019 at 14:55, احمد بدره said: تم رفع الملف مرة أخرى وإن كان لا يعمل يمكن يكون السبب برنامج فك الضغط لديك إصداره قديم فيجب تحديثة أو تسطيب نسخة أحدث من برنامج فك الضغط ملحوظة قم بتحميل الملف الذي قم برفعه صباحًا وقم بفتحه فاشتغل ولا يوجد مشاكل والمشكلة أن حجم الملف بدون ضغط أكثر من 4 ميجا دوائر الشهادات.rar 585.15 kB · 0 downloads Expand هجرب تانى الف شكر في 22/4/2019 at 20:24, بن علية حاجي said: السلام عليكم ورحمة الله ما عليك إلا تعديل "التحقق من الصحة" حسب ما تريد وسيعمل الكود بإذن الله... بن علية حاجي Expand جارى التغيير الف شكر
احمد بدره قام بنشر أبريل 23, 2019 قام بنشر أبريل 23, 2019 إليك الملف غير مضغوط دوائر الشهادات1.xlsFetching info... 1
يوسف عطا قام بنشر أبريل 24, 2019 الكاتب قام بنشر أبريل 24, 2019 (معدل) في 23/4/2019 at 04:57, احمد بدره said: إليك الملف غير مضغوط دوائر الشهادات1.xls 1.97 MB · 0 downloads Expand الف شكر أستاذنا الكبير بالفعل الملف المرسل يعمل جيداً جارى إستبدال الصفحة بصفحة مماثلة لكن إسمح لى بسؤال الخطأ كان فين ؟؟ تم تعديل أبريل 24, 2019 بواسطه يوسف عطا
احمد بدره قام بنشر أبريل 24, 2019 قام بنشر أبريل 24, 2019 العفو أستاذنا الفاضل إذا كنت تقصد خطأ عدم تشغيل الملف المضغوط فهو أن نسخ برنامج فك الضغط قديمة أما إذا كنت تقصد عدم إضافة الدوائر للطالب الذي مجموعه أكبر من النهاية الصغري ولكن راسب في ورقة الامتحان فالكود كان بحتاج شرط آخر وهو أن الطالب إذا كان رسب في ورقة الامتحان في مادة أو مواد توضع دائرة 1
يوسف عطا قام بنشر أبريل 27, 2019 الكاتب قام بنشر أبريل 27, 2019 (معدل) في 23/4/2019 at 04:57, احمد بدره said: إليك الملف غير مضغوط دوائر الشهادات1.xls 1.97 MB · 1 download Expand الأستاذ الكبير أحمد بك حفظه الله عندما أدرجت الصفحة فى الملف يبدو أنه حدث تضارب بين البيانات الصفحة تعمل جيداً بمفردها لكن بوضعها فى الملف اصبحت الدرجات مش مظبوطة المهم هذا لينك للملف كامل الرجاء عمل اللازم فيه لكى تعمل الدوائر فى الشهادات جيداً و الف شكر مقدماً الملف المطلوب تظبيطه تم تعديل أبريل 27, 2019 بواسطه يوسف عطا
احمد بدره قام بنشر أبريل 27, 2019 قام بنشر أبريل 27, 2019 لكي يتم إدراج ورقة العمل وتعمل جيدً بدون أي مشاكل يجب بالإضافة للخطوات السابق ذكرها من قبل يتفضل مشكلتين وحلولهما سهل المشكلتين بحث الاسم و بحث رقم الجلوس والحلول كما بالصورة تم التعديل الرابط https://mab.to/bQbPUgyJ8 1
وجيه شرف الدين قام بنشر أبريل 29, 2019 قام بنشر أبريل 29, 2019 في 27/4/2019 at 20:56, احمد بدره said: لكي يتم إدراج ورقة العمل وتعمل جيدً بدون أي مشاكل يجب بالإضافة للخطوات السابق ذكرها من قبل يتفضل مشكلتين وحلولهما سهل المشكلتين بحث الاسم و بحث رقم الجلوس والحلول كما بالصورة تم التعديل الرابط https://mab.to/bQbPUgyJ8 Expand جزاكم الله خير على هذا المجهود الرائع والمبذول
الردود الموصى بها