محمدي عبد السميع

جزاك الله خيراأيها العلامة /خبور خير وامدك بالصحة والعافيه

ماشاء الله كيف نوفيك حقك يابطل ؟ جزاك الله كل خير

شكرا لكم

يارب يامن رفعت السماء بدون عمد ارفع قدر العالم العلامة في الدنيا والآحرة عمل ولاأروع

حفظك الله ورعاك ايها الاستاذ الكبير / عبد اللهعمل ولاأروع ولكننا نتعشم في كرمك في ** يضاف الدوائر الى الشهادات ** في الشهادات نريد فصل شهادات الناجحين لوحدها ثم شهادات الدور التاني لوحدها ** في الشهادات مكتوب فيها ( له دور ثانن ) نريد زيادة حرف الجر في فتصبح ( له دور ثان في ) ...ـ

بارك الله لك

الاستاذ الجهبذ / عبد الله وعليكم السلام ورحمة الله وبركاته نقله نوعية في كود لدوائر الحمراء جزاك الله خيرا التنسيق الشرطي فاق الوصف عدد الشهادات في ورقة الطباعه 3

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

اخي الاستاذ الكريم خبور خير السلام عليكم ورحمة الله وبركاته في بعض الاوقات من الحب الشديد والعمل الراقي تجد الكلمات تقف حائرة لتوفيك حفك ولكننا لايسعنا الا ان نقول لك جزاك الله كل خير ــــــــــــــ نريد معادلة لتخرج لنا الناجح ومن عنده دور تان توضع في العمود cx10 وتكون شروطها كالآتي اذا كان الطالب ليس غائبا في امتحان آخر العام ودرجته في امتحان اخر العام اكبر او تساوي الدرجة الموجودة في نفس عمود امتحان اخر العام والصف التاسع.. وفي نفس الوقت تكون درجة الطالب في مجموع الفصلين اكبر من او تساوي الدرجة الموجودة بالصف التاسع في عمود مجموع الفصلين في هذه الحالة يكون الطالب ناجح وغير ذلك له دور تان وتقبل تحياتي وشكري

اللهم زد هذا الوجه وجه اخي خبور خير نورا واجعله دائما مأجورا

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

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

Sub Circles1() Dim C As Range Dim MyRng As Range Set MyRng = Range("J8:M1000") For Each C In MyRng ' &Uacute;&atilde;&aelig;&Iuml; &Ntilde;&THORN;&atilde; &Ccedil;&aacute;&Igrave;&aacute;&aelig;&Oacute; &aring;&aelig; &Ccedil;&aacute;&Uacute;&atilde;&aelig;&Iuml; 2 If Cells(C.Row, 2) = 0 Then GoTo 1 If C.Value < Cells(7, C.Column) Or C.Value = "&Ucirc;" Or C.Value = "&Ucirc;&Uuml;" Then Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left, C.Top, C.Width, C.Height) v.Fill.Visible = msoFalse v.Line.ForeColor.SchemeColor = 10 v.Line.Weight = 1.25 End If 1 Next End Sub Sub RemoveCircles1() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete Next shp End Sub وإذا اردت عمل الدوائر لأعمده خاصة Set MyRng = Range("K8:K1000,H8:H1000,E8:E1000")

بسم الله الرحمن الرحيم من نعم الله علينا وجود العالم الفذ خبور الخير وقد افاض الله عليه ببعض علمه الذي افاض به علينا الله يجزيه عنا خير الجزاء وهاهو يطل علينا بكود غير مسبوق لعمل الدوائر الحمراء وكود لمسح الدوائر الحمراء قليل الحجم - سريع - وسهل النقل الى اي شيتات اخرى ___________________.rar

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

الله .. اللهالله للدقة الله يكرمك ويرزقك الرزق الكثير ويغفر الله لنا ولكم أيها العالم الكبير

ليحفطكم الله ايها العالم الكبير خبور الخير

شكرا لكم

رابط ان شاء الله ذو صله وسيفيد http://www.arabmoheet.net/forum/default.as...3008&page=1

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

حفظك الله ورعاك

نورت المكان يابطل جزاك الله خيرا

سؤالك عن إغلاق محرر الاكواد ..... ــــــــــ اعمال رجال المنتدى واقطابه مفتوحة للجميع وليست مغلقة ......... هذا للعلم