تحويل درجات الطلاب مع تقريب

[علي المصري]

السلام عليكم ورحمة الله وبركاته

لدي درجات للطلاب من 40 درجة 

اريد تحويلها الى درجة من 10 ( هذه اعرفها )

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

 

هذا الكود يحول الدرجات ولكن في نفس الخلية

    For Each cell In [P10:T24]
'    If cell = "" Then Exit Sub
        cell.Value = WorksheetFunction.Round(cell.Value / 4, 0)
        If cell.Value >= 0 Then Range("E10:I24").Value = Range("P10:T24").Value
            Next cell

 

[سليم حاصبيا]

دون الملف لا تلقى مساعدة

[بن علية حاجي]

السلام عليكم ورحمة الله

جرب التعديل التالي على الكود (سطر IF الثانية -سطر 4-):

    For Each cell In [P10:T24]
'    If cell = "" Then Exit Sub
         cell.Value = WorksheetFunction.Round(cell.Value / 4, 0)
         If cell.Value >= 0 Then cell.offset(0,-11).Value = cell.Value
    Next cell

بن علية حاجي

[بن علية حاجي]

السلام عليكم ورحمة الله

إذا كنت تريد أن تبقي قيم النطاق P10:T24 على حالها (العلامة من 40) وقيم النطاق E10:I24 تُحسب من 10 فالجزئية من الكود بالأعلى تصبح:

    For Each cell In [P10:T24]
'    If cell = "" Then Exit Sub
         X = WorksheetFunction.Round(cell.Value / 4, 0)
         If cell.Value >= 0 Then cell.offset(0,-11).Value = X.Value
    Next cell

أو ربما 

    For Each cell In [P10:T24]
'    If cell = "" Then Exit Sub
         If cell.Value >= 0 Then cell.offset(0,-11).Value = WorksheetFunction.Round(cell.Value / 4, 0)
    Next cell
بن علية حاجي

والله أعلى وأعلم