ناصر سعيد

اشكرك كثيرا واتمنى من الله ان يبارك فيك وبعد.. اريد وضع المعادلات الموجودة بالطريقة السادسه في الملف المرفق ان تجعلهم في الملف الموجود بالمشاركه رقم 7 شهلدة السحيب الجميلة.rar

اخي الكريم شكرا لمجهودك ولكن المطلوب عند وضع رقم جلوس طالب ياتي كل بياناته يعني خليه رقم الجلوس يجب ان تكون مفيهاش معادله وانما نضع رقم الجلوس يدوي

لايتم التحميل ولا ادري ما السبب

شكرا جاري التجريب بعد التحميل

هذا هو المرفق المطلوب عند كتابه رقم الجلوس تكتمل بيانات الشهادة استدعاء شهادات1.rar

لايوجد ملف بارك الله لكم

ممكن معادلة شرطبه تظلل حالات الرسوب كرما منكم

Sub Circles1() 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 = 3 ' عمود رقم الجلوس R = 1 ' صف الدرجات Set MyRng = Range("c8:m35") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ x = ActiveWindow.zoom Application.ScreenUpdating = False 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 = "غـ" Or c.Value = "دون المستوى" Or c.Offset(1, 0).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 = 0.25 d = d + 1 End If 1 Next ActiveWindow.zoom = x Application.ScreenUpdating = True 'MsgBox "تم إضافة " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub Sub RemoveCircles1() 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 'MsgBox "تم حذف " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub ============================= G = 3 ' عمود رقم الجلوس R = 1 ' صف الدرجات اين هذا العمود الموجود قي الشهاده واين هذا الصف ارجوكم

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

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

السلام عليكم ورحمة الله وبركاته هذا ملف به كود يعمل جيدا للبحث ولكته ليس منفصلا موجود ضمن اكواد مختلفه اريد استخدامه لوحده في ملف اخر ارجو فصله .. كرما منكم كود بحث.rar

ادراج عدد معلوم من الصفوف بمعادلاتها وتنسيقاتها نسخ المعادلات والتنسيقات.rar

الرابط لايعمل يا كرام

الاخوة الكرام الدوائر لاتظهر بعد عده مرات في 2003 فعلا

كود طباعة للشهادات للطابعات الضعيفه... مرن طباعة مرن مع البحث بدلالة رقم الجلوس.rar

استاذ سليم لا يسعني إلا أن ارفع لك القبعه احتراما جزاك الله خيرا

اولا اشكرك استاذ سليم اريده اكسيل 2003

اخي الكريم استاذ سليم ولكني لااجد اي تغيير اين التغيير من فضلك

الاخوة الكرام ملف به ورقتان الورقه الاولى باسم بيانات الطلبه والورقه التانيه باسم رصد الترم التاني كرما منكم مطلوب الخليه CW7 قي الورقة التانيه عندما تكون مكتوب فيها دور تان تكون الخليه A7 بالورقة الاولى خلفيتها باللون الاحمر واذا كانت الخليه CW7 قي الورقة التانيه عندما تكون مكتوب فيها ناجح تكون الخليه A7 بالورقة الاولى خلفيتها باللون الاخضر تنسيق.rar

ملفان لتضبيط عمليه ادخال البنين والبنات تنسيق شرطي.rar تنسيق شرطي2.rar

كنترول استاذ ايسم للدور التاني http://up.top4top.net/downloadf-top4top_8e9507e3301-zip.html

رابط آخر مفيد في عالم اكسيل http://www.mrexcel.com/

رابط مفيد في عالم اكسيل http://www.contextures.com/xlDataVal01.html

استخدام رائع لمعادله اف لاحتساب الدمغه المقرره على المبالغ المختلفه الدمغة_1.zip

يبارك فيك ربنا يتبقى كود نوزيع اللجان وكود توزيع ارقام الجلوس