المساعدة بكود تعديل الدرجة

[commandos1975]

كود يقوم بتغير الدرجه اذا توافر شرطان  في الملف المرفق

aa.rar

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

انسخ هذه المعادلة الى الخلية G4  واسحب نزولاً

=IF(AND(E4=$E$2,C4>=$C$2),30,E4)

اذا لم تعمل معك المعادلة استبدل الفاصلة بفاصلة منقوطة لتبدو هكذا

=IF(AND(E4=$E$2;C4>=$C$2);30;E4)

 

[commandos1975]

الاخ الفاضل تعير الدرجة مكانها في نفس العمود بماكرو

 

تم تعديل أغسطس 24, 2019 بواسطه commandos1975

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

هذا الكود يقوم بذلك

Option Explicit
Sub calcul()
Dim lr%
With Sheets("ورقة1")
    lr = Cells(Rows.Count, "E").End(3).Row
    .Range("H4:H" & lr).Formula = _
       "=IF(AND(E4=$E$2,C4>=$C$2),30,E4)"
    .Range("H4:H" & lr).Copy
    .Range("E4").PasteSpecial (xlPasteValues)
      Application.CutCopyMode = False
    .Range("H4:H" & lr).Clear
    .Range("E4").Select
End With
End Sub