هشام شلبى

السلام عليكم =========== كنترول او برنامج شهادات الدور الثانى فكرة راودتنى كثيرا والان والحمد لله اكتملت بنسبة معقولة اولا === البرنامج يصلح للصفين الاول والثانى الاعدادى ما عليك الا الاختيار من صفحة البيانات من الخلية I6 اذا كان الصف الاول او الثانى الاعدادى وسيقوم البرنامج بمعالجة المعادلات لتتعامل مع الصف الذى تختارة ثانيا ===== البرنامج يصلح للبنين والبنات ما عليك الا اختيار الجنس من صفحة البيانات من الخلية I9 اذا كانت المدرسة بنين او بنات وسيقوم البرنامج بمعالجة المعادلات للتانيث فى حالة البنات والعكس فى حالة البنين ثالثا ===== يقوم البرنامج بتنبيه المستحدم اذا كان الطالب راسب ويجول مسار خاص او راسب وباق للاعادة واخيرا منتظر ردودكم وارائكم للتعديل من اصحاب الخبرات فى هذا المجال البرناج صدقة جارية لعزيز لدى فبرجاء قراة الفاتحة له تقبلها الله كنترول دور تانى صف اول2.rar

السلام عليكم =========== هذا السطر هو الخاص بمحو اللون فى حالة ما اذا كانت الخلية "فى المدى المستهدف" فارغة او لا تحقق الشروط الاتية فيما بعد

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

السلام عليكم ========== الاخ kemas بعد تجربة الكود وجدت به عيب لا يصير مع برامج الكنترول وهو عند تغير الحالة لا يمحو اللون "اظنك فاهمنى" فيجب اضافة السطر التالى الى الكود If Not Intersect(Target, Range("C4:K39")) Is Nothing Then Select Case Target هذا والله اعلم ولكن انظر الى هذا الكود وما له من تعدد فى الحالات ويتغلب على مشكلة محو اللون عند تغير الحالة Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("A1:F100")) Is Nothing Then Select Case Target Case "Y" icolor = 3 Case "G" icolor = 12 Case "F" icolor = 5 Case "X" icolor = 9 Case "Z" icolor = 3 Case "áå ÏæÑ ËÇäì Ýì ãæÇÏ" icolor = 33 Case Else 'ويمكن زيادة الحالات End Select Target.Interior.ColorIndex = icolor End If End Sub شاهد المرفق كود يلون عند ارقام معينة.rar

السلام عليكم =========== الاخ office 2003 تفضل office 2003.rar

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

السلام عليكم =========== اليك الحل والبيانات فى ورقة 1 والحل فى ورقة 2 جمع ب3 شروط1.rar

السلام عليكم =========== اخى وحبيبى بن عليه بارك الله فيك وهذا حل اخر لاثراء الموضوع جمع ب3 شروط.rar

السلام عليكم =========== استخدم هذه الصيغة =SUMPRODUCT(($C$7:$C$15=C4)*($B$7:$B$15>0)*($A$7:$A$15=A7)) ثم هذه الصيغة =SUMPRODUCT(($C$7:$C$15=C4)*($B$7:$B$15=0)*($A$7:$A$15=A7)) شاهد المرفق Book1.rar

السلام عليكم ============ اخى العزيز اليك 4 مرفقات شرح بالفيديو لكل ما بتعلق بعمل نطاق وتسميته زيادة المدى وحذفه.rar شرح عمل مدى فى الاكسيل1.rar شرح عمل مدى فى الاكسيل.rar شرح همل مدى فى الاكسيل1.rar

السلام عليكم =========== الاخ الحبيب افرام رشو ده سيم مصرى معتاه ارفق ملف

السلام عليكم =========== غالبا سيكون الخطأ فى صيغة الوقت شاهد المرفق 1 Xl0000004.rar

السلام عليكم =========== شاهد المرفق نسخة من Xl0000003.rar

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

السلام عليكم =========== بارك الله فيك اخى عادل ان شاء الله ستكون مشاركات مفيدة وهذا شرح لمشاركتك رقم 4 ليستفيد منها جميع الاخوة شرح مشاركة 4 عادل حنفى.rar

السلام عليكم =========== اخى الحبيب عماد الفكرة ممتازة "ربنا يحرسك يا عمدة" حاولت من قبلك ولكنى بصراحة نجحت فى كود الجمع وفشلت فشل ذريع فى بناء كود التقديرات ولى سؤال ======= اريد قاعدة if لحدثين فى وقت واحد وللتوضيح اكثر If Target.Offset(0, 2).Value < 50 Then Target.Offset(0, 4).Value = " دون المستوى" ElseIf Target.Offset(0, 2).Value >= 50 Then Target.Offset(0, 4).Value = " مقبول" ElseIf Target.Offset(0, 2).Value >= 65 Then Target.Offset(0, 4).Value = " جيد" السطر الثانى من الكود ماشى معاى مضبوط لانه حالة واحدة فقط "اى ان الطالب الحاصل على اقل من 50 يكون تقديرة دون المستوى. اما السطر الثالث من الكود فيجب ان يكون " اذا كان الطالب حاصل على اكبر من 50 واقل من 65 يكون تقديرة مقبول اى ان التقدير فى هذه الحالة مبنى على قيمة محصورة بين قيمتين منتظر ردك ملحوظة ===== كنت اريد تثبيت هذا الموضوع ولكن بصراحة وجدته دائما يتصدر الصفحة الرئيسية بفضل من الله ثم الاخ النشيط قصى صاحب الافكار الحلوة فما راى الجميع

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

السلام عليكم ============ اخى الحبيب mas123 بارك الله فيك اسمح لى باستخدام ملفك للتوضيح ولجمال تنسيقاته الاخ ممدوح لى بعض الملاحظات على مرفقك ارجو قبولها "للاستفادة فقط" اولا === تبديل المعادلة فى D6 من =C6+B6 الى =SUM(B6:C6) وذلك لتنفيذ الجمع فى حالة الطالب اذا كان "غ" فى الخليتين B6 و E6 ونفس الملحوظة فى الخلية G6 ونفس الملحوظة فى الخلية H6 وقد عدلها لك الاخ MAS ثانيا ===== فى عمود المتوسط وفى الخلية I6 تحديدا اذا كان الطالب "غ" فى الخلية H6 سيكون الناتج #VALUE! لذا وجب التنويه لتبديل المعادلة فى الخلية I6 من =H6/2 الى =SUM(G6;D6)/2 حتى تعطى القيمة صحيحة وكذلك فى الخلية J6 تبديل المعادلة =I6*0.8 الى =SUM(G6;D6)/2*0.8 كل ذلك للتغلب على الاخطاء الناتجة عن تدخل النصوص فى العمليات الحسابية اما بالنسبة لموضوع ال 30% فهذه فكرة اخرى mas_Book1.rar

السلام عليكم =========== الاخ الحبيب cat101 سنستخدم هذا الكود المسجل يدويا Sub ÝÑÒHH() ' ' ÝÑÒHH ãÇßÑæ ' ÇáãÇßÑæ ãÓÌá ý01/06/2010 ÈæÇÓØÉ ýHESHAMSHALABY ' ' ÇÎÊÕÇÑ áæÍÉ ÇáãÝÇÊíÍ: Ctrl+Shift+L ' Range("F2:F36").Select Range("A1:F36").Sort Key1:=Range("F2"), Order1:=xlAscending, Header:= _ xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("B1").Select End Sub وكما ترى الكود سهل ويمكن التعديل عليه شاهد المرفق فرز وترتيب2.rar

مبارك للاخ kemas على الترقية المستحقة

السلام عليكم =========== الاخPRIINCE هذا طلبك بطريقة اخرى ولاثراء الموضوع اضغط على الخلية F2 بكلكتين سيتم الترتيب كما تريد فرز وترتيب1.rar

السلام عليكم =========== اخى الحبيب عماد بارك الله فيك وهذا لا ثراء الموضوع المرفق الاول يلون اطار الخلية بكليك المرفق الثانى كل كليك يلون الخلية بلون مختلف تلوين الخلفية.rar كل كلك بلون مختلف.rar

السلام عليكم =========== اخى ابو البراء " صباح الفل" جائتنى فكرة ولكن الان انا ذاهب الى لجنة امتحان الاعدادية ولا وقت لتنفيذها وهى استخدام قاعدة IF فى العمود الذى بجانب اسماء المدارس H وبناء عليه تعطى ارقام مسلسة تبدأ من الرقم 1 لاول مدرسة تريدها بالترتيب وهكذا باقى المدارس ثم تفرز العمود H فما رايك عموما دى فكرة الى ان نرجع جميعا من اعمالنا ونلتف جميعا حول المنتدى

السلام عليكم =========== اخى العزيز شاهد المرفق الجمع تم عن طريق دالة من النوع udf sum by color.rar