علي بطيخ سالم

هل يمكن تعديل هذا الكود لإعطاءه درجة صغرى يعتمد عليها في الدوائر الحمراء لكل عمود لأن الدرجات متفاوتة في كل مرة وكيف لي أن أجعل لون الدوائر أسود بدلاً من أحمر Sub Circles() 'åÐÇ ÇáßæÏ ááãÍÊÑã ÇáäÇÈÛå ÒíÒæ ÇáÚÌæÒ 'ÇáåÏÝ ãä ÇáßæÏ åæ æÖÚ ÏæÇÆÑ Úáì ÏÑÌÇÊ Ýí ÇÚãÏå ãÚíäå 'Êã åÐÇ ÇáßæÏ Ýí 19/5/2017 'ÇÓÊÏÚÇÁ ßæÏ ÇáãÓÍ ÇæáÇ Call DeletingShp 'ãÊÛíÑÇÊ Dim ws As Worksheet Dim Arr() As Variant Dim LR As Long, R As Long, i As Long Dim Cel As Range 'ÇÓã ÕÝÍå ÇáÚãá Set ws = Sheets("ÔíÊ") ' åÐÇ ÔÑØ ÇáÇ íÚãá ÇáßæÏ ÞÈá ÇáÕÝ 14 If LR < 14 Then LR = 14 'ãÊÛíÑ áÚÏ ÇáÕÝæÝ LR = ws.Range("C" & Rows.Count).End(xlUp).Row 'ÇÑÞÇã ÇáÇÚãÏå ÇáãØáæÈ æÖÚ ÏæÇÆÑ ÝíåÇ Arr = Array(11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 37) 'ÈÏÇíå ÇáÕÝæÝ For R = 14 To LR ' ÚÑÖ ÇáãÕÝæÝÉ ÇáÎÇÕÉ ÈÇáÇÚãÏÉ For i = LBound(Arr) To UBound(Arr) ' äØÇÞ ÊØÈíÞ ÇáÇãÑ æåæ ÇáÎÇÕ ÈÑÓã ÇáÏæÇÆÑ For Each Cel In ws.Cells(R, Arr(i)) ' ÇáÔÑØ ÇáÐì Úáì ÇÓÇÓå ÓæÝ íÊã ÑÓã ÇáÏæÇÆÑ If Cel.Value < ws.Cells(4, Cel.Column) Or Cel.Value = "Û" Then ' ãæÇÕÝÇÊ ÇáÔßá æåæ åäÇ ÚÈÇÑÉ Úä ÏÇÆÑÉ æãÇ Èíä ÇáÇÞæÇÓ åæ ÇÈÚÇÏ ÇáÏÇÆÑÉ ÍÊì áÇ ÊÕÈÍ ÇßÈÑ ãä ÍÌã ÇáÎáíÉ Set xx = ActiveSheet.Shapes.AddShape(msoShapeOval, Cel.Left, Cel.Top, Cel.Width, Cel.Height) ' ãæÇÕÝÇÊ ÇáÏÇÆÑÉ ãä ÍíË ÏÑÌÉ Çááæä æÍÌã ÇáÎØ æ ÇáÔÝÇÝíÉ xx.Fill.Visible = msoFalse xx.Line.ForeColor.SchemeColor = 10 xx.Line.Weight = 1.2 End If Next Next Next End Sub ' ÇáßæÏ ÇáËÇäì Sub DeletingShp() '' ÇáãÊÛíÑÇÊ Dim shp As Shape, x As Long ' åÐÇ ÇáäØÇÞ íÓãÍ ÈãÓÍ ßá ÇáÇÔßÇá Ýì æÑÞÉ ÇáÚãá ÓæÇÁ ÏÇÆÑÉ Çæ ÛíÑåÇ For Each shp In ActiveSheet.Shapes ' ÇãÑ ÇáãÓÍ If shp.Type = 1 Then shp.Delete: x = x + 1 Next shp ' ÑÓÇáÉ ÈÚÏÏ ÇáÏæÇÆÑ ÇáÊì Êã ãÓÍåÇ 'MsgBox "Êã ÍÐÝ " & x & " ÏÇÆÑÉ ÈäÌÇÍ", vbMsgBoxRight, "ÇáÍãÏááå" End Sub

أرجوا أن يجيبني أحد النتيجة العامة للدور الثاني على دالة هذا الشرط عند تطبيقه لا يعمل ألا وهو تلوين الخلية وإليك المرفق المعدل2222.rar

شكراً لك استاذ سليم لكن أنا قمت بعمل شرط في الملف ويحتوي العمود q النتيجة العامة للدور الثاني على دالة هذا الشرط عند تطبيقه لا يعمل ألا وهو تلوين الخلية وإليك المرفق المعدل2222.rar

أرجوا تلوين الخلايا بناءً على التعليمات في المصنف وكذلك حماية الخلايا التي تحتوي على أرقام لتطبيقها على كنترول شيت للتعديل.xls

هل من الممكن وضعها كصفر مختفي بحيث يمكن اخفاءه واعتبار هذا الصفر درجة للنجاح (لأن باقي الدرجات يشترط فيها ألا تقل عن عشرة درجات) وإن لم يمكن اخفاؤه يترك صفراً كما هو بحيث أستطيع اعطاءه لون أبيض فيصبح كأن الخلية فارغة لكن هو في الأساس بها صفر

في الملف المرفق المطلوب بالتحديد Book1.xls

أو إن أمكن إضافة دالة ناجح وراسب في الخلية CS16 بدلالة الدرجات في الخلايا O16 و X16 و AG16 و AR16 و BC16 و BX16 و CI16 و CR16 وإن كانت خلية فارغة من هذه الخلايا يعتبر التلميذ ناجح في هذه المادة وتطبق نفس الدالة =IF(OR(BX16<10;BX16="غ");1;0) بحيث إن كان حاصل على أقل من 10 درجات أو غ يعني غائب في هذه المادة تطبق نفس الشروط الأربعة المذكورة طيب حتى محتاج دالة ناجح أو راسب في خلية النتيجة بأبسط ما يكون باعتبار الدرجات التي في مقابلها فقط ولو كان الطالب غائب يعتبر راسب ولو كانت الخلية فارغة بدون أرقام أي درجات يعتبر ناجح في المادة بارك الله فيكم

أو إن أمكن إضافة دالة ناجح وراسب في الخلية CS16 بدلالة الدرجات في الخلايا O16 و X16 و AG16 و AR16 و BC16 و BX16 و CI16 و CR16 وإن كانت خلية فارغة من هذه الخلايا يعتبر التلميذ ناجح في هذه المادة وتطبق نفس الدالة =IF(OR(BX16<10;BX16="غ");1;0) بحيث إن كان حاصل على أقل من 10 درجات أو غ يعني غائب في هذه المادة تطبق نفس الشروط الأربعة المذكورة

IF.doc

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

في الملف المرفق المطلوب بالتحديد المصنف1.xlsx

أريد تعديل هذا الدالة للتتوافق مع حالة القيد وهي في خلية النتيجة وتقع في الخلية CT16 والمطلوب في التعليمات أسفل الخلية 1.xlsx

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

الله عليك استاذنا الاستاذ مصطفى محمود بارك الله لك وجزاك الله خيراً

في الملف المرفق أريد إضافة حرف غ لهذه الدالة حتى تعطي في النتيجة راسب للطالب الغائب =IF(BX16<10;1;0) المصنف2.xlsx

ما شاء الله استاذ ورئيس قسم استاذ علي جزاك الله خيراً وبارك الله لك

مرفق في الملف كشف مناداة وأريد في الخانة العليا عدد الخلايا الممتلئة التي توضح عدد الطلاب الراسبون في كل مادة على حدة مناداة الصف الأول دور ثان 2018.rar

المرفق يحتوي على شيت به ورقتين ورقة (البيانات) والورقة الآخرى (الاستمارة) أريد تعبئة الخلايا بالاستمارة الخلايا الملونة من خلال ورقة البيانات كل على حسب موقعه وعند نسخ الورقة الأولى من الاستمارة استطيع ملء جميع البيانات بالعدد 200 اسم كحد أقصى ....أرجوا مساعدتي

بارك الله فيك استاذنا لكن يا ريت يتم رفع كنترول الاعدادي ايضا

ممتاز أخي صـدّيـق بارك الله فيك ولكن أريد أن أعرف طريقة عمل ذلك وجزاك الله خيراً

الملف محتاجة غداً بإذن الله للعمل عليه نظراً لظروف امتحاناتي ارجوا التفاعل اخواني وبارك الله فيكم

المرفق يحتوي على شيت به ورقتين ورقة (البيانات) والورقة الآخرى (الاستمارة) أريد تعبئة الخلايا بالاستمارة الخلايا الملونة من خلال ورقة البيانات كل على حسب موقعه وعند نسخ الورقة الأولى من الاستمارة استطيع ملء جميع البيانات بالعدد 200 اسم كحد أقصى ....أرجوا مساعدتي ali.rar

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