أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





مدموج :الرجاء اخوان المساعده في ملف نتائج طلبه

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


18-03-2022 11:51 مساء
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 

WhtXc_20220319-004916_p0السلام عليكم... 
عذرا على الانقطاع بسبب ظروف قاهره
لدي ملف درجات كما في المثال واريد ان تظهر في حقل النتيجه كما مكتوب بناء على حقول الدرجات
والمطلب الثاني هو انه توجد ١٠ درجات قرار توزع على المواد التي درجتها من ٤٠ فما فوق (في مثالي الانكليزي والكيماء والفيزياء مشموله بالقرار) فاريد معادله تقوم تلقائيا بتوزيع ال ١٠ درجات على هذه المواد لتصل الى ال ٥٠ ومن ثم تظهر العباره كما مطلوب في حقل النتائج الموضوع مدموج من مواضيع متعدّدة
السلام عليكم
اخوان اكو رد ؟؟؟؟؟
لان الصراحة الموضوع جدا جدا محتاجه ومتوقف عليه عملي
وهل هناك امكانية اعطاء اولوية للمواد بمعنى لو اعطيت الاولية للانكليزي وكانت الدرجة 40 واخذت ال10 درجات جميعها فان المواد البقية سيعتبر معيد يها  ... هل توجد هكذا امكانية
 
 



أفضل إجابة مقدمة من YasserKhalil وهي:
جرب الكود التالي عله يفي بالغرض إن شاء الله
مع العلم أنني ركزت على إضافة الدرجات فقط أما نقطة النتيجة النهائية فسأتركها لك لضيق الوقت عندي
Sub Test()
    Const iSuccess As Integer = 50
    Dim e, lr As Long, r As Long, mrk As Double, t As Double
    Application.ScreenUpdating = False
        With ActiveSheet
            lr = .Cells(Rows.Count, 1).End(xlUp).Row
            .Range("B2:H" & lr).Copy .Range("J2")
            For r = 3 To lr
                mrk = 10: t = 0
                For Each e In Array(13, 14, 15, 16, 12, 11)
                    With .Cells(r, Val(e))
                        If .Value < iSuccess And .Value >= (iSuccess - 10) And mrk >= 1 Then
                            t = mrk
                            mrk = mrk - (iSuccess - .Value)
                            If mrk >= 0 Then .Value = Application.WorksheetFunction.Min(.Value + t, iSuccess)
                            If mrk = 0 Then Exit For
                        End If
                    End With
                Next e
            Next r
        End With
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




19-03-2022 10:07 صباحا
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif مدموج :الرجاء اخوان المساعده في ملف نتائج طلبه
أستاذى الفاضل :
الرجاء إرفاق ملف يقوم الأعضاء الكرام العمل عليه بدلا من العشوائية فى العمل
ثانيا : توضيح بعض الاستفسارات حول طلبكم : مثلا ــــ
المواد المشمولة بالقرار كم مادة بحد اقصى ؟؟؟
وأيضا :  عمةد النتيجة ( مكتوب معيد فى الرياضيات وقرار فى .... ) لماذا الرياضيات فقط ؟؟
ــــــ
فرجاء التوضيح أولا للتسهيل على الأخوة المختصين بسرعة تلبية طلبكم

19-03-2022 03:10 مساء
مشاهدة مشاركة منفردة [2]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif مدموج :الرجاء اخوان المساعده في ملف نتائج طلبه
السلام عليكم
حسب توجيه الاستاذ المحترم محمد الدسوقي قمت برفع المثال للتوضيح الرجاء المساعدة


Mjg0OTI4MQ6666%D8%A8%D8%AF%D9%88%D9%86%20%D8%B9%D9%86%D9%88%D8%A7%D9%86

19-03-2022 05:16 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif مدموج :الرجاء اخوان المساعده في ملف نتائج طلبه
بارك الله فيك
تم دمج الموضوعين معاً
بالتوفيق إن شاء الله

20-03-2022 10:09 مساء
مشاهدة مشاركة منفردة [4]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif مدموج :الرجاء اخوان المساعده في ملف نتائج طلبه
وعليكم السلام ورحمه الله وبركاته
اين الملف المرفق
بدون ملف مرفق مشروح به ما تريد وشكل النتائج المتوقعه
سوف يتم حذف الموضوع

21-03-2022 10:39 صباحا
مشاهدة مشاركة منفردة [5]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif مدموج :الرجاء اخوان المساعده في ملف نتائج طلبه

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

وهذه صورة توضيحية
MTQ5NTQ1MQ2121%D8%A8%D8%AF%D9%88%D9%86%20%D8%B9%D9%86%D9%88%D8%A7%D9%86 انتبه من فضلك فقد تم حذف الملف واعادة رفعه بإمتداد Xlsm ,طالما انك تريد حل مشكلتك بالأكواد
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
  بدون عنوان.png   تحميل png بدون عنوان.png مرات التحميل :(0)
الحجم :(81.856) KB
 
  المصنف1.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(19.243) KB


21-03-2022 08:44 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif مدموج :الرجاء اخوان المساعده في ملف نتائج طلبه
المواد المشمولة بالقرار (إنكليزي ، رياضيات ، كيمياء ، فيزياء ، عربي ، إسلامية )
هل هناك توزيع محدد ( نصيب محدد ) لكل مادة على حده ؟؟؟
أم أول مادة فى الأولوية تأخد 10 درجات كاملة ؟؟؟
وإذ لم تأخذها هذه المادة الأولى  بالكامل ( يعنى تحتاج إلى درجتين فقط  مثلا ) الباقى 8 درجات كيف يتم توزيعها ؟؟؟
لعل الاستفسار مفهوم ؟؟!!!


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
الرجاء ، اخوان ، المساعده ، نتائج ، طلبه ،


 










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

الساعة الآن 06:49 مساء