waledm

هذه معادلة لتحديد المستويات فى مادة اللغة العربية مثلا IF(S8>=85;"ممتاز";IF(S8>=75;"جيد جداً";IF(S8>=65;"جيد";IF(S8>=50;"مقبول";"دون المستوى")))) المطلوب أن يكون التقدير بشرطين كما يلى ممتاز إذا تحقق شرطين هما S8>=85 و12=< Q8 وهكذا لباقى التقديرات كما يلى التقدير جيد جدا بشرطين هما S8>=75 و12=< Q8 التقدير جيد بشرطين هما S8>=65 و12=< Q8 التقدير مقبول بشرطين هما S8>=50 و12=< Q8 ثم دون المستوى فهل هذا ممكن وكيف يكون شكل المعادلة

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

الأخ العزيز أقدر مشغولاتك أرجو الرد فى أقرب وقت جزاك الله خيرا

أخى العزيز لدى شيت متواضع وبه كود لفصل الناجح عن الراسب والمطلوب أنه عند الضغط على زر الفصل الموجود بورقة " الإدارة" يتم وضع البيانات بدأً من الخلية (B7) أسفل تقسيمة المواد المعده لذلك فى شيت "الناجح" و"الراسب" 00000 وجزاكم الله خيرا مرفق الشيت مدرستى - الصف االثالث.zip

الأخوة الأعزاء لدى شيت به كود فصل الراسب عن الناجح ولكنه لا يعمل أرجو الإطلاع وحل المشكلة جزاكم الله خيرا مدرستى - الصف االثالث.zip

أخى العزيز / السلام عليكم ورحمة الله وبركاته لدى شيت به كود لفصل الناجح عن الراسب ولكن عند الضغط عليه لإجراء عملية الفصل تظهر الرسالة المرفقه فما هى المشكلة التى تظهر وكيف الحل جزاكم الله خيرا،،،، الشيت.zip الرسالة التى تظهر.zip

أخى العزيز عااااااجز عن الشكر لسرعة الرد والإهتمام ولا يسعنى إلا أن أقول "جزاكم الله خيراً"

أخى العزيزلدى شيت للصف السادس وبه كود لفصل الناجح والراسب ولكن عند الضغط على رز فصل الناجح عن الراسب تظهر الرسالة المرفقة ولا يتم الفصل هل يوجد حل لهذه المشكلة - مع العلم بأن الدود كان يعمل جيدا جزاكم الله خيرا مرفق الشيت - والخطأ الذى يضهر عند الفصل 2011شيت مدرستى السادس .zipالخطأ الذى يظهر.zip

الأخوة ارجو الرد والإهتمام شكرا للجميع

أخى الكريم كيف يمكن وضع دوائر حمراء على درجات مختلفة مثلا فى اللغة العربية الأقل من 50 درجة والرياضيات توضع الدائرة على الدرجة الأقل من 40 درجة وفى العلوم الأقل من 20 درجة وهكذا لباقى المواد جزاكم الله خيرا شيت الرابع.zip

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

بارك الله لكم وزادكم من نور علمه

جزاكم الله خيرا على هذا المجهود المشكور وزادكم الله من نور العلم إشراقا وتألقا ولى طلب صغير هل يمكن حساب السن مباشرة من الرقم القومى أى أنه عند كتابة الرقم القومى يظهر السن فى خلية واحدة أخرى مثلا( 20سنة أو 30 سنة و5شهر 16يوم ........ إلخ ) وبهذا يكون بمجرد كتابة الرقم القومى يتم إستخراج منه مباشرة تاريخ الميلاد والسن والمحافظة و النوع جزالم الله خيرا****

أشكرك أخى الكريم وجعل الله مشاركاتك فى ميزان حسناتك إن شاء الله تعالى أخوك/ محمد سعيد- قويسنا - منوفيه

أرجو الإفادة مازالت المشكلة قائمة

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

أخى العزيزلدى شيت به ماكرو لفصل الناجح عن الراسب ولكن عند الضغط على زر فصل الناجح والراسب تظهر الرسالة المرفقة ولا يتم الترحيل أرجو الإفادة ،،، وشكرا للإهتمام 2012شيت مدرستى - الصف الثانى2.zip

أخى العزيز شكراً جزيلاً على الإهتمام ولكن عند الضغط على زر فصل الناجح والراسبتظهر الرسالة المرفقة ولا يتم الترحيل أرجو الإفادة ،،، وشكرا مرة أخرى للإهتمام 2012شيت مدرستى - الصف الثانى2.zip

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

أخى الكريم شكراً جزيلا على إهتمامك لكن عند تطبيق الماكرو بعد التعديل الذى تكرمت به على الشيت الخاص بى ( شيت الثانى والرابع) فإنه لايعمل أرجو الإطلاع والإفادة جزاك الله خيرا مرفق الشيت شيت الثانى والرابع.zip

هذا هو الشيت الذى به كود فصل الراسب عن الناجح ارجو شرح وتوضح الكود ناجح وراسب.zip

عثرت على هذا الكود وهو لفصل الناجح عن الراسب وأريد شرح له حتى يتثنى لى تطبيفه على الشيت الخاص بى Sub SEPARATION() Application.ScreenUpdating = False Sheets("ناجح").Range("B6:J1000").ClearContents Sheets("راسب").Range("B6:J1000").ClearContents Dim ResSh As String For i = 2 To Cells(1000, 9).End(xlUp).Row ResSh = Cells(i, 9).Value AA = Sheets(ResSh).Cells(1000, 9).End(xlUp).Row + 1 On Error Resume Next Sheets(ResSh).Cells(AA, 2).Value = Cells(i, 2).Value Sheets(ResSh).Cells(AA, 3).Value = Cells(i, 3).Value Sheets(ResSh).Cells(AA, 4).Value = Cells(i, 4).Value Sheets(ResSh).Cells(AA, 5).Value = Cells(i, 5).Value Sheets(ResSh).Cells(AA, 6).Value = Cells(i, 6).Value Sheets(ResSh).Cells(AA, 7).Value = Cells(i, 7).Value Sheets(ResSh).Cells(AA, 8).Value = Cells(i, 8).Value Sheets(ResSh).Cells(AA, 9).Value = Cells(i, 9).Value Next i Application.ScreenUpdating = True MsgBox "تم فصل الناجحين والراسبين بكشفين منفصلين بنجاح" End Sub

أخى العزيز شكرا ً جزيلاً على إهتمامك لأن الشيت ضرورى جدا لمدرستى والمشكلة بالتحديد هى أولاً ( فى شيت الثانى) عند فتح ورقة الإدارة والضغط على زر الناجح والراسب تظهر لى رسالة بأن هناك خطأ وعند فتح الرسالة أجد تظليل بالون الأصفر على أحد الأسطر فى الكود ثانياً ( شيت الرابع ) عند فتح ورقة الإدارة والضغط على زر الناجح والراسب يتم ترحيل الناجحين إلى ورقة ناجح وهو المطلوب ولكن المشكلة أنه يتم ترحيل الناجحين والراسبين معا إلى ورقة دور ثان والمطلوب ترحيل الراسبين فقط إلى ورقة دور ثان والخلاصة أننى أريد فصل الناجح عن الراسب كل منهم فى ورقة مستقلة بأية طريقة تراها شيت الثانى والرابع.zip

ألا من مجيب

أرجو سرعة الرد جزاكم الله خيرا