تحويل من رقم الى رقم اخر

[الجديدة]

طريقة اذا اخترت المادة من الخالية c 5  واكتب الرقم المراد تحويلة فى الخالية d 5  وكتابة الرقم الذى اريد التحويل لية فى الخالية e 5  يتم التحويل على المادة فى كل عمود من اعمدة المواد حسب الحاجة

مرفق الملف

[الجديدة]

ورقة عمل Microsoft Excel جديد.xlsx

[أبو إيمان]

حضرتك محتاجة ترحلي القيمة الموجودة في D5 أم E5 إلى الجدول

وهل عند ترحيل اللغة العربية 

عند اختيار مادة أخرى يتم الترحيل في نفس الصف أم للصف التالي

[الجديدة]

يتم ترحيل الموجود فى الخالية e5   بعد كتابة مادة اللغة العربية كاملة اذا كان هناك تحويل مثلا من 24 الى 80 يتم التغير على اللغة العربية وكذلك المواد الاخرى 

[أبو إيمان]

فرضنا وجود رقم 24 مكرر في أكثر من صف في مادة اللغة العربية هل يقوم بالتغيير كامل أم تغيير درجة واحدة 

والافضل ارفاق ملف يوضح تصور لشكل الصفحة كامل 

 

في 2‏/2‏/2023 at 16:21, أبو إيمان said:

عند اختيار مادة أخرى يتم الترحيل في نفس الصف أم للصف التالي

 

[الجديدة]

يقوم بتغير الكل فى المادة الواحدة

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

[أبو إيمان]

يمكن عمل ذلك من خلال خاصية البحث ولاستبدال بتحديد العمود المراد البحث فيه واستبدال القيمة 

 

وإليك كود يقوم بتنفيذ المطلوب ( مع ملاحظة انه يمكن اختصار الكود لكن فضلت ان يكون هناك شروط قبل التنفيذ )

Sub replace()
If [e5] > [d5] Then
lr = [B10000].End(xlUp).Row
For y = 2 To 9
If Cells(8, y).Value = [c5] Then
For x = 9 To lr
If Cells(x, y).Value = [d5] Then
Cells(x, y).Value = [e5]
End If
Next
End If
Next
End If

End Sub

 

[الجديدة]

يوجد بالكود مشكلة وهى عند كتابة اى رقم غير 20 لا يتم التحويل لنفرض الطالب اخذ 12 اريد تحويلهم الى 80

ورقة عمل Microsoft Excel جديد.xlsx

[أبو إيمان]

25 دقائق مضت, الجديدة said:

عند كتابة اى رقم غير 20 لا يتم التحويل لنفرض

حضرتك لا يوجد في الملف الرقم 12 لكي يتم تغييره المكتوب 12.5 القيمة الصغرى 

والكود لا يعتمد على قيم ثابته فالكود يعمل بحسب القيم المدخلة في الخلية C5 , D5 , E5

وإليك شرح الكود 

Sub replace()
'يتم مقارنة اذا كانت القيمة الجديدة أكبر من القيمة القديمة
If [e5] > [d5] Then
'اوجد رقم اخر صف يحتوي على بيانات
lr = [B10000].End(xlUp).Row
' عمل حلقة تكرارية بدايتها رقم أول عمود ونهايتها اخر اعمود
For y = 2 To 9
' يختبر مكان وجود المادة
If Cells(8, y).Value = [c5] Then
'حلقة تكرارية اخرى بدايتها أول صف يحتوي على بيانات ونهايتها اخر صف
For x = 9 To lr
'يحدد أين تقع القيمة المراد استبدالها (القيمة القديمة )
If Cells(x, y).Value = [d5] Then
'يستبدل القيمة التي عثر عليها بالقيمة الجديدة
Cells(x, y).Value = [e5]

End If
Next
End If
Next
End If

End Sub

 

وكما تلاحظ في الشرح لم يتم الربط بقيم ثابته 

 

[طارق حرفوش]

حسب فهمي المطلوب هنا من حضرتك جميع الطلاب اخذو الدرجه من 12 انا اريد تحويل درجات العمود كلها لتصبح من 80 بدل 12